プログラムの例

options ls=80;

proc format;
 value $sexfmt '0'='0不詳' '1'='1男' '2'='2女';
 value $departm '0'='不詳' '1'='社会' '2'='社会福祉' '3'='人間形成' '4'='看護' '5'='その他';
run;

data welfare;
infile 'A:\welfare.csv' dsd firstobs=2;
input NO Q1_1 $ Q1_2 $ Q1_3$ Q1_4$ Q1_5$ Q1_6$ Q1_7$ Q1_8$ Q1_9$ Q2$
Q3$ Q3S1$ Q3S2$ Q3S3$ Q3S4$ Q3S5$ Q3S6$ Q3S7$ Q4$ Q5$
Q6_1$ Q6_2$ Q7$ Q8$ Q8S1$ Q8S2$ Q8S3$ Q9$ Q10$ Q10S1$ Q10S2$ Q10S3$
Q11$ Q11S1$ Q11S2$ Q11S3$ Q12$ Q13 Q14 $ departm$ grade$ sex$ quest$ ;

if Q13=99 then Q13=.;

label sex='性別'
    grade='学年'
    departm='学科';
format sex $sexfmt. departm $departm.;
run;

proc print data=welfare;
run;

proc freq data=welfare;
tables Q1_1 Q1_2 Q1_3 Q1_4 Q1_5 Q1_6 Q1_7 Q1_8 Q1_9 Q2
Q3 Q3S1 Q3S2 Q3S3 Q3S4 Q3S5 Q3S6 Q3S7 Q4 Q5
Q6_1 Q6_2 Q7 Q8 Q8S1 Q8S2 Q8S3 Q9 Q10 Q10S1 Q10S2 Q10S3
Q11 Q11S1 Q11S2 Q11S3 Q12 Q13 Q14 departm grade sex quest;
run;

proc means data=welfare maxdec=2 N mean std;
var q13;
run;

proc chart data=welfare;
hbar Q1_1 Q1_2 Q1_3 Q1_4 Q1_5 Q1_6 Q1_7 Q1_8 Q1_9 Q2
Q3 Q3S1 Q3S2 Q3S3 Q3S4 Q3S5 Q3S6 Q3S7 Q4 Q5
Q6_1 Q6_2 Q7 Q8 Q8S1 Q8S2 Q8S3 Q9 Q10 Q10S1 Q10S2 Q10S3
Q11 Q11S1 Q11S2 Q11S3 Q12 Q13 Q14 departm grade sex quest;
run;

proc freq data=welfare;
tables sex*grade/nopercent norow;
run;

proc freq data=welfare;
tables Q12*departm/chisq nopercent norow;
run;

proc freq data=welfare;
tables Q14*departm/chisq nopercent norow;
run;

proc freq data=welfare;
tables Q9*Q5/chisq nopercent;
run;

proc freq data=welfare;
tables grade*departm/nopercent norow;
tables sex*grade/nopercent norow;
tables sex*departm/nopercent norow;
tables sex*grade*departm/nopercent norow nocol;
run;

proc freq data=welfare;
tables (Q1_1 Q1_2 Q1_3 Q1_4 Q1_5 Q1_6 Q1_7 Q1_8 Q1_9 Q2
Q3 Q3S1 Q3S2 Q3S3 Q3S4 Q3S5 Q3S6 Q3S7 Q4 Q5
Q6_1 Q6_2 Q7 Q8 Q8S1 Q8S2 Q8S3 Q9 Q10 Q10S1 Q10S2 Q10S3
Q11 Q11S1 Q11S2 Q11S3 Q12 Q14)*departm/chisq nopercent norow;
run;

proc means data=welfare n mean std min max maxdec=1;
class departm;
var Q13;
run;


トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-01-16 (金) 21:06:18 (3619d)