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
B <- 100
if (FALSE) bootse <- boot.env.tcond(X, Y, 2, 6, B)
if (FALSE) bootse
Run the code above in your browser using DataLab