put.smart {VGAM} | R Documentation

## 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.

### 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.

### 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.

### See Also

`get.smart`.

### Examples

    "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

[Package VGAM version 0.7-9 Index]