# NOT RUN {
phePath <- system.file("extdata", "07_other", "mvp.phe", package = "rMVP")
phenotype <- read.table(phePath, header=TRUE)
idx <- !is.na(phenotype[, 2])
phenotype <- phenotype[idx, ]
print(dim(phenotype))
genoPath <- system.file("extdata", "06_mvp-impute", "mvp.imp.geno.desc", package = "rMVP")
genotype <- attach.big.matrix(genoPath)
genotype <- genotype[, idx]
print(dim(genotype))
mapPath <- system.file("extdata", "07_other", "mvp.map", package = "rMVP")
map <- read.table("mvp.map" , head = TRUE)
farmcpu <- MVP.FarmCPU(phe=phenotype, geno=genotype, map=map, method.bin="static",
ncpus=detectCores(logical = FALSE), maxLoop=3, P=NULL, method.sub="reward",
method.sub.final="reward", bin.size=c(5e5,5e6,5e7), bin.selection=seq(10,100,10),
Prior=NULL, p.threshold=NA, QTN.threshold=NULL, bound=NULL)
str(farmcpu)
# }
Run the code above in your browser using DataLab