Nothing
"dtri" <-
function(x, a = 0., b = a + 2.)
{
x <- (x - a)/(b - a)
# zero out density beyond range of support.
temp <- (2. * ifelse(x < 0.5, x, 1. - x))/(b - a)
ifelse(temp < 0., 0., temp)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.