BetaPDF <- function(x) { ifelse(0 < x & x < 1, 2*x, 0) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.