Differences

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

--- c:ms:2025:schedule:week06_t-test_and_anova_note [2025/04/10 13:41] – [t-test, different approach] hkimscil
+++ c:ms:2025:schedule:week06_t-test_and_anova_note [2025/04/14 08:35] (current) – [t-test, different approach] hkimscil
@@ Line 462: / Line 462: @@
 abline(v = mean.a, lty=2, lwd=3, col="blue")
 abline(v = mean.b, lty=2, lwd=3, col="darkgreen")
+# or
+hist(A, xlim=c(0,50), ylim=c(0,8), col="red")
+hist(B, add=T, col=rgb(0, 1, 0, 0.5))
+abline(v=mean(dat), col="black")
+abline(v=mean(A), col="red")
+abline(v=mean(B), col="darkgreen")
 </code>
@@ Line 538: / Line 545: @@
 f.calculated.pvalue
 </code>
 <code>
-df.between
-df.within
 x <- rf(500000, df1 = df.between, df2 = df.within)
 hist(x,
      breaks = "Scott",
      freq = FALSE,
-     xlim = c(0, 3),
+     xlim = c(0, 7),
-     ylim = c(0, 1),
+     ylim = c(0, 3),
      xlab = "",
      main = "Histogram for a F-distribution
@@ Line 552: / Line 558: @@
      cex.main = 0.9
 )
-curve(df(x, df1 = df.one, df2 = df.two),
+curve(df(x, df1 = df.between, df2 = df.within),
-      from = 0, to = 4, n = 5000,
+      from = 0, to = 8, n = 5000,
       col = "red", lwd = 2,
       add = T)
 abline(v=f.calculated, col="blue", lwd=2, lty="dotted")
+f.calculated.pvalue
+- f.calculated.pvalue
 </code>
 <code>
 # 한편,  t test를 했었을 때 (A, B 그룹을 가지고 independent
@@ Line 671: / Line 680: @@
 > abline(v = mean.b, lty=2, lwd=3, col="darkgreen")
 >
+> # or
+> hist(A, xlim=c(0,50), ylim=c(0,8), col="red")
+> hist(B, add=T, col=rgb(0, 1, 0, 0.5))
+> abline(v=mean(dat), col="black")
+> abline(v=mean(A), col="red")
+> abline(v=mean(B), col="darkgreen")
 </code>
 {{c:ms:2025:schedule:pasted:20250409-075631.png?550}}
+{{:c:ms:2025:schedule:pasted:20250414-083514.png?550}}
 <code>
 > # mean.total 에서 그룹a의 평균까지의 차이를 구한 후