# NOT RUN {
# read SNP P values
file1 <- paste(path.package("COMBAT"),"extdata","SNP_info.txt.gz",sep="/")
snp.info <- read.table(file1, header = TRUE, as.is=TRUE)
snp.pvals <- as.matrix(snp.info[,2])
# read reference genotype
file2 <- paste(path.package("COMBAT"),"extdata","SNP_ref.txt.gz",sep="/")
snp.ref <- read.table(file2, header = TRUE)
snp.ref <- as.matrix(snp.ref)
#call COMBAT; not run
#COMBAT(snp.pvals, snp.ref, nperm=50)
# }
Run the code above in your browser using DataCamp Workspace