Nothing
cubic.spline.penalty <-
function(knots, interval, derivative = 2L)
{
D <- if (derivative == 1L) {
cubic.spline.penalty1(knots, interval)
} else {
cubic.spline.penalty2(knots, interval)
}
D
}
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.