pca_varplot.Rdpca_varplot(x, naxe = 10)
| x | glPCA object |
|---|---|
| naxe | number of axis for which you want to know explained variance |
PCA from glPca
## simulate a toy dataset x <- adegenet::glSim(50,4e3, 50, ploidy=2) ## perform PCA pca1 <- adegenet::glPca(x, nf=3) ## Extract variance pca_varplot(pca1, naxe=3)