【发布时间】:2017-06-08 20:20:29
【问题描述】:
如何将 leveneTest 分别应用于每个因变量,然后如何提取每个分析的 P 值并将所有 p 值放入矩阵中。
responses <- as.matrix(mtcars[,-c(4,8,9)])
leveneTest(responses~as.factor(am)*as.factor(vs),data=mtcars)
【问题讨论】:
标签: r loops equality lapply variance
如何将 leveneTest 分别应用于每个因变量,然后如何提取每个分析的 P 值并将所有 p 值放入矩阵中。
responses <- as.matrix(mtcars[,-c(4,8,9)])
leveneTest(responses~as.factor(am)*as.factor(vs),data=mtcars)
【问题讨论】:
标签: r loops equality lapply variance
你可以试试这个:
responses <- as.matrix(mtcars[,-c(4,8,9)])
results <- data.frame(var = colnames(responses), p = rep(NA,dim(responses)[2]))
results$p <- apply(responses,2,function(x) {leveneTest(x ~ as.factor(mtcars$am)*as.factor(mtcars$vs))[1,3]})
【讨论】: