# NOT RUN {
data(fiberpaper)
X <- fiberpaper[ , c(5, 7)]
Y <- fiberpaper[ , 1:3]
Z <- as.numeric(fiberpaper[ , 6] > mean(fiberpaper[ , 6]))
# }
# NOT RUN {
m <- 5
# }
# NOT RUN {
nperm <- 50
# }
# NOT RUN {
cvPE <- cv.genv(X, Y, Z, 2, m, nperm)
# }
# NOT RUN {
cvPE
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab