Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/jpa/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 我怎样做Levene';用lappy函数进行s检验_R_Linear Regression_Lapply_Anova - Fatal编程技术网

R 我怎样做Levene';用lappy函数进行s检验

R 我怎样做Levene';用lappy函数进行s检验,r,linear-regression,lapply,anova,R,Linear Regression,Lapply,Anova,我怎样才能对我的回归进行Levene测试(汽车套件)?对于我的回归,我使用了lappy函数 这是我的密码 library(data.table) Regressions<- data.table(February)[, .(Lm = lapply(.SD, function(x) summary(lm(February$PPNA ~ February$Acum1 + x)))), .SDcols = 80:157

我怎样才能对我的回归进行Levene测试(汽车套件)?对于我的回归,我使用了lappy函数

这是我的密码

library(data.table)

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

回归如果我们有一个分组列(“组”),那么我们从
.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]

我没有一个分组列('group')@Pablo你有一个列'PPNA'谢谢你的帮助,但我不知道levene测试不适合定量解释变量,所以我使用了lmtest包中的bptest。我问了另一个关于stackoverflow的问题。你能帮助我吗?[链接]()@Pablo当然,我会查出来的