/******************************************************
 ＳＡＳ実践問題集           by K.T.

問題番号の後の（）内のアルファベットは難易度をしめす。
Ａは入門,Ｂは初級,Ｃは中級...と後の文字程難しい
prac97_02.SAS Ver1.3 1997/11/28（金）16:30:28
*******************************************************/

PROC FORMAT;
  VALUE sexf 1='男' 2='女';
  VALUE $ btf 'a'='A型' 'b'='B型' 'o'='O型' 'ab'='AB型' 'x'='不明';
  VALUE coursef 1='文学部' 2= '法学部' 3='教育学部' 4='工学部'
                5='理学部' 6='水産学部' 7='経済学部';
  VALUE q0201f 4='非常に異なる' 3='わりあい異なる' 2='どちらとも言えない'
               1='あまり異ならない' 0='全く関係がない';
  VALUE q0301f 4='非常に関心がある' 3='わりあい関心がある' 2='どちらとも言えない'
               1='あまり関心がない' 0='全く関心がない';
  VALUE q0401f 4='必ず読む' 3='わりあい読む' 2='気がむいたら読む'
               1='あまり読まない' 0='全く読まない';
  VALUE q0402f 1='すべて信じる' 2='自分で信頼できそうだと思ったものは信じる'
               3='自分にとって良い内容のものだけ信じる' 4='信じないが気になる'
               5='｢ふ−ん,そう｣と思う程度' 6='くだらないと思う' 7='その他';
  value q0501f 1='０人' 2='１〜５人' 3='６〜１０人'
               4='１１〜２０人' 5='２１人以上';
  VALUE q0607f 0='なし' 1='あり';
  VALUE q0700f 1='ある' 0='ない';
  VALUE $ q09f 'a'='A型' 'b'='B型' 'o'='O型' 'ab'='AB型' 'x'='不明';
RUN;

DATA d1;
  INFILE 'prac7_02.dat' LRECL=500;
  INPUT id birth yymmdd6. sex bt$ course q0101 q0201 q0301
        q0401 q0402 q0501 q0502 q0503
        q06a1 q06a2 q06a3 q06a4 q06a5 q06a6 q06a7 q06a8
        q06b1 q06b2 q06b3 q06b4 q06b5 q06b6 q06b7 q06b8/
        q0700 q0701 q0702 q0703 q0704 q0705
        q0801 q0802 q0803 q0804 q0805 q0806 q0807
        q0808 q0809 q0810 q0811 q0812 q0813 q0814 q0815/
        q0901$ q0902$ q0903$ q0904$;
  LABEL id='ID番号' birth='生年月日' sex='性別' bt='血液型'
        course='所属' q0101='血液型性格判断を知った時期'
        q0201='血液型によって性格が異なるか'
        q0301='血液型性格判断への関心'
        q0401='雑誌の血液型性格判断等を読む割合'
        q0402='雑誌の血液型性格判断への態度'
        q0501='血液型を知っている友人知人の人数'
        q0502='友人の人数' q0503='血液型を知っている友人の人数'
        q06a1='血液型性格判断の話題−  対家族' q06a2='  −  対恋人'
        q06a3='  −  対同性の友人' q06a4='  −  対異性の友人'
        q06a5='  −  対初対面の人'  q06a6='  −  対親しくない人'
        q06a7='  −  話題にしない' q06a8='  −  その他'
        q06b1='  −  性格の話題に伴って' q06b2='  −  血液型の話題に伴って'
        q06b3='  −  話題がないとき' q06b4='  −  テレビ等のきっかけで'
        q06b5='  −  他の人の会話中' q06b6='  −  酒席において'
        q06b7='  −  話題にしない' q06b8='  −  その他'
        q0700='血液型の好き嫌いの有無' q0701='好き嫌いの理由−  イメ−ジの好悪'
        q0702='  −  自分の血液型だから'
        q0703='  −  特定の個人のイメージにより'
        q0704='  −  自分との相性による' q0705='  −  その他'
        q0801='信頼の程度−  血液型性格判断' q0802='  −  超能力'
        q0803='  −  心霊現象' q0804='  −  宇宙人'
        q0805='  −  死後の世界' q0806='  −  神仏' q0807='  −  たたり'
        q0808='  −  星占い' q0809='  −  手相' q0810='  −  知能検査'
        q0811='  −  ウソ発見器' q0812='  −  多重人格' q0813='  −  金縛り'
        q0814='  −  おみくじ' q0815='  −  夢判断'
        q0901='性格特性の判断−  Ｉ' q0902='  −  II'
        q0903='  −  III' q0904='  −  IV' age='年齢' ;
  FORMAT sex sexf. bt btf. course coursef. q0201 q0201f. q0301 q0301f.
         q0401 q0401f. q0402 q0402f. q0501 q0501f.
         q06a1-q06a8 q0607f. q06b1-q06b8 q0607f.
         q0700 q0700f. q0701-q0705 q0607f.
         q0901-q0904 q09f.;
/*
Ｑ１（Ｃ）
変数idが８４以下の場合は実験日(変数名expdate)が９７年６月１８日,
８５以上１２２以下の場合は実験日(変数名expdate)が９７年１０月２３日,
１２３以上の場合は実験日(変数名expdate)が９７年１１月０６日になるように
日付を設定したい。そして,誕生日（変数名birth)から年齢を計算で求め,
変数ageに代入したい（変数ageは整数とする）。
さあ,どうする？
*/
RUN;

/*
Ｑ２(Ａ）
平均年齢とその標準偏差を出力したい。さあ,どうする？
*/

/*
Ｑ３（Ａ）
所属と血液型のクロス集計表を作成したい。さあ,どうする？
*/

/*
Ｑ４（Ｂ）
年齢を「18歳以下」,「19歳」,「20歳」,「21歳以上」に分け,それぞれの名前を
変数ageageに代入して,その(ageageの）度数分布表を作成したい。
さあ,どうする？
*/

/*
Ｑ５（Ｂ）
各信頼度項目（q0801-q0815）の平均と標準偏差を性別ごとに出力したい。
さあ,どうする？
*/

/*
Ｑ６（Ａ）
星占いと手相の信頼度（q0808-q0809）の相関を調べたい。さあ,どうする？
*/

/*
Ｑ７（Ｂ）
血液型性格判断を知った時期（q0101）の平均値の男女差を検定したい。
さあ,どうする？
*/

/*
Ｑ８(Ｃ）
性格特性の判断（q0901-q0904）の全問正解者とそうでない者とで男女差があるか
どうかを知りたい。q0901はa,q0902はb,q0903はab,q0904はoが正解である。
「全問正解者」または「そうでない者」は変数q09QQに入れたい。
さあ,どうする？
*/

/*-------------  以下 prac7_02.dat -------------------------
001 780620 1 a 1  10 2 3 2 3 3 . .  0 0 1 0 0 0 0 0  1 0 0 0 0 0 0 0
                  0 0 0 0 0 0  55 45 00 100 25 25 45 55 35 75 85 100 55 45 75
                  a ab b o
002 761204 2 b 4  8 2 3 2 5 3 . .  1 0 1 1 0 0 0 0  1 1 0 1 1 0 0 0
                  0 0 0 0 0 0  75 35 35 100 10 10 10 25 80 55 85 85 55 00 45
                  a b ab o
085 750702 2 o 3  12.5 1 1 4 5 . 26 0  0 0 0 0 0 0 1 0  1 1 0 0 0 0 0 0
                  0 0 0 0 0 0  10 60 60 50 70 00 20 70 60 50 50 80 60 40 60
                  o a b ab
086 790314 1 b 1  6 2 3 4 4 . 10 6  0 0 1 1 1 1 0 0  1 1 0 0 0 0 0 0
                  1 0 0 0 1 0  70 50 70 10 100 60 50 80 80 40 10 80 100 80 70
                  . . . .
087 780919 1 o 2  0 3 4 3 3 . 5 5  0 1 0 1 1 0 0 0  1 1 0 0 1 0 0 0
                  1 0 0 1 0 0  35 50 80 20 100 100 10 20 55 100 65 75 75 95 45
                  ab b a o
*/