Nothing
makepredictcall.ins <-
function (var, call) {
if (as.character(call)[1L] != "ins")
return(call)
at <- attributes(var)[c("knots", "Boundary.knots", "intercept", "from", "weight.fun")]
xxx <- call[1L:2L]
xxx[names(at)] <- at
xxx
}
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.