Nothing
set.seed(39854)
xtest <- rtriangle(200, 0, 1, 0.5)
mle1 <- triangle_mle(xtest)
xtest_small <- c(0.1, 0.25, 0.3, 0.4, 0.45, 0.6, 0.75, 0.8)
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.