# Loading a Panmat object in the micropan package
data(list="Mpneumoniae.blast.panmat",package="micropan")
ppca.blast <- panpca(Mpneumoniae.blast.panmat)
summary(ppca.blast)
plot(ppca.blast,cum=TRUE)
# This reveals that the two first components together explain more than 64% of the variation
Run the code above in your browser using DataLab