## Not run: signalFile <- system.file("extdata/Signal/toySignal.txt",
# package = "snpEnrichment")
# snpInfoDir <- system.file("extdata/snpInfo",
# package = "snpEnrichment")
# writeLD(pattern = "Chrom", snpInfoDir, signalFile,
# ldDir = NULL, ldThresh = 0.8, mc.cores = 1)## End(Not run)
Run the code above in your browser using DataLab