if (FALSE) {
set.seed(10)
simdata<-rdasim1(n = 100,p = 200,q = 200,k = 3) # data generation
X <- simdata$X
Y <- simdata$Y
cv_result<- rrda.cv(Y = Y, X = X, maxrank = 5, nfold = 5) # cv
rrda.summary(cv_result = cv_result)
rrda.plot(cv_result = cv_result)
}
Run the code above in your browser using DataLab