R/predict.bbase.interaction.vc.bs.R

Defines functions predict_bbase.interaction.vc.bs

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
}

Try the DDPstar package in your browser

Any scripts or data that you put into this service are public.

DDPstar documentation built on April 3, 2025, 8:46 p.m.