# NOT RUN {
## Make test data available
data(sind.mat2open)
## Estimate and display robust PCA loadings and scores
sind.save <- gx.robmva.closed(sind.mat2open)
gx.rqpca.print(sind.save, ifcntrb = TRUE)
## Clean-up
rm(sind.save)
# }
Run the code above in your browser using DataLab