# NOT RUN {
data(waterstrider)
X <- waterstrider[ , 1]
Y <- waterstrider[ , 2:5]
# }
# NOT RUN {
m <- henv(X, Y, 2)
# }
# NOT RUN {
# }
# NOT RUN {
pred.res <- pred.henv(m, X[2])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab