### R code from vignette source 'seqLogo.Rnw'
###################################################
### code chunk number 1: load
###################################################
library(seqLogo)
###################################################
### code chunk number 2: makePWM
###################################################
mFile <- system.file("Exfiles/pwm1", package="seqLogo")
m <- read.table(mFile)
m
p <- makePWM(m)
###################################################
### code chunk number 3: slots
###################################################
slotNames(p)
p@pwm
p@ic
p@consensus
###################################################
### code chunk number 4: cosmoArgs
###################################################
args(seqLogo)
###################################################
### code chunk number 5: seqLogo1
###################################################
seqLogo(p)
###################################################
### code chunk number 6: seqLogo2
###################################################
seqLogo(p, ic.scale=FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.