| put.smart {VGAM} | R Documentation |
Adds a list to the end of the list .smart.prediction
in
smartpredenv (R)
or
frame 1 (S-PLUS).
put.smart(smart)
smart |
a list containing parameters needed later for smart prediction. |
put.smart is used in "write" mode within a smart function.
It saves parameters at the time of model fitting, which are
later used for prediction.
The function put.smart is the opposite of
get.smart, and both deal with the same contents.
Nothing is returned.
The variable .smart.prediction.counter in
smartpredenv (R)
or
frame 1 (S-PLUS)
is incremented beforehand,
and .smart.prediction[[.smart.prediction.counter]] is
assigned the list smart.
If the list .smart.prediction in
smartpredenv (R)
or
frame 1 (S-PLUS)
is not long enough
to hold smart, then it is made larger, and the variable
.max.smart in
smartpredenv (R)
or
frame 1 (S-PLUS)
is adjusted accordingly.
"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