#' Make a Model Matrix from a Zelig-Style Formula
#'
#' This is a helper function that creates a \code{model.matrix} like object
#' of Zelig-style formulae.
#' @param formula a Zelig-style formula
#' @param data a \code{data.frame}
#' @return a design (or model) matrix
#' @author Matt Owen \email{mowen@@iq.harvard.edu}
makeModelMatrix <- function (formula, data) {
if (missing(data) || is.null(data))
return(NULL)
# This is kludge and should be generalized
if (inherits(formula, "Formula")) {
}
if (is.list(formula)) {
m <- NULL
for (form in formula) {
m <- cbind(m, model.matrix(form, data))
}
t(as.matrix(m[, unique(colnames(m))]))
}
else {
return(model.matrix(formula, data))
}
}
#
#
#
makeModelMatrixFromFormula <- function (formula, data) {
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.