zelig2some.model <- function (formula, weights, verbose, ..., data) {
list(
.function = 'some.other.method',
.hook = NULL,
formula = formula,
weights = 2 * weights,
data = data
)
}
## This \\code{zelig2} function equates the following function call:
## zelig(formula, weights = weights, verbose = TRUE, data = data, model="some.model")
##
## with:
## some.other.method(formula = formula, weights = 2 * weights, data=data)
## Note that the 'verbose' parameter is ignored, since the
## 'zelig2some.model' does not include the 'verbose' parameter in its return
## value.
Run the code above in your browser using DataLab