hist.GSAfisher.mult <-
function(x,...){
hist(-log(x$pvalue))
par(new = T)
plot(density(-log(x$pvalue)), pch=16, axes=F, xlab=NA, ylab=NA, cex=1.2,col="red",main="")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.