Nothing
#### tests for functions 'bcgam', 'predict.bcgam', 'plot.bcgam', 'persp.bcgam'
data(duncan)
bcgam.fit <- bcgam(income~sm.incr(prestige, space="E")+sm.conv(education)+type, data=duncan)
summary(bcgam.fit)
predict(bcgam.fit, newdata=data.frame(prestige=65, education=87 , type="prof"))
plot(bcgam.fit, prestige, col=4)
persp(bcgam.fit, prestige, education, level=0.90)
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.