Nothing
predict_bbase.interaction.vc.bs <- function(object, newx1, newx2) {
# Intercept included by hand: here main effect of x2
# B <- predict.bbase.bs(object, newx1)
# B <- cbind(newx2, newx2*B)
B <- predict_bbase.bs(object, newx1)
B <- newx2*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.