R/model.matrix.binaryChoice.R

In sampleSelection: Sample Selection Models

model.matrix.binaryChoice <- function (object, ...) {
    if (n_match <- match("x", names(object), 0)) 
        object[[n_match]]
    else {
        data <- model.frame(object, xlev = object$xlevels, ...)
        NextMethod("model.matrix", data = data, contrasts = object$contrasts)
    }
}