plotprism<-function(l,color=2,extra=1,type=1,digit=4){
prp(l$prism.plot,box.col=color,extra=extra,type=type,digits=digit,roundint=FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.