Bartlett's test of sphericity.

Bartlett's test of sphericity.

Usage

morie_psymet_bartlett(data)

Arguments

data

Numeric matrix or data.frame of items.

Value

list with chisq, df, pval.

Examples

set.seed(1)
f <- rnorm(100)
X <- sapply(1:5, function(j) sqrt(0.5) * f + sqrt(0.5) * rnorm(100))
colnames(X) <- paste0("i", 1:5)
res <- morie_psymet_bartlett(X)
res$pval
#> [1] 6.164438e-23