ranks <- getPCRanks(eigen, IDs = c("trt", "ctl"), PC = 1)
DMLs <- addRanks(ranks)
# data.frame of regions to test:
regions <- data.frame(chr=c("chr3", "chr3", "chr1"),
s=c(4920450, 3961576, 300000),
e=c(4923267, 3963805, 302900),
ID=c("Hypo-DMR", "partial Hyper-DMR", "random"))
getRegionScores(DMLs, regions)
Run the code above in your browser using DataLab