トップ 差分 一覧 Farm ソース 検索 ヘルプ PDF RSS ログイン

leveneTest()

*disclaimer
231310

R

leveneTest()

*等分散性の検定

leveneTest(data=データフレーム, 数値データ~カテゴリデータ)

  • カテゴリ間で数値データの分散が等しいか

  • sugi_iwa.datの例
    • テストの時期:事前テスト time==1
    • 数値データ:score
    • カテゴリデータ:実験群と統制群 cond

install.packages("car")
library(car)

str(sugi_iwa.dat)
 $ ID   : Factor w/ 20 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10 ...
 $ cond : Factor w/ 2 levels "control","experiment": 2 2 2 2 2 2 2 2 2 2 ...
 $ time : num [1:120] 1 1 1 1 1 1 1 1 1 1 ...
 $ score: num [1:120] 65 75 35 70 85 55 85 20 50 55 ...

tmp <- sugi_iwa.dat %>% filter(time==1)  

leveneTest(data=tmp, score~cond)

Levene's Test for Homogeneity of Variance (center = median)
      Df F value Pr(>F)
group  1  1.3285 0.2563
      38               
  • p値が、有意ではない=「分散が等しくない」(差がある)とは言えない=等分散とみなせる