Differences

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

--- anova [2020/05/20 15:43] – [Example 2] hkimscil
+++ anova [2020/05/20 15:51] – [Example 2] hkimscil
@@ Line 644: / Line 644: @@
 <code>
-df_x1
+df.total <- length(xs$wrong) - 1
-df_x2
+ss.total <- var(xs$wrong)*df_tot
-df_x3
+var.total <- ss.total/df.total
+var.total.r <- var(xs$wrong)
-ss_x1
+df.x1 <- length(x1)-1
-ss_x2
+df.x2 <- length(x2)-1
-ss_x3
+df.x3 <- length(x3)-1
+ss.x1 <- var(x1)*df.x1
+ss.x2 <- var(x2)*df.x2
+ss.x3 <- var(x3)*df.x3
-ss_tot
+ss.within <- ss.x1 + ss.x2 + ss.x3
-df_tot
+df.within <- df.x1 + df.x2 + df.x3
+ss.between <- ss.total - ss.within
+df.between <- df.total - df.within
-ss_with
+ms.between <- ss.between/df.between
-df_with
+ms.within <- ss.within/df.within
+f.value <- ms.between/ms.within
-ss_bet
+ss.between
-df_bet
+df.between
-</code>
+ss.within
+df.within
+ms.between
+ms.within
+f.value
-<code>
-df_tot <- length(xs$wrong) - 1
-ss_tot <- var(xs$wrong)*df_tot
-var_tot <- var(xs$wrong)
-df_x1 <- length(x1)-1
-df_x2 <- length(x2)-1
-df_x3 <- length(x3)-1
-ss_x1 <- var(x1)*df_x1
-ss_x2 <- var(x2)*df_x2
-ss_x3 <- var(x3)*df_x3
 </code>
 ====== E.G. 1 (R) ======