R/zelig2probit.gam.R

In IQSS/ZeligGAM4: General Additive Models for Zelig

#' Interface between the Zelig Model probit.gam and 
#' the Pre-existing Model-fitting Method
#' @param formula a formula
#' @param ... additonal parameters
#' @param data a data.frame 
#' @return a list specifying '.function'
#' @export
zelig2probit.gam <- function (formula, ..., data) {
  class(formula) <- c('GamFormula', 'formula')
  list(
       .function = "gam",
       formula = formula,
       data = data,
       family = binomial(link="probit"),
       ...
       )
}