ringoExampleDir <- system.file("exData",package="Ringo")
load(file.path(ringoExampleDir,"exampleProbeAnno.rda"))
trans2Probe <- features2Probes(exGFF, exProbeAnno)
trans2Probe[exGFF$name[match("NUDT2", exGFF$symbol)]]
exGFF[match(names(trans2Probe)[listLen(trans2Probe)>0],exGFF$name),]
trans2Probe[listLen(trans2Probe)==1]
Run the code above in your browser using DataLab