Test For a Smart Object
Tests an object to see if it is smart.
is.smart(object)
object |
a function or a fitted model. |
If object is a function then this function looks to see whether
object has the logical attribute "smart". If so then
this is returned, else FALSE.
If object is a fitted model then this function looks to see whether
object@smart.prediction or
object\$smart.prediction exists.
If it does and it is not equal to list(smart.arg=FALSE) then
a TRUE is returned, else FALSE.
The reason for this is because, e.g., lm(...,smart=FALSE)
and vglm(...,smart=FALSE), will return such a specific list.
Writers of smart functions manually have to assign this attribute to their smart function after it has been written.
Returns TRUE or FALSE, according to whether the object
is smart or not.
is.smart(sm.min1) # TRUE is.smart(sm.poly) # TRUE library(splines) is.smart(sm.bs) # TRUE is.smart(sm.ns) # TRUE is.smart(tan) # FALSE ## Not run: udata <- data.frame(x2 = rnorm(9)) fit1 <- vglm(rnorm(9) ~ x2, uninormal, data = udata) is.smart(fit1) # TRUE fit2 <- vglm(rnorm(9) ~ x2, uninormal, data = udata, smart = FALSE) is.smart(fit2) # FALSE fit2@smart.prediction ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.