PlotPattern<-function(Patterns){
par(oma=c(3,3,3,3))
PatternCol=rev(rainbow(ncol(Patterns)))
heatmap(Patterns,col=PatternCol,Colv=NA,Rowv=NA,scale="none")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.