/* Lesson 09-1 */ /* File Name = les0901.sas 12/08/20 */ data kenshin; input name $ shintyou taijyuu; cards; Hara 181 86 Ramirez 178 98 Yano 181 81 Sasaoka 185 90 Yoda 182 84 Takatsu 180 75 ; proc print data=kenshin; run; proc means data=kenshin; run;
                                                                           13
                                   2020$BG/(B12$B7n(B 7$BF|(B $B7nMKF|(B 21$B;~(B47$BJ,(B02$BIC(B
                    Obs    name       shintyou    taijyuu
                     1     Hara          181         86  
                     2     Ramirez       178         98  
                     3     Yano          181         81  
                     4     Sasaoka       185         90  
                     5     Yoda          182         84  
                     6     Takatsu       180         75  
                                                                           14
                                   2020$BG/(B12$B7n(B 7$BF|(B $B7nMKF|(B 21$B;~(B47$BJ,(B02$BIC(B
                            MEANS $B%W%m%7%8%c(B
$BJQ?t(B        N            $BJ?6Q(B        $BI8=`JP:9(B          $B:G>.CM(B          $B:GBgCM(B
-----------------------------------------------------------------------------
shintyou    6     181.1666667       2.3166067     178.0000000     185.0000000
taijyuu     6      85.6666667       7.8655366      75.0000000      98.0000000
-----------------------------------------------------------------------------
/* Lesson 9-1 */ : $B%3%a%s%H!"/* File Name = les0901.sas 12/08/20 */ : $B8e!9$N5-O?$N$?$a$N%a%b(B : $B8+0W$5$N$?$a$N6u9T(B data kenshin; : $B%G!<%?L>$NDj5A(B input name $ shintyou taijyuu; : $BFI$_9~$`JQNLL>!"7?(B($$B$OJ8;z7?$r<($9(B) cards; : $B%G!<%?$N;O$^$j$r<($9(B Hara 181 86 : Case 1 Ramirez 178 98 : Case 2 Yano 181 81 : Case 3 Sasaoka 185 90 : Case 4 Yoda 182 84 : Case 5 Takatsu 180 75 : Case 6 ; : $B%G!<%?$N=*$j$r<($9(B proc print data=kenshin; : $BFI$_9~$s$@%G!<%?$NI=<((B run; : $B>e5-$N proc means data=kenshin; : $BJ?6QCMEy$N;;=P(B run; : $B>e5-$N 
                                                                           13
                                   2020$BG/(B12$B7n(B 7$BF|(B $B7nMKF|(B 21$B;~(B47$BJ,(B02$BIC(B
                    Obs    name       shintyou    taijyuu
                     1     Hara          181         86  
                     2     Ramirez       178         98  
                     3     Yano          181         81  
                     4     Sasaoka       185         90  
                     5     Yoda          182         84  
                     6     Takatsu       180         75  
                                                                           14
                                   2020$BG/(B12$B7n(B 7$BF|(B $B7nMKF|(B 21$B;~(B47$BJ,(B02$BIC(B
                            MEANS $B%W%m%7%8%c(B
$BJQ?t(B        N            $BJ?6Q(B        $BI8=`JP:9(B          $B:G>.CM(B          $B:GBgCM(B
-----------------------------------------------------------------------------
shintyou    6     181.1666667       2.3166067     178.0000000     185.0000000
taijyuu     6      85.6666667       7.8655366      75.0000000      98.0000000
-----------------------------------------------------------------------------
  
[$B;29M(B:$B%G!<%?$r8+$D$1$F$/$k:]$N;29M%5%$%H$NNc(B] :
[$B;29M(B] : $B%F%-%9%H!&%U%!%$%k$N9TKv%3!<%I$rJQ99$9$k(B
 /* Lesson 10-01 */
 /*    File Name = les1001.sas  12/15/20   */
options nocenter linesize=78 pagesize=30;             : $B2hLL=PNO%5%$%:;XDj(B
options locale='en_US';                               : $B=PNO$r1Q;zI=5-$K$9$k(B
proc printto print = 'StatM20/les1001-Results.txt' new; : $B7W;;7k2L$rD>@\%U%!%$%k=PNO(B
data dragons;                                         : $B%I%i%4%s%:%G!<%?(B
  infile 'StatM20/Dragons20.csv'                      : $B%U%!%$%k$NJ]B8>l=j(B
    firstobs=8 dlm=',' dsd missover                   : $B%U%!%$%kFC@-(B
    encoding=sjis termstr=crlf;
  input No $ Name : $24. Pos $ DoBY DoBM DoBD         : $BFI$_9~$`JQ?t(B($B9`L\(B)$B$N%j%9%H(B
        shintyou taijyuu tou $ da $ bikou $;          : $BJ#?t9T$K$o$?$C$F(B
proc print data=dragons(obs=20);          : $B@hF,(B20$B%1!<%9$rI=<((B
run;
proc means data=dragons;                  : $BJ?6QCMEy$r;;=P(B
run;
proc freq data=dragons;                   : $BIQEY$r;;=P!#8D!9!u%/%m%9=87W(B
  table DoBY DoBM tou da tou*da;
run;
proc chart data=dragons;                  : $B%R%9%H%0%i%`$rIA$/(B
  hbar shintyou;                          : $B?eJ?K@%0%i%U!#JQNL$r;XDj(B($BJ#?t;XDj$b2D(B)$B!#(B
  vbar shintyou;                          : $B?bD>K@%0%i%U!#JQNL$r;XDj(B($BJ#?t;XDj$b2D(B)$B!#(B
  hbar DoBY;
  vbar DoBY;
run;
proc univariate data=dragons plot;        : $B4pACE}7WNL$N;;=P!#(Bplot $B%*%W%7%g%s$r;XDj!#(B
  var shintyou;                           : $B;XDj$7$?JQNL$K$D$$$F(B
run;
ods listing;                              : $B%0%i%U$r%-%c%i%/%?!<%W%m%C%H$G=PNO$9$k>l9g(B
ods graphics off;                         :
proc univariate data=dragons plot;
  var shintyou;
run;
    $B!ZH/E8(B1$B![(B $BBh(B11$B@a$N%W%m%7%8%c!<$r$^$@@bL@$7$F$$$J$$$,!"??;w$r$7$FMxMQ$7$F$_$h!#(B
 
  
    
$B!ZH/E8(B2$B![(B $B>e5-$N%W%m%0%i%`$G$OETF;I\8)L>$,e:No$KFI$_9~$a$F$$$J$$$h$&$@(B($B@hF,(B2$BJ8;z$N$_(B)$B!#$5$F!"$I$&$9$k(B?