Question

我正在寻找一种通过SAS宏打印出每个科目的考试成绩变化的方法。这是数据示例：

Subject    Visit       Date       Test       Score
001        Baseline    01/01/99   Jump       5
001        Baseline    01/01/99   Reach      3
001        Week 6      02/12/99   Jump       7
001        Week 6      02/12/99   Reach      6
002        Baseline    03/01/99   Jump       2
002        Baseline    03/01/99   Reach      4
002        Week 6      04/12/99   Jump       5
002        Week 6      04/12/99   Reach      9

我想创建一个宏，为每个主题生成以下内容：

Subject    Visit       Date (Days from Baseline)       Test       Score    Change from Baseline Score
001        Baseline    01/01/99                        Jump       5         
                       01/01/99                        Reach      3         
001        Week 6      02/12/99    (42)                Jump       7        +2
                       02/12/99    (42)                Reach      6        +3
002        Baseline    03/01/99                        Jump       2
                       03/01/99                        Reach      4
002        Week 6      04/12/99    (42)                Jump       5        +3
                       04/12/99    (42)                Reach      9        +5

我相信我只能在“基准天数”中使用INTCK函数，但是我不确定如何在不保留每一行的“主题”和“访问”值的情况下打印出每个测试。任何帮助将非常感激。

Answer 1

这是一种方法。 SQL步骤从基线计算更改。 case-when-construct仅在其中抑制输出中的零。

在proc报告中使用组变量进行打印意味着不会在每一行上保留主题和访问值（但请注意，每周不会重复主题）。

我将代码放在宏中，因为这就是问题所在。但是，它实际上并没有做太多。

/*  Creating test data*/
data testdata;
    input Subject $3.  @5 Visit $8.  @17 Date mmddyy10. @28 Test $5. Score;
    format date mmddyy10.;
datalines;
001 Baseline    01/01/99   Jump       5
001 Baseline    01/01/99   Reach      3
001 Week 6      02/12/99   Jump       7
001 Week 6      02/12/99   Reach      6
002 Baseline    03/01/99   Jump       2
002 Baseline    03/01/99   Reach      4
002 Week 6      04/12/99   Jump       5
002 Week 6      04/12/99   Reach      9
;

%macro baselines(dataset=);
    /*  Adding days from baseline and change from baseline. Please note that the first visit 
    must denoted as exactly "Baseline"*/
    proc sql;
        create table changes as 
        select t1.*, case when t1.date-t2.date>0 then t1.date-t2.date else . end  as days 
            "Days from baseline", case when t1.score-t2.score>0 then t1.score-t2.score else . 
            end as score_change "Change from Baseline"
        from &dataset as t1 left join (select * from &dataset where visit="Baseline") as t2
            on t1.subject=t2.subject and t1.test=t2.test
        order by subject, visit, test;

    /*  Printing the dataset. The use of subject and visit as group variables keeps SAS from repeating the values*/
    title "Changes based on the dataset &dataset";
    proc report data=changes;
        column subject visit days test score score_change;
        define subject / group;
        define visit / group;
    run;
%mend;
%baselines(dataset=testdata)

Answer 2

您可以使用保留日期和得分来按测试和过程进行排序，以计算增量。可以使用Proc REPORT进行打印，并适当设置增量值的格式。

示例：

data have; input 
Subject    Visit& $8.  Date& mmddyy8. Test $ Score; format date mmddyy8.; datalines;
001        Baseline    01/01/99   Jump       5
001        Baseline    01/01/99   Reach      3
001        Week 6      02/12/99   Jump       7
001        Week 6      02/12/99   Reach      6
002        Baseline    03/01/99   Jump       2
002        Baseline    03/01/99   Reach      4
002        Week 6      04/12/99   Jump       5
002        Week 6      04/12/99   Reach      9
run;

proc sort data=have;
  by subject test date;
run;

data for_report;

  set have;
  by subject test;

  retain base_date base_score;

  if first.subject then do;
    base_date = .;
    base_score = .;
  end;

  if first.test and visit='Baseline' then do;
    base_date = date;
    base_score = score;
  end;

  if not first.test then do;
    delta_days = intck('days', date, base_date);
    delta_score = score - base_score;
  end;

run;


proc format;
  picture plus low-0 = [best12.] other = '000000009' (prefix='+');

options missing=' ';
proc report data=for_report;
  columns subject visit date delta_days test score delta_score;
  define subject / order;
  define visit / order order=data;
  format delta_days negparen.; 
  format delta_score plus.;
run;
options missing='.';

备用报告可以更以主题为中心：

proc report data=for_report
  style(lines) = [just=left fontweight=bold]
;
  columns subject visit date delta_days test score delta_score;
  define subject / order noprint;
  define visit / order order=data;
  format delta_days negparen.; 
  format delta_score plus.;
  compute before subject;
    subj = catx(' ', "Subject:", subject);
    line subj $200.;
  endcomp;
run;

SAS宏可打印出基线得分的变化

2 个答案: