Nothing
cdf <-
function (T.dist, T.dist.par, t) {
pDis = paste("p", T.dist, sep="" , collapse="")
if(length(T.dist.par)==1)
{ cdf.t = do.call(pDis, list(t, T.dist.par[1])) }
else{
if(length(T.dist.par)==2)
{ cdf.t = do.call(pDis, list(t, T.dist.par[1], T.dist.par[2])) }
else
{ cdf.t = do.call(pDis, list(t, T.dist.par[1], T.dist.par[2], T.dist.par[3])) }
}
return( cdf.t )
}
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.