# NOT RUN {
genoPath <- system.file("extdata", "06_mvp-impute", "mvp.imp.geno.desc", package = "rMVP")
genotype <- attach.big.matrix(genoPath)
print(dim(genotype))
pca <- MVP.PCA(M=genotype)
str(pca)
# }
Run the code above in your browser using DataLab