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
- $Be:No$J%W%m%0%i%`$r=q$3$&(B : $BCJ2<$2!"%3%a%s%H!"8eF|$N$?$a$N3P$((B
- $B%l%]!<%H$X$N5-:\;v9`(B : $B;aL>!"3X@RHV9f!"(B...
- $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$$!#(BExcel $BEy$NI=$K2C9)$7$F8+$?L\$rNI$/$9$kI,MW$O$J$$(B($BEvLL(B)$B!#(B
- $B=PNO$rA4$/0zMQ$7$J$$$N$O!"$I$3$r8+$FH=CG$9$l$PNI$$$+2r$i$J$$!#(B
- $BFI
- $B5!
- $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
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?
- $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
- $BE::o4uK>
- $B%0%k!<%WJ,$1(B : $BD4::BP>]$N@-
- $B%0%k!<%W$r9J$k$3$H$G@-
- $B@-JL$4$H$NJ,@O!"<+Bp@8(B/$B2<=I@8$4$H$NJ,@O(B...$B!#(B
- $BJ,I[7A>u$r%0%k!<%W$4$H$K8+$F$_$h$&(B
- $B?eJ?K@%0%i%U$rNc$K!#?bD>K@%0%i%U(B(vbar)$B$b$"$k(B
- $B$b$&0l$D$NI=8=J}K!(B : $B<4$,B7$C$F$$$kJ}$,Hf3S$7$d$9$$(B
- $BJBNs%R%9%H%0%i%`(B
- $B<4%l%s%8$d6h@Z$jJ}$,E}0l$5$l$F$$$kJ}$,Hf3S$7$d$9$$(B
- $BE::o4uK>
- $B%W%m%0%i%`(B : Lesson 8-1 : les0801.sas
/* Lesson 8-01 */ /* File Name = les0801.sas 06/07/07 */ data gakusei; infile 'all07ae.prn' firstobs=2; input sex $ shintyou taijyuu kyoui jitaku $ kodukai carryer $ tsuuwa; proc print data=gakusei(obs=5); run; proc means data=gakusei; run; proc univariate data=gakusei plot; var shintyou taijyuu kyoui kodukai; run; proc chart data=gakusei; : $B%R%9%H%0%i%`(B hbar shintyou taijyuu kyoui kodukai; : $B;XDj$7$?JQNL$N?eJ?K@%0%i%U$rI=<((B run; : : proc sort data=gakusei; : $BJB$YBX$((B($B%=!<%H(B) by sex; : $B@-JL$4$H$K(B run; : : proc means data=gakusei; : $BJ?6Q$N7W;;(B by sex; : $B@-JL$4$H$K(B run; : proc univariate data=gakusei plot; : $B4pACE}7WNL$N7W;;(B var shintyou taijyuu kyoui kodukai; : $B;XDj$7$?JQNL$K$D$$$F7W;;(B by sex; : $B@-JL$4$H$K(B run; : proc chart data=gakusei; : $B%R%9%H%0%i%`(B hbar shintyou taijyuu kyoui kodukai; : $B;XDj$7$?JQNL$N?eJ?K@%0%i%U$rI=<((B by sex; : $B@-JL$4$H$K(B run; : : proc chart data=gakusei; : $B%R%9%H%0%i%`(B hbar shintyou taijyuu kyoui kodukai/group=sex; : $B@-JL$4$H$KJ;CV$7$F(B run; : - $B=PNO7k2L(B : les0801.lst :
- $B@-JL$G?HD9$dBN=EEy$NJ?6Q$K0c$$$,$"$k$3$H$r3NG'$;$h!#(B
- $B3F!9$NJ,I[$NFCD'$H0c$$$rGD0.$;$h!#(B
- $B%R%9%H%0%i%`$@$1$G$J$/!"H"I&?^$d
SAS $B%7%9%F%`(B 2 18:05 Wednesday, June 6, 2007 Variable N Mean Std Dev Minimum Maximum --------------------------------------------------------------------- SHINTYOU 360 167.9197222 8.1507403 145.0000000 186.0000000 TAIJYUU 326 58.7846626 9.3327848 35.0000000 100.0000000 KYOUI 114 86.1754386 8.3626282 46.0000000 112.0000000 KODUKAI 348 48635.06 49946.03 0 350000.00 TSUUWA 147 6620.42 4428.28 0 30000.00 --------------------------------------------------------------------- SAS $B%7%9%F%`(B 3 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=SHINTYOU Moments N 360 Sum Wgts 360 Mean 167.9197 Sum 60451.1 Std Dev 8.15074 Variance 66.43457 Skewness -0.34664 Kurtosis -0.40563 USS 10174782 CSS 23850.01 CV 4.853951 Std Mean 0.429582 T:Mean=0 390.8912 Pr>|T| 0.0001 Num ^= 0 360 Num > 0 360 M(Sign) 180 Pr>=|M| 0.0001 Sgn Rank 32490 Pr>=|S| 0.0001 SAS $B%7%9%F%`(B 4 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=SHINTYOU Quantiles(Def=5) 100% Max 186 99% 184 75% Q3 173.75 95% 180 50% Med 169 90% 178 25% Q1 162 10% 156 0% Min 145 5% 153 1% 148 Range 41 Q3-Q1 11.75 Mode 170 SAS $B%7%9%F%`(B 7 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=SHINTYOU Histogram # Boxplot 187.5+* 3 | .******* 21 | .****************** 54 | .********************************* 99 +-----+ 167.5+************************ 70 *--+--* .****************** 53 +-----+ .************* 37 | .****** 17 | 147.5+** 6 | ----+----+----+----+----+----+--- * may represent up to 3 counts SAS $B%7%9%F%`(B 21 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=KODUKAI Moments N 348 Sum Wgts 348 Mean 48635.06 Sum 16925000 Std Dev 49946.03 Variance 2.4946E9 Skewness 2.072424 Kurtosis 6.768098 USS 1.689E12 CSS 8.656E11 CV 102.6955 Std Mean 2677.388 T:Mean=0 18.16511 Pr>|T| 0.0001 Num ^= 0 293 Num > 0 293 M(Sign) 146.5 Pr>=|M| 0.0001 Sgn Rank 21535.5 Pr>=|S| 0.0001 SAS $B%7%9%F%`(B 22 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=KODUKAI Quantiles(Def=5) 100% Max 350000 99% 200000 75% Q3 62500 95% 150000 50% Med 30000 90% 120000 25% Q1 20000 10% 0 0% Min 0 5% 0 1% 0 Range 350000 Q3-Q1 42500 Mode 0 SAS $B%7%9%F%`(B 25 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=KODUKAI Histogram # Boxplot 375000+* 1 * .* 2 * . .* 2 * .**** 18 0 .******** 38 0 .**************** 77 +-----+ 25000+****************************************** 210 *--+--* ----+----+----+----+----+----+----+----+-- * may represent up to 5 counts SAS $B%7%9%F%`(B 27 18:05 Wednesday, June 6, 2007 SHINTYOU Cum. Cum. Midpoint Freq Freq Percent Percent | 146 |* 2 2 0.56 0.56 150 |*** 8 10 2.22 2.78 154 |******* 17 27 4.72 7.50 158 |************* 33 60 9.17 16.67 162 |****************** 46 106 12.78 29.44 166 |******************* 48 154 13.33 42.78 170 |****************************** 75 229 20.83 63.61 174 |**************************** 71 300 19.72 83.33 178 |************** 36 336 10.00 93.33 182 |******** 19 355 5.28 98.61 186 |** 5 360 1.39 100.00 | ----+---+---+---+---+---+---+-- 10 20 30 40 50 60 70 SAS $B%7%9%F%`(B 31 18:05 Wednesday, June 6, 2007 KODUKAI Cum. Cum. Midpoint Freq Freq Percent Percent | 15000 |************************** 131 131 37.64 37.64 45000 |********************** 110 241 31.61 69.25 75000 |********* 45 286 12.93 82.18 105000 |***** 25 311 7.18 89.37 135000 |*** 14 325 4.02 93.39 165000 |*** 17 342 4.89 98.28 195000 |* 3 345 0.86 99.14 225000 | 0 345 0.00 99.14 255000 | 0 345 0.00 99.14 285000 | 0 345 0.00 99.14 315000 | 2 347 0.57 99.71 345000 | 1 348 0.29 100.00 | ----+---+---+---+---+---+-- 20 40 60 80 100 120 Frequency SAS $B%7%9%F%`(B 34 18:05 Wednesday, June 6, 2007 --------------------------------- SEX=F -------------------------------- Variable N Mean Std Dev Minimum Maximum --------------------------------------------------------------------- SHINTYOU 117 159.0914530 5.3492116 145.0000000 171.0000000 TAIJYUU 83 48.6987952 4.7229975 35.0000000 60.0000000 KYOUI 43 83.0000000 3.9036003 70.0000000 90.0000000 KODUKAI 114 48403.51 44706.81 0 300000.00 TSUUWA 58 6863.86 4325.64 200.0000000 25000.00 --------------------------------------------------------------------- SAS $B%7%9%F%`(B 35 18:05 Wednesday, June 6, 2007 --------------------------------- SEX=M -------------------------------- Variable N Mean Std Dev Minimum Maximum --------------------------------------------------------------------- SHINTYOU 242 172.1876033 5.3909417 156.0000000 186.0000000 TAIJYUU 242 62.2388430 7.9277377 46.0000000 100.0000000 KYOUI 71 88.0985915 9.6852685 46.0000000 112.0000000 KODUKAI 232 48637.93 52490.92 0 350000.00 TSUUWA 88 6421.57 4520.87 0 30000.00 --------------------------------------------------------------------- SAS $B%7%9%F%`(B 54 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=F --------------------------------- Univariate Procedure Variable=SHINTYOU Moments N 117 Sum Wgts 117 Mean 159.0915 Sum 18613.7 Std Dev 5.349212 Variance 28.61406 Skewness -0.22787 Kurtosis -0.30269 USS 2964600 CSS 3319.231 CV 3.36235 Std Mean 0.494535 T:Mean=0 321.6992 Pr>|T| 0.0001 Num ^= 0 117 Num > 0 117 M(Sign) 58.5 Pr>=|M| 0.0001 Sgn Rank 3451.5 Pr>=|S| 0.0001 SAS $B%7%9%F%`(B 56 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=F --------------------------------- Univariate Procedure Variable=SHINTYOU Quantiles(Def=5) 100% Max 171 99% 170 75% Q3 163 95% 167 50% Med 160 90% 166 25% Q1 156 10% 152 0% Min 145 5% 149 1% 146.7 Range 26 Q3-Q1 7 Mode 156 SAS $B%7%9%F%`(B 59 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=F --------------------------------- Univariate Procedure Variable=SHINTYOU Stem Leaf # Boxplot 17 001 3 | 16 555555666666677778 18 | 16 000000000000001111122222222222333344444 39 +-----+ 15 5555666666666666677778888889999999 34 +--+--+ 15 01122223333333444 17 | 14 578899 6 0 ----+----+----+----+----+----+----+---- Multiply Stem.Leaf by 10**+1 SAS $B%7%9%F%`(B 82 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=M --------------------------------- Univariate Procedure Variable=SHINTYOU Moments N 242 Sum Wgts 242 Mean 172.1876 Sum 41669.4 Std Dev 5.390942 Variance 29.06225 Skewness -0.08308 Kurtosis 0.163132 USS 7181958 CSS 7004.003 CV 3.130854 Std Mean 0.346543 T:Mean=0 496.8725 Pr>|T| 0.0001 Num ^= 0 242 Num > 0 242 M(Sign) 121 Pr>=|M| 0.0001 Sgn Rank 14701.5 Pr>=|S| 0.0001 SAS $B%7%9%F%`(B 84 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=M --------------------------------- Univariate Procedure Variable=SHINTYOU Quantiles(Def=5) 100% Max 186 99% 185 75% Q3 175 95% 181 50% Med 172 90% 179.9 25% Q1 169 10% 166 0% Min 156 5% 163 1% 160 Range 30 Q3-Q1 6 Mode 170 SAS $B%7%9%F%`(B 87 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=M --------------------------------- Univariate Procedure Variable=SHINTYOU Histogram # Boxplot 187.5+* 3 0 .******* 21 | .****************** 54 +-----+ 172.5+********************************* 97 *--+--* .***************** 50 +-----+ .***** 15 | 157.5+* 2 0 ----+----+----+----+----+----+--- * may represent up to 3 counts SAS $B%7%9%F%`(B 110 18:05 Wednesday, June 6, 2007 Univariate Procedure Schematic Plots Variable=SHINTYOU 200 + | | 0 180 + | | | *--+--* | *--+--* | +-----+ 160 + *--+--* 0 | +-----+ 0 | 0 140 + ------------+-----------+-----------+----------- SEX F M SAS $B%7%9%F%`(B 111 18:05 Wednesday, June 6, 2007 Univariate Procedure Schematic Plots Variable=TAIJYUU | 100 + * | 0 | *--+--* | *--+--* 50 + *--+--* +-----+ | 0 | 0 + ------------+-----------+-----------+----------- SEX F M SAS $B%7%9%F%`(B 112 18:05 Wednesday, June 6, 2007 Univariate Procedure Schematic Plots Variable=KYOUI 150 + | | 0 100 + +-----+ | *--+--* *--+--* | 0 0 50 + * | | 0 + ------------+-----------+-----------+----------- SEX F M SAS $B%7%9%F%`(B 113 18:05 Wednesday, June 6, 2007 Univariate Procedure Schematic Plots Variable=KODUKAI | 400000 + | * * | 200000 + 0 0 | +-----+ 0 0 | *--+--* *--+--* +--+--+ 0 + +-----+ +-----+ *-----* ------------+-----------+-----------+----------- SEX F M SAS $B%7%9%F%`(B 117 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=F --------------------------------- SHINTYOU Cum. Cum. Midpoint Freq Freq Percent Percent | 144 |* 1 1 0.85 0.85 147 |*** 3 4 2.56 3.42 150 |***** 5 9 4.27 7.69 153 |************** 14 23 11.97 19.66 156 |********************* 21 44 17.95 37.61 159 |*************************** 27 71 23.08 60.68 162 |******************** 20 91 17.09 77.78 165 |****************** 18 109 15.38 93.16 168 |***** 5 114 4.27 97.44 171 |*** 3 117 2.56 100.00 | -----+----+----+----+----+-- 5 10 15 20 25 Frequency SAS $B%7%9%F%`(B 122 18:05 Wednesday, June 6, 2007 -------------------------------- SEX=M --------------------------------- SHINTYOU Cum. Cum. Midpoint Freq Freq Percent Percent | 156 |* 2 2 0.83 0.83 159 |** 5 7 2.07 2.89 162 |*** 8 15 3.31 6.20 165 |***** 13 28 5.37 11.57 168 |**************** 39 67 16.12 27.69 171 |************************** 64 131 26.45 54.13 174 |******************** 51 182 21.07 75.21 177 |*********** 28 210 11.57 86.78 180 |******** 21 231 8.68 95.45 183 |*** 8 239 3.31 98.76 186 |* 3 242 1.24 100.00 | ----+---+---+---+---+---+-- 10 20 30 40 50 60 Frequency SAS $B%7%9%F%`(B 128 18:05 Wednesday, June 6, 2007 SEX SHINTYOU Cum. Cum. Midpoint Freq Freq Percent Percent | 146 | 0 0 0.00 0.00 150 | 0 0 0.00 0.00 154 | 0 0 0.00 0.00 158 | 0 0 0.00 0.00 162 | 0 0 0.00 0.00 166 | 0 0 0.00 0.00 170 | 1 1 0.28 0.28 174 | 0 1 0.00 0.28 178 | 0 1 0.00 0.28 182 | 0 1 0.00 0.28 186 | 0 1 0.00 0.28 | F 146 | 2 3 0.56 0.83 150 |** 8 11 2.22 3.06 154 |*** 17 28 4.72 7.78 158 |****** 31 59 8.61 16.39 162 |******* 33 92 9.17 25.56 166 |**** 22 114 6.11 31.67 170 |* 4 118 1.11 32.78 174 | 0 118 0.00 32.78 178 | 0 118 0.00 32.78 182 | 0 118 0.00 32.78 186 | 0 118 0.00 32.78 | M 146 | 0 118 0.00 32.78 150 | 0 118 0.00 32.78 154 | 0 118 0.00 32.78 158 | 2 120 0.56 33.33 162 |*** 13 133 3.61 36.94 166 |***** 26 159 7.22 44.17 170 |************** 70 229 19.44 63.61 174 |************** 71 300 19.72 83.33 178 |******* 36 336 10.00 93.33 182 |**** 19 355 5.28 98.61 186 |* 5 360 1.39 100.00 | ----+---+---+-- 20 40 60 Frequency SAS $B%7%9%F%`(B 137 18:05 Wednesday, June 6, 2007 SEX KODUKAI Cum. Cum. Midpoint Freq Freq Percent Percent | 15000 | 1 1 0.29 0.29 45000 | 0 1 0.00 0.29 75000 | 0 1 0.00 0.29 105000 | 1 2 0.29 0.57 135000 | 0 2 0.00 0.57 165000 | 0 2 0.00 0.57 195000 | 0 2 0.00 0.57 225000 | 0 2 0.00 0.57 255000 | 0 2 0.00 0.57 285000 | 0 2 0.00 0.57 315000 | 0 2 0.00 0.57 345000 | 0 2 0.00 0.57 | F 15000 |******* 37 39 10.63 11.21 45000 |******** 41 80 11.78 22.99 75000 |**** 22 102 6.32 29.31 105000 |* 6 108 1.72 31.03 135000 |* 3 111 0.86 31.90 165000 | 2 113 0.57 32.47 195000 | 2 115 0.57 33.05 225000 | 0 115 0.00 33.05 255000 | 0 115 0.00 33.05 285000 | 0 115 0.00 33.05 315000 | 1 116 0.29 33.33 345000 | 0 116 0.00 33.33 | M 15000 |******************* 93 209 26.72 60.06 45000 |************** 69 278 19.83 79.89 75000 |***** 23 301 6.61 86.49 105000 |**** 18 319 5.17 91.67 135000 |** 11 330 3.16 94.83 165000 |*** 15 345 4.31 99.14 195000 | 1 346 0.29 99.43 225000 | 0 346 0.00 99.43 255000 | 0 346 0.00 99.43 285000 | 0 346 0.00 99.43 315000 | 1 347 0.29 99.71 345000 | 1 348 0.29 100.00 | ----+---+---+---+--- 20 40 60 80 Frequency- $B7k2L$N8+J}(B
- $BJ?6QCM$dCf1{CM!":GIQCM$,%R%9%H%0%i%`$dH"I&?^Cf$G(B $B$H$N$h$&$J0LCV$K$"$k$+H=CG$G$-$k$+(B?
- $BH"I&?^$,FI$a$k$h$&$K$J$C$?$+(B? $B$3$N?^$@$1$GJ,I[7A>u$,%$%a!<%8$G$-$k$h$&$K$J$C$?$+(B?
- $B72Kh$KJ,$1$k$HFCD'$,$h$jA/L@$KH=$k$h$&$K$J$k!#(B
- $BHf3S$9$k:]$K$O<4$rB7$($?$$!#B7$($J$$$HHf3S$,$7Fq$$!#(B
- $B7gB;CM$O=|30$7$?$$;~$b$"$k!#(B
- [$B%F%/%K%C%/(B] $B%0%k!<%W$rJ,$1$FJ,@O$9$k>l9g$O!";vA0$KJB$YBX$($,I,MW(B
- [$B1i=,(B1] $B?bD>K@%0%i%U$GHf3S$7$F$_$h!#B>$NJQ?t$bD4$Y$F$_$h!#(B
- [$B1i=,(B2] $B<+Bp@8(B/$B2<=I@8JL$K=87W$7$FN>
- $BJ,I[$NGD0.$K$D$$$F(B : $B5$$r$D$1$kE@(B
- $B$^$:!"A4BN$r8+EO$9$3$H$,Bg@Z(B
- $BBP>]J,I[$J$i!"J?6QCM$GBeI=$5$;$F$bL5KE$G$O$J$$!#(B
- $BOD$s$@J,I[(B($BHsBP>NJ,I[(B)$B$J$i!"J?6QCM$@$1$G$OIT==J,!#(B
- $BFC@-$r9J$k$3$H$K$h$C$F>.%0%k!<%W$N@-
- $BCK@-(B/$B=w@-!"<+Bp@8(B/$B2<=I@8!"(B...$B!#(B
- $B$h$j:Y$+$J%0%j!<%T%s%0!">.J,N`$4$H$NFC@-(B :
- $B$=$N%0%k!<%W$NFC@-$,82Cx$K$J$k(B
- $B:Y$+$/$7$9$.$k$H3F%0%k!<%W$N%5%s%W%k%5%$%:$,>.$5$/$J$C$F$7$^$&(B
- $BE,@Z$J%0%k!<%T%s%0$r$7$J$$$HL50UL#$J$3$H$b$"$k(B :
- $B<+Bp@8(B/$B2<=I@8$N?HD9:9!"Bg3X$4$H$NBN=E:9!"(B...
- $B30$lCM(B(Outliar) $B$NH/8+$d!"8!F$!#(B
- $B$J$ $B>l9g$K$h$C$F$O=|5n$b!#(B===> $B
- $B30$lCM(B(Outliar)$B$d0[>oCM$N=hM}(B : $B=|30(B
- $B%0%k!<%W$r9J$k$3$H$G@-
- $B0lHLE*$J3X@8$H$O>/$70[$J$k(B <===> $B
- $BWs0UE*$J=|30$O?5$`$Y$-$G$"$j!"=|30$9$k$3$H$NBEEv@-$r3NG'$7$F$*$/$3$H$,Bg@Z(B
- $B0lHLE*$J3X@8$H$O>/$70[$J$k(B <===> $B
- $B%W%m%0%i%`(B : Lesson 8-2 : les0802.sas
: les0801.sas $B$KDI2C$7$F3hMQ$9$k(B
/* Lesson 8-02 */ /* File Name = les0802.sas 06/07/07 */ data gakusei; infile 'all07ae.prn' firstobs=2; input sex $ shintyou taijyuu kyoui jitaku $ kodukai carryer $ tsuuwa; if kodukai>=200000 then delete; : 20$BK|1_0J>e$N>l9g!"=|30(B if sex^='M' & sex^='F' then delete; : $BCK$G$b=w$G$b$J$$>l9g!"=|30(B ($B0J2 - $B=PNO7k2L(B : les0802.lst :
- $B0lIt$N%G!<%?$r=|30$7$?$3$H$K$h$C$F!"%5%s%W%k?t$,8:$C$?$3$H$r3NG'$;$h!#(B
- $B3FE}7WNL$O$I$N$h$&$KJQ2=$7$?$+$r3NG'$;$h!#(B
- $B>.8/$$3[$K$D$$$F!"J?6QCM$OJQ2=$9$k$,!"Cf1{CM$H:GIQCM$O1F6A$,>/$J$$(B/$B$J$$(B($B4h7r(B, robustness)$B!#(B
SAS $B%7%9%F%`(B 2 18:05 Wednesday, June 6, 2007 Variable N Mean Std Dev Minimum Maximum --------------------------------------------------------------------- SHINTYOU 354 167.8816384 8.1828209 145.0000000 186.0000000 TAIJYUU 320 58.7650000 9.2699379 35.0000000 100.0000000 KYOUI 110 86.6181818 7.5649867 56.0000000 112.0000000 KODUKAI 341 45313.78 41852.65 0 180000.00 TSUUWA 146 6597.27 4434.59 0 30000.00 --------------------------------------------------------------------- SAS $B%7%9%F%`(B 21 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=KODUKAI Moments N 341 Sum Wgts 341 Mean 45313.78 Sum 15452000 Std Dev 41852.65 Variance 1.7516E9 Skewness 1.163973 Kurtosis 0.720414 USS 1.296E12 CSS 5.956E11 CV 92.36184 Std Mean 2266.448 T:Mean=0 19.99331 Pr>|T| 0.0001 Num ^= 0 286 Num > 0 286 M(Sign) 143 Pr>=|M| 0.0001 Sgn Rank 20520.5 Pr>=|S| 0.0001 SAS $B%7%9%F%`(B 22 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=KODUKAI Quantiles(Def=5) 100% Max 180000 99% 160000 75% Q3 60000 95% 150000 50% Med 30000 90% 100000 25% Q1 20000 10% 0 0% Min 0 5% 0 1% 0 Range 180000 Q3-Q1 40000 Mode 0 SAS $B%7%9%F%`(B 25 18:05 Wednesday, June 6, 2007 Univariate Procedure Variable=KODUKAI Histogram # Boxplot 190000+* 1 0 .** 6 0 .**** 12 0 130000+***** 13 0 .******** 23 | .**** 11 | 70000+************ 35 +-----+ .***************** 51 | + | .************************************ 107 *-----* 10000+**************************** 82 | ----+----+----+----+----+----+----+- * may represent up to 3 counts SAS $B%7%9%F%`(B 32 18:05 Wednesday, June 6, 2007 --------------------------------- SEX=F -------------------------------- Variable N Mean Std Dev Minimum Maximum --------------------------------------------------------------------- SHINTYOU 115 159.0060870 5.3493775 145.0000000 171.0000000 TAIJYUU 81 48.7283951 4.7771653 35.0000000 60.0000000 KYOUI 41 83.0243902 3.9967975 70.0000000 90.0000000 KODUKAI 112 44803.57 35274.88 0 180000.00 TSUUWA 58 6863.86 4325.64 200.0000000 25000.00 --------------------------------------------------------------------- SAS $B%7%9%F%`(B 33 18:05 Wednesday, June 6, 2007 --------------------------------- SEX=M -------------------------------- Variable N Mean Std Dev Minimum Maximum --------------------------------------------------------------------- SHINTYOU 239 172.1523013 5.4061808 156.0000000 186.0000000 TAIJYUU 239 62.1665272 7.8488323 46.0000000 100.0000000 KYOUI 69 88.7536232 8.3620392 56.0000000 112.0000000 KODUKAI 229 45563.32 44789.78 0 165000.00 TSUUWA 88 6421.57 4520.87 0 30000.00 --------------------------------------------------------------------- SAS $B%7%9%F%`(B 90 18:05 Wednesday, June 6, 2007 Univariate Procedure Schematic Plots Variable=SHINTYOU 200 + | | 0 180 + | | | *--+--* | | +-----+ 160 + *--+--* 0 | +-----+ 0 | 0 140 + ------------+-----------+----------- SEX F M SAS $B%7%9%F%`(B 93 18:05 Wednesday, June 6, 2007 Univariate Procedure Schematic Plots Variable=KODUKAI | 200000 + | 0 0 | 0 | 100000 + | | | +-----+ +-----+ | *--+--* *--+--* 0 + | +-----+ ------------+-----------+----------- SEX F M SAS $B%7%9%F%`(B 105 18:05 Wednesday, June 6, 2007 SEX SHINTYOU Cum. Cum. Midpoint Freq Freq Percent Percent | F 146 | 2 2 0.56 0.56 150 |** 8 10 2.26 2.82 154 |*** 17 27 4.80 7.63 158 |****** 31 58 8.76 16.38 162 |****** 32 90 9.04 25.42 166 |**** 21 111 5.93 31.36 170 |* 4 115 1.13 32.49 174 | 0 115 0.00 32.49 178 | 0 115 0.00 32.49 182 | 0 115 0.00 32.49 186 | 0 115 0.00 32.49 | M 146 | 0 115 0.00 32.49 150 | 0 115 0.00 32.49 154 | 0 115 0.00 32.49 158 | 2 117 0.56 33.05 162 |*** 13 130 3.67 36.72 166 |***** 26 156 7.34 44.07 170 |************** 70 226 19.77 63.84 174 |************** 69 295 19.49 83.33 178 |******* 35 330 9.89 93.22 182 |**** 19 349 5.37 98.59 186 |* 5 354 1.41 100.00 | ----+---+---+-- 20 40 60 Frequency SAS $B%7%9%F%`(B 111 18:05 Wednesday, June 6, 2007 SEX KODUKAI Cum. Cum. Midpoint Freq Freq Percent Percent | F 0 |****** 14 14 4.11 4.11 20000 |********* 23 37 6.74 10.85 40000 |*********** 27 64 7.92 18.77 60000 |********** 26 90 7.62 26.39 80000 |**** 10 100 2.93 29.33 100000 |** 5 105 1.47 30.79 120000 |* 3 108 0.88 31.67 140000 | 1 109 0.29 31.96 160000 |* 2 111 0.59 32.55 180000 | 1 112 0.29 32.84 | M 0 |******************** 50 162 14.66 47.51 20000 |***************** 43 205 12.61 60.12 40000 |********************* 52 257 15.25 75.37 60000 |*********** 28 285 8.21 83.58 80000 |***** 12 297 3.52 87.10 100000 |******* 18 315 5.28 92.38 120000 |*** 8 323 2.35 94.72 140000 |* 3 326 0.88 95.60 160000 |****** 15 341 4.40 100.00 180000 | 0 341 0.00 100.00 | ----+---+---+---+---+- 10 20 30 40 50 Frequency - $B7k2L$N8+J}(B
- $BA0$N@a(B($B30$lCM$r=|30$;$:(B)$B$HHf3S$7$F(B
- $BJ?6QCM$,$I$N$h$&$KJQ2=$7$?$+(B?
- $B$G$O!"Cf1{CM$d:GIQCM$,$I$N$h$&$KJQ2=$7$?$+(B? : $B4h7r@-(B
- $B7gB;CM$N=PNO$,$J$/$J$C$F%0%i%U$,$9$C$-$j$7$?(B $B!u(B $B>\:Y$,H=$k$h$&$K$J$C$?(B
- if $BJ8(B : $B$"$k>r7o$K9gCW$7$?>l9g$K!"FCDj$N=hM}$r
[$BNc(B2] $BJQNL$NCM$r3d$jEv$F$J$*$9(B : $B?7$7$$CM$r1&JU$K=q$/(B
[$BNc(B3] $B?7$7$$JQNL$rDj5A$9$k(B : $B?7$7$$JQNL$r:8JU$K=q$/(Bdata seito06; infile 'seito.prn'; input id $ sex $ kesseki $ univ $ koku $ suu1 $ suu2 $ tireki $ koumin $ rika $; if sex^='M' then delete; /* male only */ if kesseki^='0' then delete; /* syusseki-sya only */ area="$BITL@(B"; if univ="$BAa0pEDBg3X(B" then area="$BElF|K\(B"; if univ="$B7D1~Bg3X(B" then area="$BElF|K\(B"; if univ="$B4X@>Bg3X(B" then area="$B@>F|K\(B"; if univ="$BF1;V[$BNc(B4] $BJ#?t$N=hM}$r$5$;$?$$>l9g(B : do $B!A(B end $B$G0O$`(B
if tireki="$B@$3&;K(B-0" then do; tireki="$B@$3&;K(B"; koumin=.; end; ...[$BHf3S1i;;;R(B]
- = : $BEy$7$$(B
- ^= : $BEy$7$/$J$$(B
- > : $B$h$jBg$-$$(B
- < : $B$h$j>.$5$$(B
- >= : $B0J>e(B
- <= : $B0J2<(B
[$BO@M}1i;;;R(B]- ^ : $BH]Dj(B(NOT)
- & : $BO@M}OB(B(AND)
- | : $BO@M}@Q(B(OR)
- $B
- ($B:#=5$NB3$-(B?)
- $BIQEY=87W(B
- $B%0%k!<%WFbE}7WNL(B
- ...
- $B7k2L$N8+J}(B