Nothing
truncunif <-
function (bornes, prior.l, prior.u)
{
l = bornes[1]
u = bornes[2]
ll = numeric()
uu = numeric()
if (l < prior.l) {
ll = prior.l
}
else {
ll = l
}
if (u > prior.u) {
uu = prior.u
}
else {
uu = u
}
return(cbind(ll, uu))
}
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.