put.smart: Adds a List to the End of the List ``.smart.prediction''

Description

Adds a list to the end of the list .smart.prediction in smartpredenv (R) or frame 1 (S-PLUS).

Usage

put.smart(smart)

Arguments

smart

a list containing parameters needed later for smart prediction.

Value

Nothing is returned.

Side Effects

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.

Details

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.

Examples

Run this code

"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

Run the code above in your browser using DataLab

Data engineering and BI courses are free!