Hi,
Solution was already provided but just for fun: Proc Tabulate & ODS listing + a data step:
data have;
input patientid drug hgb hct ast alt bun rbc ldl ;
cards4;
1 1 0 1 0 1 1 0 0
2 0 1 0 0 0 0 1 0
3 1 1 1 1 1 1 0 0
4 0 1 0 1 0 0 0 1
5 1 1 1 1 1 1 0 0
6 1 0 1 0 1 1 0 0
7 0 1 0 0 0 0 0 1
8 1 1 1 1 1 0 1 0
9 0 1 0 1 0 1 0 0
0 0 1 1 1 1 1 0 0
;;;;
run;quit;
ods listing close;
options ls = MAX nodate nocenter;
filename t TEMP lrecl=500;
ods listing file = t;
title; footnote;
proc tabulate data = have noseps;
class drug;
var hgb hct ast alt bun rbc ldl;
table (hgb hct ast alt bun rbc ldl),
drug=" " * (sum=" "*f=best32. mean=" "*f=best32.)
/
;
run;
ods listing close;
data want;
infile t dlm="|" missover;
input type : $ n_0 pcnt_0 n_1 pcnt_1;
format n_: 5.0 pcnt_: percent12.0;
if nmiss(n_0,pcnt_0,n_1,pcnt_1) = 0;
run;
proc print data = want;
run;
filename t CLEAR;
ods listing;
All the best
Bart
... View more