R/get_predictions_gee.R

In javifar/ggeffects: Create Tidy Data Frames of Marginal Effects for 'ggplot' from Model Outputs

get_predictions_gee <- function(model, terms, ...) {
  prdat <-
    stats::predict(
      model,
      type = "response",
      ...
    )

  mf <- insight::get_data(model)[, terms, drop = FALSE]

  # copy predictions
  mf$predicted <- as.vector(prdat)

  # No CI
  mf$conf.low <- NA
  mf$conf.high <- NA

  unique(mf)
}