is.smart(my1) # TRUE
is.smart(poly) # TRUE
if(is.R()) library(splines)
is.smart(bs) # TRUE
is.smart(ns) # TRUE
is.smart(tan) # FALSE
if(!is.R()) is.smart(lm) # TRUE
library(VGAM)
x = rnorm(9)
fit1 = vglm(rnorm(9) ~ x, normal1)
is.smart(fit1) # TRUE
fit2 = vglm(rnorm(9) ~ x, normal1, smart=FALSE)
is.smart(fit2) # FALSE
fit2@smart.prediction
Run the code above in your browser using DataLab