/* rensyu1解答例  by K.T.   2000/06/14(水) 18:50:06
org. K.Akemi
*/
PROC FORMAT;
	VALUE sexf    1='男' 2='女';
	VALUE gakuf   1='１年' 2='２年' 3='３年';
	VALUE syuf    1='札幌' 2='函館' 3='旭川';
	VALUE syokuf  1='公務員' 2='自営業' 3='教員' 4='フリーター' 5='その他';
RUN;
DATA d1;
	INPUT id sex gaku taiju sincho kyodai syussin syokugyo tv
		fsin msin ei suu koku junni hyotei;
	LABEL id = 'ＩＤ'  sex='性別' gaku='学年' taiju='体重'
		sincho='身長' kyodai='兄弟数' syussin='出身地'
		syokugyo='職業' tv='テレビ視聴時間' fsin='父親の身長'
		msin='母親の身長' ei='英語' suu='数学' koku='国語'
		junni='入学順位' hyotei='評定平均' ;
	FORMAT sex sexf. gaku gakuf. syussin syuf. syokugyo syokuf.;

CARDS;
1001 1 1  55 166 3  2  2 0.5 155 160  21  35  19  35 3.2
1002 1 1  68 182 2  1  3 1.2 169 172  22  60  29  22 3.7
1003 2 1  52 166 2  1  3 0.5 170 164  24  39  48  34 3.4
1004 2 3  49 158 3  2  4 1.2 176 156  26  26  34  37 3.2
1005 1 1  61 170 3  2  3 0.1 165 160  36  24  14  39 3.1
1006 1 3  62 175 3  1  1 3.0 163 159  32  21  27  40 3.0
1007 1 2  63 163 2  3  3 2.3 162 172  69  25  31  38 3.3
1008 2 2  39 152 1  1  5 1.6 168 150  35  27  39  36 3.4
1009 1 3  62 166 3  2  2 2.6 164 158  36  50  36  29 3.6
1010 2 2  65 160 2  3  5 1.2 164 156  37  51  59  27 3.2
1011 2 3  55 165 1  1  3 0.9 168 166  39  42  43  32 3.3
1012 1 2  72 185 3  3  1 3.3 182 166  38  47  70  30 3.5
1013 1 3  70 168 2  2  3 3.4 169 161  45  39  66  33 3.8
1014 2 2  43 153 1  1  2 1.7 163 155  48  60  52  21 3.2
1015 1 2  52 170 2  2  4 2.2 167 165  51  57  50  25 3.4
1016 2 1  51 160 3  3  2 2.9 174 164  51  54  51  26 3.4
1017 2 1  55 161 1  3  3 3.8 169 156  54  66  80  18 3.7
1018 2 1  46 157 2  2  1 1.3 165 155  58  59  64  23 3.9
1019 2 2  46 153 3  3  3 3.1 161 149  60  51  51  28 4.1
1020 1 3  65 166 2  1  3 3.8 164 162  63  58  60  24 4.0
1021 2 3  58 164 1  3  5 0.2 182 159  63  65  62  19 3.3
1022 2 2  .  155 3  2  3 1.6 173 154  65  70  60  14 3.3
1023 1 3  54 164 1  2  2 1.2 170 168  66  62  71  20 4.0
1024 1 1  75 175 3  3  4 2.1 164 170  67  74  67  13 3.6
1025 1 3  68 178 2  2  3 1.2 166 153  88  83  77  10 4.6
1026 1 1  59 168 2  2  3 2.8 160 159  74  78  66  11 4.0
1027 1 2  62 172 2  2  3 0.1 158 163  77  85  94   8 4.6
1028 1 2  69 170 3  2  3 1.9 160 163  80  87  86   7 3.8
1029 2 3  47 165 3  2  2 2.0 172 160  86  90  93   5 5.0
1030 1 3  62 162 2  1  4 .   165 158  87  96  76   2 4.7
;
RUN;

TITLE 'Q1 母親の身長が155cm以上の人';
DATA q1;
	SET d1;
	IF msin>=155;
RUN;
PROC PRINT DATA=q1;
	VAR id msin;
RUN;

TITLE 'Q2 国語の点数が英語の点数より高い人';
DATA q2;
	SET d1;
	IF koku>ei;
RUN;
PROC PRINT DATA=q2;
	VAR id ei koku;
RUN;

TITLE 'Q3 評定の分類';
DATA q3;
	SET d1;
	SELECT;
		WHEN (   0 < hyotei < 3.5) bunrui='低';
		WHEN (3.5 <= hyotei < 4.2) bunrui='中';
		WHEN (4.2 <= hyotei)       bunrui='高';
END;
PROC PRINT DATA=q3;
	VAR id hyotei bunrui;
RUN;


TITLE 'Q4 本人身長と父親身長の差(大きい順）';
DATA q4;
	SET d1;
	sa=sincho-fsin;
RUN;

PROC SORT DATA=q4;
	by descending sa;
RUN;
PROC PRINT DATA=q4;
	VAR sincho fsin sa ;
RUN;

TITLE 'Q5 視聴時間と評定平均の相関';
PROC CORR DATA=d1;
	VAR tv hyotei;
RUN;

TITLE 'Q6 視聴時間と評定平均の相関図';
PROC PLOT DATA=d1;
	PLOT tv*hyotei='A';
	LABEL tv='TV';
RUN;

TITLE'Q7 性別と学年のクロス集計表';
PROC FREQ DATA=d1;
	TABLES sex*gaku;
RUN;

TITLE'Q8 本人の身長と, 体重, 父親の身長,母親の身長間の相関';
PROC CORR;
	VAR taiju fsin msin;
	WITH sincho ;
RUN;


TITLE 'Q9 兄弟がいるなしの男女差';
DATA q9;
	SET d1;
	SELECT;
		WHEN (kyodai=1) bnnr='一人っ子';
		WHEN (kyodai>1) bnnr='兄弟有り';
	END;
RUN;
PROC FREQ DATA=q9;
	TABLES bnnr*sex /CHISQ;
RUN;

TITLE'Q10 入学順位と評定平均の相関';
PROC CORR DATA=d1;
	VAR junni hyotei;
RUN;

TITLE 'Q11 テレビ視聴時間の男女差';
PROC TTEST DATA=d1;
	CLASS sex;
	VAR tv;
RUN;


TITLE 'Q12 入学順位に影響を与えている科目';
PROC CORR DATA=d1;
	VAR ei suu koku;
	WITH junni;
RUN;

TITLE 'Q12の別解 入学順位に影響を与えている科目';
PROC REG data=d1;
	MODEL junni=ei suu koku;
RUN;