| get.smart {VGAM} | R Documentation |
Retrieve one component of the list .smart.prediction from
smartpredenv (R) or
frame 1 (S-PLUS).
get.smart()
get.smart is used in "read" mode within a smart function:
it retrieves parameters saved at the time of fitting, and
is used for prediction.
get.smart is only used in smart functions such as
poly;
get.smart.prediction is only used in modelling functions
such as lm and glm.
The function
get.smart gets only a part of .smart.prediction whereas
get.smart.prediction gets the entire .smart.prediction.
Returns with one list component of .smart.prediction from
smartpredenv (R)
or
frame 1 (S-PLUS),
in fact, .smart.prediction[[.smart.prediction.counter]].
The whole procedure mimics a first-in first-out stack (better known
as a queue).
The variable .smart.prediction.counter in
smartpredenv (R)
or
frame 1 (S-PLUS)
is incremented beforehand, and then written back to
smartpredenv (R)
or
frame 1 (S-PLUS).
"my1" <- function(x, minx=min(x)) { # Here is a smart function
x <- x # Needed for nested calls, e.g., bs(scale(x))
if(smart.mode.is("read")) {
smart <- get.smart()
minx <- smart$minx # Overwrite its value
} else
if(smart.mode.is("write"))
put.smart(list(minx=minx))
sqrt(x-minx)
}
attr(my1, "smart") <- TRUE