/*产生测试数据:假设数据变量名,没有规律可以先重命名,33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
if i<10 then
sample='ysp30'||compress(i);
else
sample='ysp3'||compress(i);
do j=1 to 33;
medn(j)=ranuni(0);
end;
output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
do i=1 to 33;
mednmean(i)=medn(i);
end;
else if _n_=2 then
do i=1 to 33;
mednstd(i)=medn(i);
end;
else
do i=1 to 33;
medn(i)=(medn(i)-mednmean(i))/mednstd(i);
end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;
/*产生测试数据:假设数据变量名,没有规律可以先重命名,33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
if i<10 then
sample='ysp30'||compress(i);
else
sample='ysp3'||compress(i);
do j=1 to 33;
medn(j)=ranuni(0);
end;
output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
do i=1 to 33;
mednmean(i)=medn(i);
end;
else if _n_=2 then
do i=1 to 33;
mednstd(i)=medn(i);
end;
else
do i=1 to 33;
medn(i)=(medn(i)-mednmean(i))/mednstd(i);
end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;
/*产生测试数据:假设数据变量名,没有规律可以先重命名,33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
if i<10 then
sample='ysp30'||compress(i);
else
sample='ysp3'||compress(i);
do j=1 to 33;
medn(j)=ranuni(0);
end;
output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
do i=1 to 33;
mednmean(i)=medn(i);
end;
else if _n_=2 then
do i=1 to 33;
mednstd(i)=medn(i);
end;
else
do i=1 to 33;
medn(i)=(medn(i)-mednmean(i))/mednstd(i);
end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;
/*产生测试数据:假设数据变量名,没有规律可以先重命名,33是数据变量的个数*/
data test;
retain sample;
array medn(33);
do i=1 to 14;
if i<10 then
sample='ysp30'||compress(i);
else
sample='ysp3'||compress(i);
do j=1 to 33;
medn(j)=ranuni(0);
end;
output;
end;
drop i j;
run;
/*求每个变量的均值和标准差*/
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
/*将标准差和均值合并到源数据中*/
data testall;
set testmean teststd test;
run;
/*计算每个(变量的值-均值)/标准差*/
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
do i=1 to 33;
mednmean(i)=medn(i);
end;
else if _n_=2 then
do i=1 to 33;
mednstd(i)=medn(i);
end;
else
do i=1 to 33;
medn(i)=(medn(i)-mednmean(i))/mednstd(i);
end;
run;
/*删除多余变量和观测值*/
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;
data test;
retain sample;
array medn(33);
do i=1 to 14;
if i<10 then
sample='ysp30'||compress(i);
else
sample='ysp3'||compress(i);
do j=1 to 33;
medn(j)=ranuni(0);
end;
output;
end;
drop i j;
run;
proc means data=test mean std;
output out=testmeans;
run;
data testmean;
set testmeans;
if _stat_="MEAN";
RUN;
data teststd;
set testmeans;
if _stat_="STD";
RUN;
data testall;
set testmean teststd test;
run;
data result;
set testall;
array mednmean(33) ;
array mednstd(33);
array medn(33);
retain mednmean mednstd;
if _n_=1 then
do i=1 to 33;
mednmean(i)=medn(i);
end;
else if _n_=2 then
do i=1 to 33;
mednstd(i)=medn(i);
end;
else
do i=1 to 33;
medn(i)=(medn(i)-mednmean(i))/mednstd(i);
end;
run;
data result;
retain sample;
set result;
keep sample medn1-medn33;
if _stat_="MEAN" then delete;
if _stat_="STD" then delete;
run;