*disclaimer
448983
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値が、有意ではない＝「分散が等しくない」（差がある）とは言えない＝等分散とみなせる
https://sugiura-ken.org/wiki/