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