Answers:
假设在R中,您的第一个样本存储在名为的向量中,sample1
而您的第二个样本存储在名为的向量中sample2
。
首先,您必须将两个样本合并为一个向量,并创建另一个向量来定义两个组:
y <- c(sample1, sample2)
和
group <- as.factor(c(rep(1, length(sample1)), rep(2, length(sample2))))
现在,您可以打电话
library(car)
levene.test(y, group)
编辑
在R中尝试此操作时,收到以下警告:
'levene.test' has now been removed. Use 'leveneTest' instead...
据此,您应该看看leveneTest
...
欧克拉姆的答案包含所有重要方面。但是,如果您不想加载所有的Rcmdr。相关的图书馆是“汽车”。但正如ocram所指出的那样,levene.test已被弃用。请注意,弃用并不是功能或代码的更改(此时,2011年9月18日)。这只是函数名称的更改。因此,levene.test和leveneTest将工作相同。为了记录,我想针对这个简单案例提供一个使用leveneTest和可重用的重塑代码的示例:
#Creating example code
sample1 <- rnorm(20)
sample2 <- rnorm(20)
#General code to reshape two vectors into a long data.frame
twoVarWideToLong <- function(sample1,sample2) {
res <- data.frame(
GroupID=as.factor(c(rep(1, length(sample1)), rep(2, length(sample2)))),
DV=c(sample1, sample2)
)
}
#Reshaping the example data
long.data <- twoVarWideToLong(sample1,sample2)
#There are many different calls here that will work... but here is an example
leveneTest(DV~GroupID,long.data)
(我认为)准备数据的最简单方法是使用reshape2包:
#Load packages
library(reshape2)
library(car)
#Creating example data
sample1 <- rnorm(20)
sample2 <- rnorm(20)
#Combine data
sample <- as.data.frame(cbind(sample1, sample2))
#Melt data
dataset <- melt(sample)
#Compute test
leveneTest(value ~ variable, dataset)