data(concrete)
X <- concrete[1:78, 1:7] # The first 78 observations are training data
Y <- concrete[1:78, 8:10]
if (FALSE) u <- u.env.tcond(X, Y, 6)
if (FALSE) u
m <- 5
nperm <- 50
if (FALSE) cvPE <- cv.env.tcond(X, Y, 2, 6, m, nperm)
if (FALSE) cvPE
Run the code above in your browser using DataLab