R/emmeans_support.R

In singmann/monet: Interface for Testing Model Terms via Nested Models

recover_data.monet <- function(object, ...) {
  emmeans::recover_data(object$full_model, ...)
}

emm_basis.monet <- function(object, trms, xlev, grid, ...) {
  emmeans::emm_basis(object$full_model, trms, xlev, grid, ...)
}