## Not run: 
#     motifSet <- runMEME(file.path(system.file("extdata", package="TFBSTools"), 
#                         "crp0.s"), 
#                     binary="/usr/local/Cellar/meme/4.10.1/bin/meme", 
#                     arguments=list("-nmotifs"=3))
#     ## Get the site sequences                
#     sitesSeq(motifSet, type="all")
#     sitesSeq(motifSet, type="none")
#     
#     ## Get the consensu matrix, then it can be used as a PFMatrix
#     consensusMatrix(motifSet)
#   ## End(Not run)
Run the code above in your browser using DataLab