setMethod("plot", signature(x="pwm"), function(x, y="missing",...) {
seqLogo(x)
})
setMethod("summary", signature(object="pwm"), function(object,...){
cat("Position weight matrix:\n")
print(round(object@pwm,4))
cat("\n\nInformation content:\n")
print(round(object@ic,4))
cat("\n\nConsensus sequence:\n")
print(object@consensus)
})
setMethod("show", "pwm", function(object){
print(round(object@pwm,4))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.