data a;
input subjid 字符4. n02aa n02ab n02ae;
cards;
1154 1 0 1
1155 1 1 1
1156 1 0 0
1157 0 1 0
1158 1 1 0
1159 1 1 1
1160 1 1 1
;
run;
data bb;
length all $32766;
set a;
/* all="";*/
array num _numeric_;
do over num;
/* if num=1 then all=cats(vlabel(num),all);*/
all=cats(vvalue(num),all);
end;
run;
proc freq data=bb;
table all/out=cc;
run;