#' Interface between the Zelig Model logit.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
zelig2logit.gam <- function (formula, ..., data) {
class(formula) <- c('GamFormula', 'formula')
list(
.function = "gam",
formula = formula,
data = data,
family = binomial(),
...
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.