data(fiberpaper)
X <- fiberpaper[ , c(5, 7)]
Y <- fiberpaper[ , 1:3]
Z <- as.numeric(fiberpaper[ , 6] > mean(fiberpaper[ , 6]))
if (FALSE) B <- 100
if (FALSE) res <- boot.genv(X, Y, Z, 2, B)
if (FALSE) res$bootse[[1]]
if (FALSE) res$bootse[[2]]
Run the code above in your browser using DataLab