User Tools

Site Tools


anova

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision
Previous revision
Next revisionBoth sides next revision
anova [2020/05/20 15:43] – [Example 2] hkimscilanova [2020/05/20 15:55] – [Example 2] hkimscil
Line 644: Line 644:
  
 <code> <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>+
  
-<code> +ss.within 
-df_tot <- length(xs$wrong) - +df.within 
-ss_tot <- var(xs$wrong)*df_tot + 
-var_tot <- var(xs$wrong)+ms.between 
 +ms.within 
 + 
 +f.value 
 +[1] 5.25 
 + 
 +f.crit <- qf(.95, df1=2, df2=27## p=.05 level에서 F(2,27)의 값은 qf 펑션으로 구합니다. 
 +f.crit 
 +[1] 3.354131 
 + 
 +#################################### 
 +## f.value가 f.crit 값보다 크므로  
 +## 세 그룹 간에 차이가 있다는 가설을  
 +## 받아들인다. (세 그룹 간에 차이가  
 +## 없다는 영가설을 부정한다) 
 +####################################
  
-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> </code>
 ====== E.G. 1 (R) ====== ====== E.G. 1 (R) ======
anova.txt · Last modified: 2022/09/30 09:02 by hkimscil

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki