# \donttest{
# Create sample DMR results
dmr_method1 <- data.frame(
Chromosome = c("chr1", "chr1", "chr2"),
Start_CpG = c("cg0001", "cg0050", "cg0100"),
End_CpG = c("cg0020", "cg0070", "cg0150")
)
dmr_method2 <- data.frame(
Chromosome = c("chr1", "chr2", "chr2"),
Start_CpG = c("cg0005", "cg0120", "cg0090"),
End_CpG = c("cg0025", "cg0160", "cg0110")
)
# Compare overlapping regions
overlaps <- compare_dmrs(dmr_method1, dmr_method2)
# }
Run the code above in your browser using DataLab