Nothing
`cusp.nc.c` <-
function (alpha, beta, ..., keep.order = TRUE)
{
i = order(alpha, beta)
nc <- cusp.nc.C(alpha[i], beta[i], ...)
if (keep.order)
nc$value[(1:length(alpha))[i]]
else nc$value
}
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.