Nothing
`cusp.nc` <-
Vectorize(function (alpha, beta, mom.order = 0, ...)
tryCatch(integrate(function(x) x^mom.order * exp(alpha * x +
beta * x^2/2 - x^4/4), -Inf, Inf, ...)$value, error = function(e) Inf))
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.