data(vehicles)
X <- vehicles[, 1:11]
Y <- vehicles[, 12:15]
X <- scale(X)
Y <- scale(Y) # The scales of Y are vastly different, so scaling is reasonable here
m <- 5
nperm <- 50
if (FALSE) cvPE <- cv.rrenv(X, Y, 4, 2, m, nperm)
if (FALSE) cvPE
Run the code above in your browser using DataLab