Skip to content

Commit

Permalink
Tweaks for transformations, messaging and MuMIn
Browse files Browse the repository at this point in the history
  • Loading branch information
rvlenth committed Jun 24, 2024
1 parent 7c51764 commit 48ab800
Show file tree
Hide file tree
Showing 4 changed files with 7 additions and 6 deletions.
4 changes: 2 additions & 2 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
Package: emmeans
Type: Package
Title: Estimated Marginal Means, aka Least-Squares Means
Version: 1.10.2.090002
Date: 2024-06-04
Version: 1.10.2.090003
Date: 2024-06-23
Authors@R: c(person("Russell V.", "Lenth", role = c("aut", "cre", "cph"),
email = "[email protected]"),
person("Ben", "Bolker", role = "ctb"),
Expand Down
1 change: 1 addition & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
Expand Up @@ -4,6 +4,7 @@ title: "NEWS for the emmeans package"

## emmeans 1.10.2-09xxxxx
* Updated `mice::mira` support to use Barnard-Rubin adjusted d.f. (#494)
* Fix to MuMIn support so a response transformation is auto-detected


## emmeans 1.10.2
Expand Down
6 changes: 3 additions & 3 deletions R/contrast.R
Original file line number Diff line number Diff line change
Expand Up @@ -509,9 +509,9 @@ contrast.emmGrid = function(object, method = "eff", interaction = FALSE,
}
else {
misc$initMesg = c(misc$initMesg,
paste("Note: contrasts are still on the", misc$orig.tran, "scale"))
### message("Note: Use 'contrast(regrid(object), ...)' to obtain contrasts of back-transformed estimates")
misc$tran = misc$tran.mult = misc$tran.offset = NULL
paste("Note: contrasts are still on the", misc$orig.tran, "scale. Consider using\n",
" regrid() if you want contrasts of back-transformed estimates."))
misc$tran = misc$tran.mult = misc$tran.offset = NULL
}
}

Expand Down
2 changes: 1 addition & 1 deletion R/multiple-models.R
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@ recover_data.averaging = function(object, data, formula = object$formula, ...) {
if (is.null(data))
data = ml[[1]]$call$data
### temporary patch -- $formula often excludes the intercept
formula = update(formula, .~.+1)[-2]
formula = update(formula, .~.+1) ####[-2]
trms = attr(model.frame(formula, data = data), "terms")
fcall = call("model.avg", formula = formula, data = data)
recover_data(fcall, trms, na.action = NULL, ...)
Expand Down

0 comments on commit 48ab800

Please sign in to comment.