User Tools

Site Tools


c:ms:2018:schedule:week05

Differences

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

Link to this comparison view

Next revision
Previous revision
c:ms:2018:schedule:week05 [2018/04/04 08:31] – created hkimscilc:ms:2018:schedule:week05 [2018/04/04 08:47] (current) hkimscil
Line 6: Line 6:
 : Alcohol이 임산부에게 미치는 영향에 대해서 조사를 하는 연구자가, 임신 중의 alcohol 섭취가 태아의 몸무게에 미치는 영향에 대해서 관심을 가졌다. 이에 따라서 n = 16 의 랜덤 샘플 쥐가 구해졌다. 어미 쥐는 매일 일정량의 alcohol을 섭취하였다. 연구자는 이 쥐들의 새끼 중 하나씩을 선택해서 n = 16의 샘플을 취한 후 평균을 내 보았더니, $\overline{X}$ = 15 grams 이었다. 보통 쥐의 경우 평균 몸무게는 $\mu = 18$ 그램이고 $\sigma = 4$ 라는 것을 연구자는 알고 있다. 연구자는 alcohol의 영향력을 어떻게 테스트해야 할까? : Alcohol이 임산부에게 미치는 영향에 대해서 조사를 하는 연구자가, 임신 중의 alcohol 섭취가 태아의 몸무게에 미치는 영향에 대해서 관심을 가졌다. 이에 따라서 n = 16 의 랜덤 샘플 쥐가 구해졌다. 어미 쥐는 매일 일정량의 alcohol을 섭취하였다. 연구자는 이 쥐들의 새끼 중 하나씩을 선택해서 n = 16의 샘플을 취한 후 평균을 내 보았더니, $\overline{X}$ = 15 grams 이었다. 보통 쥐의 경우 평균 몸무게는 $\mu = 18$ 그램이고 $\sigma = 4$ 라는 것을 연구자는 알고 있다. 연구자는 alcohol의 영향력을 어떻게 테스트해야 할까?
 </WRAP> </WRAP>
 +
 [[https://www.easycalculation.com/statistics/t-distribution-critical-value-table.php|T dist. table]] [[https://www.easycalculation.com/statistics/t-distribution-critical-value-table.php|T dist. table]]
  
-<WRAP > 
 <code>> rnorm2 <- function(n,mean,sd) { mean+sd*scale(rnorm(n)) } <code>> rnorm2 <- function(n,mean,sd) { mean+sd*scale(rnorm(n)) }
 > potato_sample <- rnorm2(25, 191,20) > potato_sample <- rnorm2(25, 191,20)
Line 28: Line 28:
  
 </code> </code>
-</WRAP> 
- 
  
 <WRAP help>  <WRAP help> 
Line 41: Line 39:
 </WRAP> </WRAP>
 </WRAP> </WRAP>
-. . . 
  
-<WRAP>+. . .
  
 <code>> sec12.9 <- c(58, 48, 48, 41, 34,  <code>> sec12.9 <- c(58, 48, 48, 41, 34, 
Line 82: Line 79:
  
 </code> </code>
-</WRAP> 
  
 t test summary  t test summary 
Line 98: Line 94:
       * 약을 먹고 나타나는 효과       * 약을 먹고 나타나는 효과
  
-</WRAP> 
-<WRAP half column> 
 Chapter 1. should be familiarized. Chapter 1. should be familiarized.
 Chapter 2.  Chapter 2. 
Line 188: Line 182:
 </code> </code>
  
 +함수만들기 
 +<code>> se = function(x) sd(x)/sqrt(length(x))
 +> se(Volume)</code>
c/ms/2018/schedule/week05.1522800083.txt.gz · Last modified: 2018/04/04 08:31 by hkimscil

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki