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