# \donttest{
data(Nimon21)
## Redundancy Analysis
rda(X_vars=c("AU", "CC", "CL", "CO", "DF", "FB", "GR", "MW"),
Y_vars=c("IDE", "IEE", "IOCB", "IPR", "ITS"),
data=Nimon21)
## Multivariate Principal Component Regression
mpcr(X_vars=c("AU", "CC", "CL", "CO", "DF", "FB", "GR", "MW"),
Y_vars=c("IDE", "IEE", "IOCB", "IPR", "ITS"),
pca="COR", pc_select=1,
data=Nimon21)
# }
Run the code above in your browser using DataLab