闫浪 发表于 2020-9-23 16:46
几年了,来签个到
/*1*/
data test;
input name $ sex $ class1 class2 group @@;
datalines;
A1 M 92 98 1
A2 F 89 106 1
A3 M 86 90 1
A4 M 95 92 2
A5 F 98 101 2
A6 F 91 92 2
A7 M 93 99 3
A8 F 96 102 3
A9 M 88 98 3
;
run;
data chengji1 chengji2 chengji3;
set test;
if _n_ in (1 2 3) then output chengji1;
if _n_ in (4 5 6) then output chengji2;
if _n_ in (7 8 9) then output chengji3;
run;
/*2*/
data chengji0;
set chengji1 chengji2 chengji3;
run;
/*3*/
data chengji;
set chengji0;
mean=(class1+class2)/2;
run;
proc sort;
by descending mean name;
run;
/*4*/
data math90;
set chengji;
where class1>90;
run;
/*5*/
proc sort data=chengji;
by group mean;
run;
data last;
set chengji;
by group mean;
if first.group;
keep name group mean;
run;
/*6*/
proc sql;create table math as select avg(class1) as avg1,sum(class1) as sum1 from chengji;quit;
/*7*/
proc sql;create table math as select *,avg(class1) as avg1,sum(class1) as sum1,(class1-avg(class1)) as chg from chengji;quit;
/*8???*/
proc suveyselect data=chengji method=SRS samprate=0.3;
run;
/*9*/
proc corr data=chengji plots=matrix;
var class2 class1 ;
run;
/*10*/
%macro part(y,z);
data x;
set chengji;
if &y.<class1<&z. then output;
run;
%mend;
/*%part(y,z);*/
/*11*/
%part(80,90);
/*12???*/
/*13???*/
有几题不会,不知道有没有人能解答下