Question

将TEMP的第一条记录恢复到正常状态（不超过37C）。

    data temp;
      input ID $ SEQ $ TEMP ;
      datalines;
    001  1  37.3
    001  2  37.2
    001  3  36.3
    001  4  37.3
    001  5  36.9
    001  6  36.9
    002  1  37.3
    002  2  37.2
    002  3  36.3
    002  4  35.3
    002  5  36.9
    002  6  36.9
    003  1  37.3
    003  2  37.1
    003  3  38.2
    003  4  39.3
    004  1  36.3
    004  2  38.2
    004  3  36.5
    004  4  36.4
    ;
run;

这是问题：

如何使TEMP的第一条记录恢复正常（不超过37C）。

这里有2位患者各有6个温度观测值，每个2位患者各有4个温度观测值。如果患者的体温最终恢复正常（最后温度<37），则标记出小于37的第一条温度记录。

以ID = 001患者为例。

001  1  37.3
001  2  37.2
001  3  36.3
001  4  37.3
001  5  36.9
001  6  36.9

由于第六条临时记录为36.9，小于37，最终恢复正常，然后标记出第五条记录。

001  1  37.3  0
001  2  37.2  0
001  3  36.3  0
001  4  37.3  0
001  5  36.9  1
001  6  36.9  0

对于患者ID = 003。

003  1  37.3
003  2  37.1
003  3  38.2
003  4  39.3

由于该患者的最后温度大于37。结果应为：

003  1  37.3  0
003  2  37.1  0
003  3  38.2  0
003  4  39.3  0

这个问题确实让我感到沮丧。非常感谢您的帮助。非常感谢。

Answer 1

我明白了。

    data temp;
        set temp;
        retain dontflaganymore;
        by ID;
        if first.ID then dontflaganymore=0;
        if TEMP<37 AND not dontflaganymore then do; flag=1; dontflaganymore=1; end;
        else flag=.;
        drop dontflaganymore;
    run;

想法是

使用伪变量dontflaganymore来确定我们是否已标记温度（为<37）。
保留虚拟变量，以便在下一行中使用它。
并在每次有新ID（by ID; if first.ID then do;）时重置该变量

Answer 2

很好的问题，我也一直在努力。
秘密是从最后到第一查找。

data TempRst;
    set Temp nobs = nobs;
    by ID SEQ;

    LagTemp = Lag(Temp);
    if first.ID then LagTemp = .;
    do i = nobs to _N_ by -1;
        set Temp(rename=(ID=IDTmp SEQ=SEQTmp Temp=TempTmp)) point = i;
        if ID = IDTmp and SEQ < SEQTmp and TempTmp > 37 then do;
            Flag = 0;
            leave;
        end;
        if ID = IDTmp and SEQ < SEQTmp and Temp < 37 and LagTemp > 37 then Flag = 1;
    end;
    Flag = coalesce(Flag,0);
    drop IDTmp SEQTmp TempTmp LagTemp;
run;

对于发现leave大于37的观测值之后，Temp语句对于防止继续搜索非常重要。

如何将TEMP的第一条记录标记为正常？

2 个答案: