# Do a MultiplePCA on the BLOOD dataset
if (FALSE) {
res <- WH.MultiplePCA(BLOOD, list.of.vars = c(1:3))
}
# Plot results
if (FALSE) {
WH.plot_multiple_Spanish.funs(res, axes = c(1, 2), var = c(1:3))
}
Run the code above in your browser using DataLab