## ICMatrix
data(MA0003.2)
icm = toICM(MA0003.2)
seqLogo(icm, ic.scale = TRUE)
## TFFM
xmlFirst <- file.path(system.file("extdata", package="TFBSTools"),
"tffm_first_order.xml")
tffmFirst <- readXMLTFFM(xmlFirst, type="First")
seqLogo(tffmFirst)
Run the code above in your browser using DataLab