r:t-test
Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| r:t-test [2021/04/15 01:29] – [Two sample test] hkimscil | r:t-test [2024/04/14 23:52] (current) – [One sample t-test against population parameter mu and sigma] hkimscil | ||
|---|---|---|---|
| Line 30: | Line 30: | ||
| > potato_sample_large <- rnorm2(2500, | > potato_sample_large <- rnorm2(2500, | ||
| > mean(potato_sample_large) | > mean(potato_sample_large) | ||
| - | [1] 191 | + | [1] 194 |
| > sqrt(var(potato_sample_large)) | > sqrt(var(potato_sample_large)) | ||
| [1] 20 | [1] 20 | ||
| Line 82: | Line 82: | ||
| t <- (sample_mean - pop_mean) / (sample_sd/ | t <- (sample_mean - pop_mean) / (sample_sd/ | ||
| - | abs(qt(0.05/ | + | abs(qt(0.05/ |
| # or | # or | ||
| - | 1-pt(t,n-1) | + | 2*(1-pt(t,n-1)) |
| # n = 50 이었음 | # n = 50 이었음 | ||
| # t = 계산된 값 | # t = 계산된 값 | ||
| + | </ | ||
| + | |||
| + | < | ||
| + | tout <- t.test(height_sample_biased, | ||
| + | tout | ||
| </ | </ | ||
| ====== One sample t-test population sigma unknown ====== | ====== One sample t-test population sigma unknown ====== | ||
| Line 282: | Line 287: | ||
| s.mean <- 53.5 | s.mean <- 53.5 | ||
| s.sd <- 5 | s.sd <- 5 | ||
| - | # set.seed(1) | + | set.seed(1) |
| s1 <- rnorm(s.n, s.mean, s.sd) | s1 <- rnorm(s.n, s.mean, s.sd) | ||
| s1 | s1 | ||
| Line 298: | Line 303: | ||
| * 확인 | * 확인 | ||
| < | < | ||
| - | t.test(s1, mu=50) | + | t.test(s1, mu=51) |
| </ | </ | ||
| 표준편차가 샘플과 모집단이 서로 다르다고 한다면 | 표준편차가 샘플과 모집단이 서로 다르다고 한다면 | ||
| < | < | ||
| - | t.test(s1, mu=50, var.equal=FALSE) | + | t.test(s1, mu=51, var.equal=FALSE) |
| </ | </ | ||
| Line 311: | Line 316: | ||
| # 가설: 강사의 학생들의 점수와 모집단의 평균점수가 다를 것이다. | # 가설: 강사의 학생들의 점수와 모집단의 평균점수가 다를 것이다. | ||
| - | # 모집단 평균: | + | # 모집단 평균: |
| - | s.mu <- 50 | + | s.mu <- 51 |
| # 강사집단의 평균: 53.5, sd = 5 | # 강사집단의 평균: 53.5, sd = 5 | ||
| Line 326: | Line 331: | ||
| </ | </ | ||
| ====== Two sample test ====== | ====== Two sample test ====== | ||
| + | [[:t-test]] | ||
| + | |||
| 게임회사의 직원인 강태원씨는 게임에 접속하는 사용자의 게임에 대한 강박성이 존재할 때, 가장 접속을 많이 할 것이라는 가설을 세웠다. 강박성이란 게임의 진행과정이 머리에 끊임없이 떠올라서 게임상황을 활성화하는 정도를 말한다. 이런 방법으로 강태원은 강박성이 높은 그룹과 낮은 그룹 두 그룹을 구하고, 각 그룹의 게임에 쓴 비용을 구하였다. 정말 차이가 있을까? | 게임회사의 직원인 강태원씨는 게임에 접속하는 사용자의 게임에 대한 강박성이 존재할 때, 가장 접속을 많이 할 것이라는 가설을 세웠다. 강박성이란 게임의 진행과정이 머리에 끊임없이 떠올라서 게임상황을 활성화하는 정도를 말한다. 이런 방법으로 강태원은 강박성이 높은 그룹과 낮은 그룹 두 그룹을 구하고, 각 그룹의 게임에 쓴 비용을 구하였다. 정말 차이가 있을까? | ||
r/t-test.1618450178.txt.gz · Last modified: by hkimscil