# NOT RUN {
data(fiberpaper)
X <- fiberpaper[, 5:7]
Y <- fiberpaper[, 1:4]
u <- u.stenv(X, Y)
u
# }
# NOT RUN {
B <- 100
# }
# NOT RUN {
bootse <- boot.stenv(X, Y, 2, 3, B)
# }
# NOT RUN {
bootse
# }
Run the code above in your browser using DataLab