diff --git a/DESCRIPTION b/DESCRIPTION index 54399551..4c7a1ffe 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: modelbased Title: Estimation of Model-Based Predictions, Contrasts and Means -Version: 0.8.8 +Version: 0.8.8.1 Authors@R: c(person(given = "Dominique", family = "Makowski", @@ -34,11 +34,11 @@ BugReports: https://github.com/easystats/modelbased/issues Depends: R (>= 3.6) Imports: - bayestestR (>= 0.13.2), - datawizard (>= 0.11.0), + bayestestR (>= 0.15.0), + datawizard (>= 0.13.0), effectsize (>= 0.8.8), - insight (>= 0.20.0), - parameters (>= 0.21.7), + insight (>= 0.20.5), + parameters (>= 0.22.2), performance (>= 0.12.0), graphics, stats, diff --git a/NEWS.md b/NEWS.md index f18b73e7..059846ee 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,6 @@ -# modelbased (development version) +# modelbased 0.8.9 + +- Fixed issues related to updates of other *easystats* packages. # modelbased 0.8.6 @@ -102,4 +104,3 @@ # modelbased 0.1.0 - Added a `NEWS.md` file to track changes to the package - diff --git a/R/get_emmeans.R b/R/get_emmeans.R index 018535e2..09f20b88 100644 --- a/R/get_emmeans.R +++ b/R/get_emmeans.R @@ -115,8 +115,12 @@ model_emmeans <- get_emmeans if (insight::model_info(model)$is_bayesian) { means <- parameters::parameters(estimated, ci = ci, ...) means <- .clean_names_bayesian(means, model, transform, type = "mean") - means <- cbind(estimated@grid, means) - means[[".wgt."]] <- NULL # Drop the weight column + em_grid <- as.data.frame(estimated@grid) + em_grid[[".wgt."]] <- NULL # Drop the weight column + colums_to_add <- setdiff(colnames(em_grid), colnames(means)) + if (length(colums_to_add)) { + means <- cbind(em_grid[colums_to_add], means) + } } else { means <- as.data.frame(stats::confint(estimated, level = ci)) means$df <- NULL