# NOT RUN {
geno <- file.path(system.file("extdata", "06_mvp-impute", package = "rMVP"), "mvp.imp")
MVP.Data.PC(TRUE, mvp_prefix=geno, out="myPC")
pca <- attach.big.matrix("myPC.pc.desc")[, 1:3]
MVP.PCAplot(PCA=pca, Ncluster=3, class=NULL, col=c("red", "green", "yellow"), file="jpg", pch=19)
# }
Run the code above in your browser using DataLab