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)Run the code above in your browser using DataLab