Differences

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

--- t-test_summary [2026/04/12 06:34] – [ro.hypothesis.testing] hkimscil
+++ t-test_summary [2026/04/12 09:47] (current) – [ro.hypothesis.testing] hkimscil
@@ Line 483: / Line 483: @@
 > text(x=mean(zsdc2), y=.1, label=paste(round(mean(zsdc2),4)), pos=4)
 >
+</code>
+{{pasted:20260412-063549.png}}
+<code>
 > #
 > lo1 <- qnorm(.32/2)
@@ Line 508: / Line 511: @@
 > text(x=hi3, y=.1, label=paste(round(hi3,3), "(3)", "\n","99%"), pos=4)
 >
+</code>
+{{pasted:20260412-063531.png}}
+<code>
 > mean.of.sample.a <- mean(sdc)+ 1.5*sd(sdc)
 > mean.of.sample.a
@@ Line 535: / Line 542: @@
 +                    "\n", "pnorm(-z.score)*2 =", round(prob,5)),
 +      pos=4, col='red')
 >
+</code>
+{{pasted:20260412-063608.png}}
+<code>
 > # 새로운 UI로 게임을 하도록 한 후
 > # UI점수를 10명에게 구했다고 가정하고
@@ Line 574: / Line 585: @@
 +      pos=4, col='red')
 >
->
+</code>
+{{pasted:20260412-063636.png}}
+<code>
 > # 같은 방법으로 했는데 성공한 경우
 > set.seed(211)
@@ Line 619: / Line 633: @@
 +      col="darkgreen", cex=1, pos=2)
 >
->
+</code>
+{{pasted:20260412-063652.png}}
+<code>
 > # type i and type ii error
 > z.p2 <- (mean(p2)-mean(p1))/se2
@@ Line 659: / Line 676: @@
 +      col="darkgreen", cex=1, pos=2)
 >
+</code>
+{{pasted:20260412-063709.png}}
+<code>
 >
 > ############################
@@ Line 693: / Line 714: @@
 +      pos = 4, col="red", cex=1)
 >
+</code>
+{{pasted:20260412-063722.png}}
+<code>
 > prob
 [1] 0.002460977
@@ Line 793: / Line 818: @@
 +      pos=4, col='red')
 >
+</code>
+{{pasted:20260412-063739.png}}
+<code>
 > print(paste(t.cal, df, prob))
 [1] "-3.07021182079817 48 0.00351545738746208"
@@ Line 890: / Line 919: @@
 +      col="red", pos=4)
 > text(x=t.cal, y=.2, label=c(round(t.cal,3)), col="red", pos=2)
->
+</code>
+{{pasted:20260412-063758.png}}
+<code>
 > cat(t.cal, sz-1, prob)
 -3.88213 39 0.0003888961