data(concrete)
X <- concrete[, 1:7]
Y <- concrete[, 8:10]
if (FALSE) u <- u.envapweights(X, Y)
if (FALSE) u
m <- env.apweights(X, Y, 2)
m
X <- as.matrix(X)
pred.res <- pred.env.apweights(m, X[2, ])
pred.res
Run the code above in your browser using DataLab