R/update.sbchoice.R

In DCchoice: Analyzing Dichotomous Choice Contingent Valuation Data

Defines functions update.sbchoice

Documented in update.sbchoice

update.sbchoice <- function(object, new, evaluate = TRUE, ...)
{
    call <- getCall(object)

    if (!missing(new)) {
        call$formula <- update(object$formula, new)
    }

    if (evaluate == TRUE) {
        eval(call, parent.frame())
    } else {
        call
    }
}

Try the DCchoice package in your browser