R
!!!leveneTest()
＊等分散性の検定

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

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

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

{{pre

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値が、有意ではない＝「分散が等しくない」（差がある）とは言えない＝等分散とみなせる