关于考试成绩区分度分析代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

一直以来，通过经管之家，学习了大量的数据处理知识，也从中下载很多实用的资料，非常感谢！
最近，我想在教育数据分析与sas方面有所涉略，下面是关于考试成绩区分度分析的代码，公布在这里有两个目的：其一是欢迎sas高手给予优化和指正；其二希望对有兴趣的朋友能够有点启发。

data m;
input banji score; /*输入班级和分数，其实班级在这里是没有实际意义的*/
cards;
1 56
1 78
1 68
1 56
1 98
2 74
2 67
2 85
2 92
;
/*如果是已有的数据表，就不需要创建一个表了*/
proc sql;
create table m as /*创建一个数据表m*/
/*如果是已有的数据表，就不需要创建一个表了*/
select *,count(score) as sum
from m;   /*把score的计数赋值给sum*/
quit;
proc sort;
by score;/*按照score从小到大排序*/
run;
data m;
set m;
length group1 $10;
pctn=_n_/sum;
if pctn<=0.27 then group1='1';
else if 0.27<pctn<=0.73 then group1='2';
else if 0.73<pctn then group1='3';
run;/*根据百分位分成高（group=3）、中（group=2）、低（group=1）三组*/
proc sql;
create table qufendu  as select avg(score), group1 from m
group by group1;
quit; /*按照分组情况，计算平均值，并把这些值储存至新创建的qufendu表*/
proc transpose data=qufendu out=trsqfd;
run;/*转置qufendu表，新生成为trsqfd表，这样原来的高、中、低三个组就变成了变量*/
data qfdout1;
set trsqfd;
if _n_=1 then qufendu=(col3-col1)/100;/*取第一行观测值，实质上只有一行，进行计算，用col3（高分组均值）减去col1（低分组均值）除以卷子的满分（假设试卷满分为100），运用区分度公式计算得到区分度*/
run;
proc print data=qfdout1;/*输出区分度值*/
var qufendu;
run;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：sas