c:ma:2016:schedule:week09_answer
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
c:ma:2016:schedule:week09_answer [2016/11/09 09:31] – [E.g. 4] hkimscil | c:ma:2016:schedule:week09_answer [2016/11/09 09:52] (current) – [E.g. 6] hkimscil | ||
---|---|---|---|
Line 374: | Line 374: | ||
| | ||
- | > 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 |
+ | 156.0 | ||
+ | |||
+ | $b | ||
+ | Min. 1st Qu. Median | ||
+ | 169.0 | ||
+ | |||
+ | > tapply(abs$values, abs$ind, sd) | ||
+ | a b | ||
+ | 9.342852 | ||
+ | > | ||
> t.test(ab$a, | > t.test(ab$a, | ||
Line 399: | Line 409: | ||
아이스크림의 박테리아가 0.3 MPN/g 보다 커서 유통되기에 위험하다고 할 수 있을까? | 아이스크림의 박테리아가 0.3 MPN/g 보다 커서 유통되기에 위험하다고 할 수 있을까? | ||
+ | < | ||
+ | > 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 | ||
+ | 95 percent confidence interval: | ||
+ | | ||
+ | sample estimates: | ||
+ | mean of x | ||
+ | 0.4564444 | ||
+ | |||
+ | > | ||
+ | |||
+ | > t.test(ir, alternative=" | ||
+ | |||
+ | One Sample t-test | ||
+ | |||
+ | data: ir | ||
+ | t = 2.2051, df = 8, p-value = 0.02927 | ||
+ | alternative hypothesis: true mean is greater than 0.3 | ||
+ | 95 percent confidence interval: | ||
+ | | ||
+ | sample estimates: | ||
+ | mean of x | ||
+ | 0.4564444 | ||
+ | |||
+ | > | ||
+ | </ | ||
====== E.g. 6 ====== | ====== E.g. 6 ====== | ||
Line 406: | Line 450: | ||
흡연이 기억에 영향을 준다고 할 수 있을까? | 흡연이 기억에 영향을 준다고 할 수 있을까? | ||
+ | < | ||
+ | > smoke <- c(18, | ||
+ | > nosmoke <- c(16, | ||
+ | |||
+ | > sn <- data.frame(smoke, | ||
+ | > ss <- stack(sn) | ||
+ | > plot(ss$values~ss$ind) | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | |||
+ | 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 | ||
+ | 95 percent confidence interval: | ||
+ | | ||
+ | sample estimates: | ||
+ | mean in group nosmoke | ||
+ | | ||
+ | |||
+ | > | ||
+ | |||
+ | > | ||
+ | </ | ||
====== E.g. 7 ====== | ====== E.g. 7 ====== | ||
- MASS package를 불러온 후, survey 데이터를 활용하여 담배와 운동량 간의 관계에 대한 가설테스트를 하시오. | - MASS package를 불러온 후, survey 데이터를 활용하여 담배와 운동량 간의 관계에 대한 가설테스트를 하시오. |
c/ma/2016/schedule/week09_answer.1478653280.txt.gz · Last modified: 2016/11/09 09:31 by hkimscil