$BJ?6QCM$N?dDj$H8!Dj!"%0%k!<%WJ,$1(B

$BE}7W2r@O(B 05 $B%/%i%9(B : $BBh(B09$B2s(B (11/26/08)

$B!!:#2s$O!"J?6QCM$N?dDj$H8!Dj$K$D$$$F!"$=$N9M$(J}$r>R2p$7$?8e!"(B SAS $B$GBN83$7$F$b$i$&!#(B $B$=$N8e$K!"Mb=5$K$D$J$2$k$Y$/!"%0%k!<%WKh$N=87WJ}K!$K$D$$$F@bL@$9$k!#(B
  1. $B%l%]!<%H$rGR8+$7$F(B & $B@hGZ$NNc$+$i(B: $BDs=P$BO"Mm%Z!<%8(B $B$K7G:\(B
    i. SAS, $BA`:n4XO"(B
    • $B%W%m%0%i%`$O<+:n$G$-$k$h$&$K$J$C$?$+(B? Log $B$NFI$_J}!#%(%i!<$N=$@5J}K!(B(Debug)$B!#7P83$r=E$M$k!#(B
    • $BE}7W $BEE;R2=$d%G!<%?$NAwAw%b!<%I$d4A;z%3!<%I(B)$B$O=,F@$G$-$?$+(B?
    • $Be:No$J%W%m%0%i%`$r=q$3$&(B : $BCJ2<$2!"%3%a%s%H!"8eF|$N$?$a$N3P$((B

    • $B2hLL%5%$%:$rJQ99$7$F$$$k?M$O!"=PNO$N2#I}$KCm0U!#(B PuTTY $B$N%G%U%)%k%H$N%5%$%:$G)$a$k!#(B(80$B%+%i%`L$K~(B)$B!#(B
      $B$b$7$/$O!"0J2<$N9T$r%W%m%0%i%`$N%3%a%s%H$ND>8e$KF~$l$k!#(B 
      options linesize=72;
    ii. $B%l%]!<%H:n@.4XO"(B
    • $B%l%]!<%H$X$N5-:\;v9`(B : $B;aL>!"3X@RHV9f!"%a!<%k$N(B Subject ...
    • $B>ON)$F(B : $B2r@O$NL\E*(B($B6=L#$r;}$C$?E@(B)$B!"BP>]%G!<%?!"J,@OJ}K!!"J,@O7k2L!"9M;!(B($BCN8+!"46F0!"(B...)
    • $B%G!<%?$N@bL@(B : $B=PE8(B($BK\(B, URL $BEy(B)$B!#8D!9$NJQNL$O2?$rB,Dj$7$?$b$N$J$N$+!#%5%$%:!"JQNL$N@bL@!"@:EY!#3X@8%G!<%?$KBP$7$F$b!#(B
    • SAS $B$N=PNO$NM-8zMxMQ(B : $B0zMQNL!#I,MWItJ,$rE,59!#@bL@$r2C$($k!#(B $B%@%i%@%i$H0zMQ$7$J$$!#(B
    • $BFI/$J$/$9$k$h$&$KG[CV$9$k!#3F<+$GFI$_JV$7$F$_$k!#(B
    iii. $BEE;R%a!<%k4XO"(B
    • $B5! cm, km, kg, (1)
    • $B?^I=$N$:$l(B : $B0l9TJ8;z?t(B(80$B%+%i%`0J2<(B)$B!#%a!<%k%=%U%H$N@_Dj$b1F6A!#(B $B8GDj%T%C%AJ8;z!#3F<+$G3NG'$G$-$k!#(B
    • $BJ8;z2=$1(B : $B3F<+$G3NG'$G$-$k!#(B
    • $BE:IU%U%!%$%k(B(MIME $B7A<0(B, HTML $B7A<0(B)$B$O1sN82<$5$$!#(B

    iv. $BE}7W4XO"(B

    • $BM-8z7e?t(B : $B;;=P$5$l$??tCM$K$O@:EY$,$"$k!#0UL#$N$"$k7e?t$r0U<1$9$k$3$H!#(B
    • $BE}7W(B($B4pACE}7WNL(B)$B$r7W;;$9$k0UL#(B : $B0lL\$GGD0.$G$-$J$$$+$i(B
    • $BJ,I[7A>u$rGD0.$9$kJ}K!$rBNF@$G$-$?$+(B?
    • $BJ,I[$,@55,J,I[$r$7$F$$$k$+$I$&$+$H$$$&$3$H(B : $B:#$^$G$NCJ3,$G$O=EMW;k$7$J$$(B
    • $B!V%5%s%W%k%5%$%:$,(B1$B!W$NJQNL$NJ?6QCMEy$N0UL#$C$F2?(B?
    v. $B$=$NB>!":#8e$X$NH/E8(B
    • $B:#2s$NH?>J$rF'$^$($F!" $B%G!<%?$N8+D>$7$b(B : $B%G!<%?FbMF$N6cL#!#$h$j6=L#$N$"$k%G!<%?!#%5%s%W%k%5%$%:$dJQNL?t$OBg$-$/$F$bLdBj$O$J$$!#>/?tNc$O$"$^$j9%$^$7$/$J$$!#(B...
    • $B5?Ld$K;W$C$?$3$H$O2?$G$b<+J,$G;n$7$F$_$k!#%@%a$J$iJ9$$$F$_$k!#(B

    • $BG[I[;qNA$N;H$$J}(B : $B%a%b$N $BI|=,$N=EMW@-(B : "$BBNF@(B"$B!#1i=,!#9V5A;~4V$@$1$G$J$/3F<+$G$b!#(B
    • $BE::o4uK> $B!#5?Ld$OAa$a$K2r7h$7$h$&!#(B

  2. $BJ?6QCM$N?dDj(B : 4.2 $B@a(B (P58)

  3. $BJ?6QCM$N8!Dj(B : 5.2 $B@a(B (P72)

    1. $B%W%m%0%i%`(B : les0901.sas 
       /* Lesson 9-01 */
 /*    File Name = les0901.sas   11/26/08   */

data gakusei;
  infile 'all08be.prn'
    firstobs=2;
  input sex $ shintyou taijyuu kyoui 
        jitaku $ kodukai carryer $ tsuuwa;

diff180 =shintyou-180.0;                     : 180.0 $B$H$N:9$r?7$7$$JQNL$H$7$F(B
diff170 =shintyou-170.0;                     : 170.0 $B$H$N:9$r(B
diff169 =shintyou-169.0;                     : 169.0 $B$H$N:9$r(B
diff168 =shintyou-168.0;                     : 168.0 $B$H$N:9$r(B
diff1678=shintyou-167.8;                     : 167.8 $B$H$N:9$r(B

proc print data=gakusei(obs=5);
run;

proc univariate data=gakusei plot;
  var shintyou diff180 diff170 diff169 diff168 diff1678;
run;
    2. $B=PNO7k2L(B : les0901.lst 
                                    SAS $B%7%9%F%`(B                             1
                                         21:18 Monday, November 24, 2008
         S                                                         D
         H    T        K      C            D     D     D     D     I
         I    A    J   O      A       T    I     I     I     I     F
         N    I  K I   D      R       S    F     F     F     F     F
         T    J  Y T   U      R       U    F     F     F     F     1
  O  S   Y    Y  O A   K      Y       U    1     1     1     1     6
  B  E   O    U  U K   A      E       W    8     7     6     6     7
  S  X   U    U  I U   I      R       A    0     0     9     8     8

   1 F 145.0 38  . J 10000             . -35.0 -25.0 -24.0 -23.0 -22.8
   2 F 146.7 41 85 J 10000 Vodafone 6000 -33.3 -23.3 -22.3 -21.3 -21.1
   3 F 148.0 42  . J 50000             . -32.0 -22.0 -21.0 -20.0 -19.8
   4 F 148.0 43 80 J 50000 DoCoMo   4000 -32.0 -22.0 -21.0 -20.0 -19.8
   5 F 148.9  .  . J 60000             . -31.1 -21.1 -20.1 -19.1 -18.9

                              SAS $B%7%9%F%`(B                             2
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=SHINTYOU
                                Moments

                N               389  Sum Wgts        389
                Mean       167.9093  Sum         65316.7
                Std Dev    8.267388  Variance   68.34971
                Skewness    -0.2778  Kurtosis   -0.41402
                USS        10993798  CSS        26519.69
                CV         4.923724  Std Mean   0.419173
                T:Mean=0   400.5725  Pr>|T|       0.0001
                Num ^= 0        389  Num > 0         389
                M(Sign)       194.5  Pr>=|M|      0.0001
                Sgn Rank    37927.5  Pr>=|S|      0.0001

                              SAS $B%7%9%F%`(B                             6
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=SHINTYOU
                     Histogram                    #             Boxplot
   187.5+**                                       5                |   
        .********                                23                |   
        .*******************                     57                |   
        .************************************   106             +-----+
   167.5+*************************               73             *--+--*
        .********************                    58             +-----+
        .***************                         43                |   
        .******                                  18                |   
   147.5+**                                       6                |   
         ----+----+----+----+----+----+----+-              
         * may represent up to 3 counts                    

                              SAS $B%7%9%F%`(B                             7
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=SHINTYOU
                             Normal Probability Plot              
         187.5+                                              ++***
              |                                        *******    
              |                                 *******           
              |                         *********                 
         167.5+                    ******++                       
              |                *****+                             
              |          *******                                  
              |    *******                                        
         147.5+*+**                                               
               +----+----+----+----+----+----+----+----+----+----+
                   -2        -1         0        +1        +2     

                              SAS $B%7%9%F%`(B                             8
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=DIFF180
                                Moments

                N               389  Sum Wgts        389
                Mean       -12.0907  Sum         -4703.3
                Std Dev    8.267388  Variance   68.34971
                Skewness    -0.2778  Kurtosis   -0.41402
                USS        83386.09  CSS        26519.69
                CV         -68.3778  Std Mean   0.419173
                T:Mean=0   -28.8443  Pr>|T|       0.0001
                Num ^= 0        378  Num > 0          17
                M(Sign)        -172  Pr>=|M|      0.0001
                Sgn Rank     -35154  Pr>=|S|      0.0001

                              SAS $B%7%9%F%`(B                            14
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=DIFF170
                                Moments

                N               389  Sum Wgts        389
                Mean       -2.09075  Sum          -813.3
                Std Dev    8.267388  Variance   68.34971
                Skewness    -0.2778  Kurtosis   -0.41402
                USS        28220.09  CSS        26519.69
                CV         -395.428  Std Mean   0.419173
                T:Mean=0   -4.98778  Pr>|T|       0.0001
                Num ^= 0        363  Num > 0         165
                M(Sign)       -16.5  Pr>=|M|      0.0929
                Sgn Rank      -8527  Pr>=|S|      0.0001

                              SAS $B%7%9%F%`(B                            20
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=DIFF169
                                Moments

                N               389  Sum Wgts        389
                Mean       -1.09075  Sum          -424.3
                Std Dev    8.267388  Variance   68.34971
                Skewness    -0.2778  Kurtosis   -0.41402
                USS        26982.49  CSS        26519.69
                CV         -757.958  Std Mean   0.419173
                T:Mean=0   -2.60214  Pr>|T|       0.0096
                Num ^= 0        382  Num > 0         193
                M(Sign)           2  Pr>=|M|      0.8780
                Sgn Rank    -4063.5  Pr>=|S|      0.0596

                              SAS $B%7%9%F%`(B                            26
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=DIFF168
                                Moments

                N               389  Sum Wgts        389
                Mean       -0.09075  Sum           -35.3
                Std Dev    8.267388  Variance   68.34971
                Skewness    -0.2778  Kurtosis   -0.41402
                USS        26522.89  CSS        26519.69
                CV         -9110.52  Std Mean   0.419173
                T:Mean=0   -0.21649  Pr>|T|       0.8287
                Num ^= 0        371  Num > 0         204
                M(Sign)        18.5  Pr>=|M|      0.0615
                Sgn Rank      461.5  Pr>=|S|      0.8236

                              SAS $B%7%9%F%`(B                            32
                                         21:18 Monday, November 24, 2008
                          Univariate Procedure
Variable=DIFF1678
                                Moments

                N               389  Sum Wgts        389
                Mean       0.109254  Sum            42.5
                Std Dev    8.267388  Variance   68.34971
                Skewness    -0.2778  Kurtosis   -0.41402
                USS        26524.33  CSS        26519.69
                CV         7567.092  Std Mean   0.419173
                T:Mean=0   0.260643  Pr>|T|       0.7945
                Num ^= 0        389  Num > 0         222
                M(Sign)        27.5  Pr>=|M|      0.0061
                Sgn Rank       1873  Pr>=|S|      0.3993
    3. $B7k2L$N8+J}(B :
      • $BJ,I[$,@55,J,I[$r$7$F$$$k$+$r3NG'$9$k$K$O(B :
        • Normal Probability Plot : $B@55,3NN(%W%m%C%H(B : $BBh(B5$B2s(B
          $BJ,I[$,@55,J,I[$+$I$&$+$r3N$+$a$k(B
          + $B$,4p=`@~!"(B* $B$,BP>]%G!<%?!#$:$l$F$$$k$H@55,@-$,5?$o$l$k!#(B

      • $B:9$,%<%m$H8@$($k$+$N8!Dj(B $B!a(B $B;XDj$7$?CM$H8@$($k$+(B
        • T:Mean=0 : $BJ?6Q(B=0 ($B5"L52>@b(B)$B$N8!Dj$N$?$a$N(B t $BE}7WNL(B
        • Pr>=|T| : t $BE}7WNL$NN>B&M-0U3NN((B
          • t $BE}7WNL$rE,MQ$9$k>l9g$O!":9$NJ,I[$,@55,J,I[$K=>$C$F$$$k$3$H$r2>Dj$7$F$$$k(B
          • $B:9$NJ,I[$,@55,J,I[$r$7$F$$$k$+$r3NG'$9$k$K$O(B : Normal Probability Plot

        • M(Sign) : $BJl=8CD$NCf1{CM(B($B%a%G%#%"%s(B)$B$,%<%m$G$"$k$H$$$&2>@b$r8!Dj$9$k$?$a$NId9gIU$-=g0LOB8!DjE}7WNL(B
        • Pr>=|M| : $BJl=8CD$NCf1{CM(B($B%a%G%#%"%s(B)$B$,%<%m$G$"$k$H$$$&2>@b$N2<$G!"$=$NId9gE}7WNL$h$j$bBg$-$$@dBPCM$,F@$i$l$k3NN((B
        • Sgn Rank : $BJ?6Q(B=0 ($B5"L52>@b(B)$B$N8!Dj$N$?$a$NId9gIU$-=g0LOB8!DjE}7WNL(B
        • Pr>=|S| : $BId9gIU$-=g0LOB8!DjE}7WNL$N$?$a$N6a;wE*M-0U3NN((B

    4. $B2r
    5. $B?HD9$NJ,I[$O@55,J,I[$HH=CG$7$FNI$$$+(B?
      • $B4p=`@~$K$I$NDxEY>h$C$F$$$k$+$GH=CG$9$k(B
      • $B@55,J,I[$H8@$C$F$bNI$5$=$&(B
      • [$B1i=,(B1] $B?HD90J30$KBN=E$d6;0O!">.8/$$3[$O$I$&$+(B?

    6. $B?HD9$NJ?6QCM$,(B180.0cm $B$H8@$($k3NN($O(B 0.01% $B!a(B $B8@$($J$$(B
    7. $B$G$O!"(B170.0cm $B$H8@$($k3NN($O(B? 169.0cm, 168.0cm, 167.8cm, ...

    8. $BH=CG4p=`(B($B8!Dj4p=`(B)
      • $B$I$l$/$i$$$N3d9g(B($B3NN((B)$B$G$=$N2>@b$,H/@8$9$k$+(B?
      • $B3NN($,>.$5$$(B ==> $B5)$J$3$H(B($BIaDL$G$O$J$$(B) ==> $B:9$,$"$k(B($B!VM-0U!W$H8@$&(B)
      • 5% $BM-0U!"(B1% $BM-0U(B : $B:#$^$G$N47=,$+$i(B

    9. $B2>Dj(B($B5"L52>@b(B)$B$KBP$7$F(B
      • $B!V%<%m$H8@$($k(B($B:9$O$J$$(B)$B!W$H2>Dj$7$?;~(B : $B!VM-0U!W$K:9$,$"$k(B/$B$J$$$rH=Dj(B

  4. $B%0%k!<%WJ,$1(B : $BD4::BP>]$N@-

  5. [$B$*$^$1(B] $BC1JQNL!"FsJQNL$r;k3PE*$KB*$($k$H(B? by Mathematica
    1. 1 dim. Normal Distribution [$B<0(B(a)] 1$B 2 dim. Normal Distribution [$B<0(B(b)] 2$B 2 dim. Normal Distribution [$B<0(B(c)] 2$B 2 dim. Normal Distribution [$B<0(B(d)] 2$B 2 dim. Normal Distribution [$B<0(B(e)] 2$B
    [DIR]$B9V5A$N%[!<%`%Z!<%8(B$B$XLa$j$^$9(B