# 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
# Simulate the data with \code{\link{TPR_sim}}.
dat <- TPR_sim(p = p, r = r, u = u, n = n)
Xn <- dat$Xn
Yn <- dat$Yn
res_std <- TPR.fit(Xn, Yn, u, method="standard")
result <- PMSE(Xn, Yn, res_std$coefficients)
# }
Run the code above in your browser using DataLab