## LOAD DATA
data(H3N2)
H3N2
## set population to yearly epidemics
pop(H3N2) <- factor(H3N2$other$epid)
## PERFORM DAPC - USE POPULATIONS AS CLUSTERS
## to reproduce exactly analyses from the paper, use "n.pca=1000"
dapc1 <- dapc(H3N2, all.contrib=TRUE, scale=FALSE, n.pca=150, n.da=5)
dapc1
## (see ?dapc for details about the output)
## SCREEPLOT OF EIGENVALUES
barplot(dapc1$eig, main="H3N2 - DAPC eigenvalues")
## SCATTERPLOT (axes 1-2)
scatter(dapc1, ratio=.2)
Run the code above in your browser using DataLab