snpListDir <- system.file("extdata/List",
package = "snpEnrichment")
signalFile <- system.file("extdata/Signal/toySignal.txt",
package = "snpEnrichment")
excludeFile <- system.file("extdata/Exclude/toyExclude.txt",
package = "snpEnrichment")
snpInfoDir <- system.file("extdata/snpInfo", package = "snpEnrichment")
data(transcript)
transcriptFile <- transcript
toy_M1 <- readEnrichment(pattern = "Chrom",
signalFile,
transcriptFile,
snpListDir,
snpInfoDir,
distThresh = 1000,
sigThresh = 0.05,
LD = FALSE,
ldDir = NULL,
extendMethod = "ld",
mc.cores = 1)
toy_M1Run the code above in your browser using DataLab