Skip to content

Commit

Permalink
comment
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Feb 13, 2025
1 parent 7adc709 commit b231ef7
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions R/get_emcontrasts.R
Original file line number Diff line number Diff line change
Expand Up @@ -52,6 +52,7 @@ get_emcontrasts <- function(model,
# if first focal term is numeric, we contrast slopes
if (is.numeric(model_data[[first_focal]]) &&
!first_focal %in% on_the_fly_factors &&
# if these are identical, only slopes are contrasted - we need emmeans then
!identical(my_args$by, my_args$contrast)) {
# sanity check - contrast for slopes only makes sense when we have a "by" argument
if (is.null(my_args$by)) {
Expand Down

0 comments on commit b231ef7

Please sign in to comment.