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