Question

如何对回归进行Levene检验（汽车包装）？对于回归，我使用了lapply函数。

这是我的代码

library(data.table)

Regressions<- 
data.table(February)[, 
                  .(Lm = lapply(.SD, function(x) summary(lm(February$PPNA ~ February$Acum1 + x)))),
                  .SDcols = 80:157]

Answer 1

如果我们有一个分组列（“ group”），那么我们将循环遍历.SDcols中感兴趣的列，并应用具有该列值和组的levene.test

library(data.table)
library(car)
as.data.table(February)[, 
              .(Lm = lapply(.SD, function(x) list(levene.test(x, group)))),
              .SDcols = 80:157]

我如何使用lapply函数进行Levene检验

1 个答案: