xmlFirst <- file.path(system.file("extdata", package="TFBSTools"),
"tffm_first_order.xml")
tffmFirst <- readXMLTFFM(xmlFirst, type="First")
getPosProb(tffmFirst)
xmlDetail <- file.path(system.file("extdata", package="TFBSTools"),
"tffm_detailed.xml")
tffmDetail <- readXMLTFFM(xmlDetail, type="Detail")
getPosProb(tffmDetail)
Run the code above in your browser using DataLab