if (FALSE) {
library(boot)
data(iris)
# Bootstrap CI for product of eigenvalues
CI_prod <- eigstatCI(iris[,1:4], iris$Species, which="product", R=500)
CI_prod
# Bootstrap CI for sum of eigenvalues (= trace)
CI_sum <- eigstatCI(iris[,1:4], iris$Species, which="sum", R=500)
CI_sum
# Use with parallel processing for speed
CI_max <- eigstatCI(iris[,1:4], iris$Species, which="max",
R=1000, parallel=TRUE, ncpus=4)
}
if (FALSE) {
library(boot)
data(iris)
# Fit boxM
res <- boxM(iris[,1:4], iris$Species)
# Get bootstrap CIs (must provide original data again)
CI <- eigstatCI_boxM(res, Y = iris[,1:4], group = iris$Species,
which = "sum", R = 500)
}
Run the code above in your browser using DataLab