#' @title model.matrix.eoa
#'
#' @description Model matrix method for eoa objects produced
#' by the \code{eoa} function.
#'
#' @param object An object of class \code{eoa}. In particular,
#' this object must have a $terms component.
#'
#' @param \dots Included for compatability with other methods
#'
#' @author Trent McDonald
#'
#' @return The design matrix for an eoa object with all the factor
#' levels and interactions expanded.
#'
#' @export
#'
model.matrix.eoa <- function(object, data, ...){
Terms <- delete.response(object$terms)
if(missing(data) || is.null(data)){
data <- object$data
}
m <- model.frame(Terms, data)
model.matrix.default(Terms, m)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.