makepredictcall.dbs <-
function (var, call) {
if (as.character(call)[1L] != "dbs")
return(call)
at <- attributes(var)[c("knots", "Boundary.knots", "intercept", "eps")]
xxx <- call[1L:2L]
xxx[names(at)] <- at
xxx
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.