Differences

This shows you the differences between two versions of the page.

--- c:ma:2016:schedule:week09_answer [2016/11/09 01:01] – [E.g. 4] hkimscil
+++ c:ma:2016:schedule:week09_answer [2016/11/09 01:22] (current) – [E.g. 6] hkimscil
@@ Line 374: / Line 374: @@
  Max.   :190.0   Max.   :188.0
-> sd(ab$a)
+> abs <- stack(ab)
-[1] 9.342852
+> tapply(abs$values, abs$ind, summary)
-> sd(ab$b)
+$a
-[1] 6.442912
+   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
+.0   169.5   175.0   174.8   180.5   190.0
+$b
+   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.
+.0   173.2   177.0   178.2   183.8   188.0
+> tapply(abs$values, abs$ind, sd)
+       a        b
+.342852 6.442912
+>
 > t.test(ab$a,ab$b)
@@ Line 399: / Line 409: @@
 아이스크림의 박테리아가 0.3 MPN/g 보다 커서 유통되기에 위험하다고 할 수 있을까?
+<code>> ir <- c(0.593, 0.142, 0.329, 0.691, 0.231, 0.793, 0.519, 0.392, 0.418)
+> ir
+[1] 0.593 0.142 0.329 0.691 0.231 0.793 0.519 0.392 0.418
+> t.test(ir, mu=.3)
+	One Sample t-test
+data:  ir
+t = 2.2051, df = 8, p-value = 0.05853
+alternative hypothesis: true mean is not equal to 0.3
+percent confidence interval:
+.2928381 0.6200508
+sample estimates:
+mean of x
+.4564444
+>
+> t.test(ir, alternative="greater", mu=.3)
+	One Sample t-test
+data:  ir
+t = 2.2051, df = 8, p-value = 0.02927
+alternative hypothesis: true mean is greater than 0.3
+percent confidence interval:
+.3245133       Inf
+sample estimates:
+mean of x
+.4564444
+>
+</code>
 ====== E.g. 6 ======
@@ Line 406: / Line 450: @@
 흡연이 기억에 영향을 준다고 할 수 있을까?
+<code>
+> smoke <- c(18,22,21,17,20,17,23,20,22,21)
+> nosmoke <- c(16,20,14,21,20,18,13,15,17,21)
+> sn <- data.frame(smoke, nosmoke)
+> ss <- stack(sn)
+> plot(ss$values~ss$ind)
+</code>
+<code>> t.test(values$ss~ind$ss)
+	Welch Two Sample t-test
+data:  ss$values by ss$ind
+t = -2.2573, df = 16.376, p-value = 0.03798
+alternative hypothesis: true difference in means is not equal to 0
+percent confidence interval:
+ -5.0371795 -0.1628205
+sample estimates:
+mean in group nosmoke   mean in group smoke
+.5                  20.1
+>
+>
+</code>
 ====== E.g. 7 ======
   - MASS package를 불러온 후, survey 데이터를 활용하여 담배와 운동량 간의 관계에 대한 가설테스트를 하시오.