SPSS宏命令

Question

我需要在 SPSS 中运行以下代码：

if (event_duration = 0) Acti_Activity = Activity.
if (event_duration = 1) Acti_Activity = MEAN (Activity, Activity_1).
if (event_duration = 2) Acti_Activity = MEAN (Activity, Activity_1, Activity_2).

……一直到……

if (event_duration = 120) Acti_Activity = MEAN 
(Activity, Activity_1, Activity_2, Activity_3, Activity_4, Activity_5, Activity_6, Activity_7, Activity_8, Activity_9, Activity_10, 
Activity_11, Activity_12, Activity_13, Activity_14, Activity_15, Activity_16, Activity_17, Activity_18, Activity_19..... ,Activity_120

所以本质上，我需要一个宏来表示“如果 event_duration = X，则意味着活动变量到 Activity_X”。

我必须对 15 个变量执行此操作，所以虽然我可以将它们全部输入，但我认为有一些代码可以简化它？

Answer 1

这是一个演示如何将其包装到 SPSS DEFINE-!ENDDEFINE 宏中，我已将 N=120 参数化，但您也可以为运行它所需的 15 个不同变量进行参数化。我会把它留给你去适应。

define !RunJob(n=!cmdend)

!do !i = 0 !to !n
    !if (!i=0) !then
        do  if (event_duration = !i).
            compute Acti_Activity =Acti_Activity.
    !ifend
    !if (!i>0) !then
        else if (event_duration = !i).
            compute Acti_Activity =MEAN(Acti_Activity to !concat("Acti_Activity_",!i)).
    !ifend

!doend
end if.      

!enddefine.

set mprint on.
!RunJob n=120.

如果由于某种原因您的变量顺序不连​​续，或者说数据中不存在 Activity_15，则此方法将失败并在遇到错误时停止。如果是这样，那么您可能希望使用 Python Programmability 来解决这个问题，这在这种情况下更加动态和灵活。

Answer 2

我想知道。当 event_duration 等于 0 时意味着变量 Activity_1 到 Activity_119 都为零，当 event_duration 等于 1 时意味着 Activity_2 到 Activity_119 都为零，依此类推，你也可以使用像这样更简单的东西。

compute Acti_Activity = SUM(Activity to Activity119) / (event_duration + 1).
execute.

Answer 3

DEFINE !SPGrid (ID=!Default(respid) !TOKENS(1)/ 代码 = !TOKENS(1000)/ N = !TOKENS(1)/ 问题 = !TOKENS(1000)) COUNT QCount = !Question (!Codes)。 执行。 暂时的。 选择 IF (QCount!N)。 LIST !ID !问题。 !ENDDEFINE。

!SPGrid 代码=1,2,3,4 N=15 Question=Q1r1 Q1r2 Q1r3 Q1r4 Q1r5 Q1r6 Q1r7 Q1r8 Q1r9 Q1r10 Q1r11 Q1r12 Q1r13 Q1r14 Q1r15。