简历投递邮箱: <!-- e --><a href="mailto:clintrialstat@yahoo.com">clintrialstat@yahoo.com</a><!-- e --> or <!-- e --><a href="mailto:support@clintrialstat.com">support@clintrialstat.com</a><!-- e -->
(1)邮件请附上作者最近SAS 程序作品;
(2) 讲解本例的SAS程序;
libname dev 'C:\SAS data';
proc sort data=dev.SAMPLE
out=SAMPLE;
by TRTMT;
whereGroup. ne .;
run;
/** Calculate Responders and percent **/
proc sql;
create table Resp as
select distinct TRTMT, Group., count( distinct Usubjid) as cases
from SAMPLEwhere Resp =1
group by TRTMT, Group.
order by TRTMT, Group.
;
create table All as
select distinct TRTMT, Group., count( distinct Usubjid)as npts
from SAMPLE
group by TRTMT, Group.
order by TRTMT, Group.
;
quit;
data Et;
length Rslt $ 100.;
mergeAll(in=A) Resp;
by TRTMTGroup.;
if A;
ifcases =. then cases=0;
Rslt =put( cases, 4.0) || '/' || compress(put( npts, 4.0)) || ' (' || compress( put(cases / npts *100, 4.1)) || ')';
run;
proc sort data=ET;
by Group.TRTMT;
run;
proc transpose data=ET out=TET prefix=T_;
var Rslt;
byGroup.;
id TRTMT;
run;
data _NULL_;
length ft$162.;
ft=%str(repeat("_", 160));
callsymput('f1', ft);
ft=%str("(c) N is the number of subjects who had baseline evaluation and atleast one post-baseline evaluation of the measurement that define thesubgroup.");
callsymput('f2', ft);
run;