# NOT RUN {
cor.path <- system.file("testfiles/", package = "sumFREGAT")
score.file <- system.file("testfiles/CFH.full.vcf.gz", package = "sumFREGAT")
p.bt <- BT(score.file, genes = "CFH", cor.path = cor.path)$pvalue
p.skat <- SKAT(score.file, genes = "CFH", cor.path = cor.path)$pvalue
p.pca <- PCA(score.file, genes = "CFH", cor.path = cor.path, n = 85)$pvalue
p.combined <- ACATO(c(p.bt, p.skat, p.pca))
# }
Run the code above in your browser using DataLab