probeToTrans <- list("101"="ENST00011",
"102"=c("ENST00021", "ENST00022"),
"103"=NA)
transToTSS <- data.frame(
transID=c("ENST00011", "ENST00021", "ENST00022"),
chr=c("1", "1", "1"),
tss=c(100000, 200000, 201000),
strand=c("-", "+", "+"))
matchProbeToPromoter(probeToTrans, transToTSS,
promWidth=4000, mode="union")
matchProbeToPromoter(probeToTrans, transToTSS,
promWidth=4000, mode="keepAll")
Run the code above in your browser using DataLab