求助高手:统计频数 proc mens;

谢谢你的参与,思想我也可以学习下.

虽然没能生成数据集,也是很感谢了,我也学习研究下.

data ss;

ss;

input x y z @@;

x y z @@;

cards;

1 2 3 4 5 1 7 2 1 5 6 1 6 4 2 . 1 1

;

;

1 2 3 4 5 1 7 2 1 5 6 1 6 4 2 . 1 1

;

run;

;

proc contents out=d(where=(type=1)) noprint;run;

contents out=d(where=(type=1)) noprint;run;

proc sql noprint;

select name

,cats('_N1_',name)

into :name separated by ' '

sql noprint;

select name

,cats('_N1_',name)

into :name separated by ' '

select name

,cats('_N1_',name)

into :name separated by ' '

'_N1_',name)

into :name separated by ' '

into :name separated by ' '

,:name1 separated by ' ' from d

;

by ' ' from d

;

quit;

;

data ss1(keep=_n1_:);

set ss end=endof;

retain &name;

array Ary{*} &name;

array _Ary{*} &name1.;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

ss1(keep=_n1_:);

set ss end=endof;

retain &name;

array Ary{*} &name;

array _Ary{*} &name1.;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

set ss end=endof;

retain &name;

array Ary{*} &name;

array _Ary{*} &name1.;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

retain &name;

array Ary{*} &name;

array _Ary{*} &name1.;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

array Ary{*} &name;

array _Ary{*} &name1.;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

array _Ary{*} &name1.;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

do i=1 to dim(Ary);

_ary{i}+(ary{i}=1 | missing(ary{i}));

end;

if endof;

1 | missing(ary{i}));

end;

if endof;

end;

if endof;

if endof;

run;

;

sorry why so many replicates?