data(potato)
potList <- as.list(potato[c(1,2,9)])
pot.pcagca <- pcagca(potList)
# Show origin and type of all components
lapply(pot.pcagca$blockScores,colnames)
# Basic multiblock plot
plot(scores(pot.pcagca, block=2), comps=1, labels="names")
Run the code above in your browser using DataLab