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 <- env.tcond(X, Y, 2, 6)
m
X <- as.matrix(X)
pred.res <- pred.env.tcond(m, X[2, ])
pred.res
Run the code above in your browser using DataLab