## 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