Compute variance explained by first PCA axis

[Experimental] Compute variance explained by a few PCA axis.

pca_var(x, naxe = 10)

Arguments

x

glPCA object
naxe

number of axis for which you want to know explained variance

Details

PCA from glPca from the package Adegenet

Examples

## simulate a toy dataset
x <- adegenet::glSim(50,4e3, 50, ploidy=2)
## perform PCA
pca1 <- adegenet::glPca(x, nf=3)
## Extract variance
res <- pca_var(pca1, naxe=3)
res

#>   axis       eig      p.eig
#> 1    1 12.509770 0.03085197
#> 2    2  9.994165 0.02464791
#> 3    3  9.831442 0.02424660