Nothing
knots.dierckx <- function(Fn, interior = TRUE, ...) {
if(interior) {
kn <- Fn$knots
k <- Fn$k
g <- Fn$g
if(g > 0) kn[seq(g) + k + 1] else numeric(0)
} else {
Fn$knots[seq(Fn$n)]
}
}
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.