R/model.matrix.eoa.r

In tmcd82070/evoab: Evidence of Absence (EoA)

#' @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)

}