# NOT RUN {
rm(list = ls())
# The dimension of predictor
p <- c(10, 10, 10)
# The envelope dimensions u.
u <- c(1, 1, 1)
# The dimension of response
r <- 5
# The sample size
n <- 200
dat <- TPR_sim(p = p, r = r, u = u, n = n)
x <- dat$x
y <- dat$y
## It is time-consuming
# }
# NOT RUN {
TensPLS_cv2d3d(x, y, maxdim = 5) # The estimated envelope dimensions are the same as u.
# }
# NOT RUN {
## Use dataset square, but it is time-consuming
# }
# NOT RUN {
data("square")
x <- square$x
y <- square$y
# check the dimension of x
dim(x)
# use 32 as the maximal envelope dimension
TensPLS_cv2d3d(x, y, maxdim=32)
# }
Run the code above in your browser using DataLab