# Run this example in a folder with write permission
files <- c(
system.file("extdata", "data7x3.txt", package = "diemr"),
system.file("extdata", "data7x10.txt", package = "diemr")
)
if (FALSE) {
variant1 <- variantSites(files, filename = "v1.txt")
variant2 <- variantSites(files, filename = "v2.txt", requireHomozygous = 2)
}
Run the code above in your browser using DataLab