Nothing
weibull3p_inverse_wrapper <-
function(cum_prob, parms) {
calc <- weibull3p_inverse(cum_prob, parms[1], parms[2], parms[3])
return(as.numeric(calc))
}
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.