Nothing
bbase.os <-
function(x, K, bdeg = 3, eps = 1e-5, intercept = TRUE) {
# Using the function bs
B <- bs(x, degree = bdeg, df = K + bdeg, intercept = intercept)
B
}
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.