Differences

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

--- t-test [2022/04/24 19:02] – [예 2] hkimscil
+++ t-test [2022/04/24 21:26] – [가설테스트 예 2] hkimscil
@@ Line 716: / Line 716: @@
 두 번째의 판단을 채택하게 되면, A는 위에서의 NullHypothesis를 부정하는 것이 된다. 이를 다시 이야기 하면 [[research hypothesis]]를 채택하는 것이고, 이는 C사는 평균이 400g인 감자를 납품하고 있지 않다는 판단이다.
+===== 가설테스트 예 2 =====
+가설. 가상현실 세계에서 교육을 받을 때 가상교수자가 존재하는 것과 목소리만으로 교육을 받는 것 간에 차이가 있을 것이다.
+  * 독립변인. 가상현실의 교수방법
+    * 변인의 종류. 가상교수자의 존재/비존재(목소리만)
+    * 가상교수자의 존재 -> w.Char
+    * 목소리만 -> w.Voc
+  * 종속변인. 교육결과
+    * 숫자변인
+  * Data
+w.Char = c(82, 89, 80, 87, 87, 94, 90, 84, 92, 83, 89, 79, 96, 73, 83, 83)
+w.Voc  = c(74, 81, 74, 65, 80, 87, 79, 69, 87, 70, 85, 80, 85, 85, 88, 83)
+<code>
+set.seed(101)
+n1 <- 16
+n2 <- 16
+w.Char <- round(rnorm(n1, 85, 8))
+w.Voc <- round(rnorm(n2, 81, 8))
+g.diff <- mean(w.Char)-mean(w.Voc)
+df1 <- 16-1
+df2 <- 16-1
+ss1 <- var(w.Char) * df1
+ss2 <- var(w.Voc) * df2
+pooled.v <- (ss1 + ss2) / (df1 + df2)
+se <- sqrt((pooled.v/n1) + (pooled.v/n2))
+t.calc <- g.diff/se
+t.out <- t.test(w.Char, w.Voc)
+t.out
+t.calc
+</code>
 ===== 가설테스트 요약 =====