_ | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁
FrontPage › 覿一谿伎蟆

Contents

1 F-蟆
2 襦覯ろ誤 覦覯


1 F-蟆 #

  • 2螳 覲 伎 覿一 螳讌 るジ讌 蟆.
  • R var.test 伎
  • F 糾
    • F 糾 = (SSA/) / (SSE/)
    • 豌願 覿(SSA, 讌螳 覿) : 企 覲語 レ 覿 (螳 讌 蠏れ 豌危蠏朱 覿 伎 )
    • れ姶 覿(SSE, 讌 覿) : 覲語 一壱 蠍磯 覿


a <- c(61,60,56,63,56,63,59,56,44,61)
b <- c(55,54,47,59,51,61,57,54,62,58)
var.test(a,b)

蟆郁骸 れ螻 螳.
        F test to compare two variances

data:  a and b 
F = 1.4815, num df = 9, denom df = 9, p-value = 0.5675
alternative hypothesis: true ratio of variances is not equal to 1 
95 percent confidence interval:
 0.3679936 5.9646717 
sample estimates:
ratio of variances 
           1.48154 

> 

蟆郁骸伎

    • 蠏覓願: 覿一 谿願 .
    • 襴所: 覿一 谿願 .
  • p-value螳 0.5675襦 譴 0.05覲企 覩襦 襴所れ 觧. 蠏碁覩襦 蠏覓願 讌讌.

2 襦覯ろ誤 覦覯 #

  • 覲 蠏 覲 譴襦覿 蟯豸′蟾讌 蟇磯Μ襯
  • 覲 譴 覿一 朱 るジ 蟆 讌 蟆
  • R leveneTest襯 伎

a <- c(61,60,56,63,56,63,59,56,44,61)
b <- c(55,54,47,59,51,61,57,54,62,58)
x1 <- data.frame(a,b)
df1 <- stack(x1)

library("car")
leveneTest(values~ind, data=df1)

蟆郁骸 れ螻 螳.
> leveneTest(values~ind, data=df1)
Levene's Test for Homogeneity of Variance (center = median)
      Df F value Pr(>F)
group  1  0.0039 0.9508
      18                         

蟆郁骸伎

    • 蠏覓願: 覿一 谿願 .
    • 襴所: 覿一 谿願 .
  • p-value = 0.9508 襦 譴 0.05覲企 . 蠏碁覩襦 襴所れ 觧. 蠏覓願 讌讌.

c1 <- c(3.6, 4.1, 4.0)
c2 <- c(3.1, 3.2, 3.9)
c3 <- c(3.2, 3.5, 3.5)
c4 <- c(3.5, 3.8, 3.9)
x1 <- data.frame(c1,c2,c3,c4)
df2 <- stack(x1)

library("car")
leveneTest(values~ind, data=df2)

蟆郁骸 れ螻 螳.
> leveneTest(values~ind, data=df2)
Levene's Test for Homogeneity of Variance (center = median)
      Df F value Pr(>F)
group  3  0.2593 0.8528
       8                 
蠏覓願 讌讌..
蠍 蠍郁鍵..
企: : るジ讓曙 襦螻豺 企Ν 譯殊語. 襦螻豺
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:53