Nothing
famfun <- function(fam, deriv, theta) {
setfam(list(fam))
result <- .C(C_aster_family,
index = as.integer(1),
deriv = as.integer(deriv),
theta = as.double(theta),
value = double(1))$value
clearfam()
return(result)
}
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.