## Not run: snpListDir <- system.file("extdata/List",
# package = "snpEnrichment")
# signalFile <- system.file("extdata/Signal/toySignal.txt",
# package = "snpEnrichment")
# snpInfoDir <- system.file("extdata/snpInfo", package = "snpEnrichment")
# data(transcript)
# transcriptFile <- transcript
#
# initFiles(pattern = "Chrom", snpInfoDir, signalFile, mc.cores = 1)
# toyData <- readEnrichment(pattern = "Chrom",
# signalFile,
# transcriptFile,
# snpListDir,
# snpInfoDir,
# distThresh = 1000,
# sigThresh = 0.05,
# LD = FALSE,
# ldDir = NULL,
# mc.cores = 1)
# toyData## End(Not run)
Run the code above in your browser using DataLab