常用抽样SAS程序归纳.pdf

常用抽样 SAS程序

目前，各医学论坛上都有大量的‘执业医师考题’等内容。对于选择题而言，最让人感兴趣的是

那部分带答案的考题。显然，希望能做一下，后与答案对照验证和锻炼自己的实际水平。但是，带答案

内容的弊病就是当读者阅读考题时便不由自主的先看了答案， 使目的不能达到。 改变这种尴尬状态需要

事先把考题和其对应的答案部分分离出来， 进行自我测验完毕后再根据需要调配答案自动对照改分。 由

于该种抽样一个观测会包含很多的行， 加之此后还有拆、 合变化实际操作起来会有很大的困难， 所以目

前，不论是医学杂志亦或是相关网站，还是专业统计学论坛、书籍、杂志针对这样类型的抽样未见。基

于此，本人根据实际使用经验，针对固定格式的 txt 文件写了 sas 代码，运行效果满意。

数据来源

抽取等。

1 考题和答案的分离处理

编程将考题内容输出到 output 窗口和桌面，而考题答案输出到桌面 txt 文档供以后需要时调用、打

开观。

程序第一部分

data a;

infile 各病种练习题 肺炎练习题 .txt' ;

length x $ 100. ;

do i= 1 to 7 ;

input x & $; if _n_<= 71 | _n_ > 91 then delete ;/* 选第 11-20 题*/

output ; end ;

data b(keep=x); set a;

file ' 桌面 试题集内容 .txt' ; where i< 7; put x $;

file ' 桌面 试题集答案 .txt' ; where i= 7 ; put x $;

分。

程序第二部分（示例）

data d; input no y $ @@; drop no ; cards ;/* 注意：答题所用字母的大小写应与答案一致 */

11 B 12 D 13 E 14 D 15 E

16 E 17 E 18 E 19 D 20 D

21 C 22 C 23 E 24 D 25 D

26 E 27 C 28 A 29 D 30 D

;

data e(keep=x y g df); merge c d;

if y=x then g = ' √ ' ; if y^=x then g= ' ×' ; if g= ' √' then d= 1; else d= 0;no+ 1 ;

input x & $;

output ; end ;

data b; set a; where i> 1 ; file ' 桌面 试题集内容 .txt' ; put x;

data c; set a; where i= 1 ; if _n_= 1 then delete ; file ' 桌面 试题集答案 .txt' ; put x;

proc print data =b; run ;

自动批改系统用程序第二部分稍加修改

程序第四部分

data D; input no y $ @@; drop no ; cards ;

1 E 2 C 3 A 4 C 5 C 6 C 7 A 8 C 9 D 10 A

11 E 12 C 13 B 14 C 15 C 16 D 17 B 18 E 19 B 20 B

;

程序第五部分

data a;

proc sql ;

create view wxq1638 as select *,normal( 0) as w from a /* view 可改为 table*/

order by calculated w;

data b; set wxq1638(obs= 20);/* 抽取 20题*/

drop w;

data c;

infile 各病种练习题 肺炎练习题 .txt' ;

length x $ 100. ;

do n= 1 to 61;

do i= 1 to 7;

proc sql ;

create table wxq16888 as

from c ,b

where n1=n;

data d;

set wxq16888; drop n n1;