Nothing
`cusp.logLike` <-
function (p, x, verbose = FALSE)
{
if (verbose) {
print(p)
flush.console()
}
z = (x - p[3])/p[4]
-2 * sum(p[1] * z + p[2] * z^2/2 - z^4/4) + 2 * length(x) *
log(p[4] * cusp.nc(p[1], p[2]))
}
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.