Robustness checks of ovulatory changes

Cycling women (not on hormonal birth control)

Women on hormonal birth control

Load data

# cd /usr/users/rarslan/relationship_dynamics/ && bsub -q mpi -W 48:00 -n 20 -R span[hosts=1] R -e "filebase = '3_fertility_robustness'; x = rmarkdown::render(paste0('3_fertility_robustness','.Rmd'), run_pandoc = FALSE, clean = FALSE); save(x, file = 'rob.rda'); cat(readLines(paste0(filebase,'.utf8.md')), sep = '\n')"
library(knitr)
opts_chunk$set(fig.width = 8, fig.height = 8, cache = T, warning = T, message = F, cache = F)
source("0_helpers.R")
load("full_data.rdata")
diary = diary %>% 
  mutate(
  included = included_all,
  fertile = if_else(is.na(prc_stirn_b_squished), prc_stirn_b_backward_inferred, prc_stirn_b_squished),
  contraceptive_methods = factor(contraceptive_method, levels = 
  c("barrier_or_abstinence", "fertility_awareness", "none",  "hormonal")),
  relationship_status_clean = factor(relationship_status_clean),
  cohabitation = factor(cohabitation),
  certainty_menstruation = as.numeric(as.character(certainty_menstruation)),
  partner_st_vs_lt = partner_attractiveness_shortterm - partner_attractiveness_longterm
)  %>% group_by(person) %>% 
  mutate(
      fertile_mean = mean(fertile, na.rm = T)
  )
opts_chunk$set(warning = F)
library(Cairo)
opts_chunk$set(dev = "CairoPNG")

diary$age_group = cut(diary$age,c(18,20,25,30,35,70), include.lowest = T)
models = list()

do_model = function(model, diary) {
  outcome = names(model@frame)[1]
  outcome_label = recode(str_replace_all(str_replace_all(str_replace_all(outcome, "_", " "), " pair", "-pair"), " 1", ""), 
                       "desirability" = "self-perceived desirability",
                       "NARQ admiration" = "narcissistic admiration",
                       "NARQ rivalry" = "narcissistic rivalry",
                       "extra-pair" = "extra-pair desire & behaviour",
                       "had sexual intercourse" = "sexual intercourse")
  model = calculate_effects(model)
  options = list(fig.path = paste0(knitr::opts_chunk$get("fig.path"), outcome, "-"), 
                                 cache.path = paste0(knitr::opts_chunk$get("cache.path"), outcome, "-"))
    asis_knit_child("_robustness_model.Rmd", options = options)
}
do_moderators = function(model, diary) {
  asis_knit_child("_moderators.Rmd")
}
models$extra_pair = lmer(extra_pair ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$desirability_1 = lmer(desirability_1 ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$extra_pair_intimacy = glmer(extra_pair_intimacy ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$extra_pair_sex = glmer(extra_pair_sex ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$in_pair_desire = lmer(in_pair_desire ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$had_petting = glmer(had_petting ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$had_sexual_intercourse = glmer(had_sexual_intercourse ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$partner_initiated_sexual_intercourse = glmer(partner_initiated_sexual_intercourse ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$sexual_intercourse_satisfaction = lmer(sexual_intercourse_satisfaction ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$spent_night_with_partner = glmer(spent_night_with_partner ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$partner_mate_retention = lmer(partner_mate_retention ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$female_mate_retention = lmer(female_mate_retention ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$sexy_clothes = lmer(sexy_clothes ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$showy_clothes = lmer(showy_clothes ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$male_attention_1 = lmer(male_attention_1 ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$in_pair_public_intimacy = glmer(in_pair_public_intimacy ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary, family = binomial(link = "probit"))
models$NARQ_admiration = lmer(NARQ_admiration ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$NARQ_rivalry = lmer(NARQ_rivalry ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$self_esteem_1 = lmer(self_esteem_1 ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$female_jealousy = lmer(female_jealousy ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$relationship_satisfaction_1 = lmer(relationship_satisfaction_1 ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
models$communication_partner_1 = lmer(communication_partner_1 ~ included * (menstruation + fertile) + fertile_mean + ( 1 | person), data = diary)
# model_summaries = parallel::mclapply(models, FUN = do_model, diary = diary, mc.cores = 20)

Outcomes

Extra-pair Moderators

do_moderators(models$extra_pair, diary)

Partner’s physical attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s physical attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_physical", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48494 48601 -24234 48468 NA NA NA
with_mod 15 48494 48617 -24232 48464 4.093 2 0.1292
with_mod_ranef 24 48175 48372 -24063 48127 337.3 9 3.196e-67

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_physical +  
    included + fertile + menstruation:included + partner_attractiveness_physical:included +  
    partner_attractiveness_physical:fertile + included:fertile +  
    partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 48539

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.283 -0.556 -0.148  0.406  8.003 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.303    0.550   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value
(Intercept)                                                     2.4697     0.1448  1147.8935   17.06
menstruationpre                                                -0.0903     0.0173 25904.1276   -5.22
menstruationyes                                                -0.0714     0.0163 25998.3334   -4.38
fertile_mean                                                   -0.0379     0.2117  1429.5329   -0.18
partner_attractiveness_physical                                -0.0807     0.0174  1127.8651   -4.65
includedhorm_contra                                            -0.4750     0.1897  1118.1561   -2.50
fertile                                                         0.4299     0.1524 26033.6683    2.82
menstruationpre:includedhorm_contra                             0.0691     0.0222 25900.7970    3.11
menstruationyes:includedhorm_contra                             0.0861     0.0214 25979.3941    4.03
partner_attractiveness_physical:includedhorm_contra             0.0462     0.0231  1109.2598    2.00
partner_attractiveness_physical:fertile                        -0.0323     0.0187 26042.9684   -1.73
includedhorm_contra:fertile                                    -0.2947     0.2016 25994.1459   -1.46
partner_attractiveness_physical:includedhorm_contra:fertile     0.0158     0.0244 25992.9511    0.65
                                                              Pr(>|t|)    
(Intercept)                                                    < 2e-16 ***
menstruationpre                                             0.00000018 ***
menstruationyes                                             0.00001208 ***
fertile_mean                                                    0.8578    
partner_attractiveness_physical                             0.00000378 ***
includedhorm_contra                                             0.0124 *  
fertile                                                         0.0048 ** 
menstruationpre:includedhorm_contra                             0.0019 ** 
menstruationyes:includedhorm_contra                         0.00005663 ***
partner_attractiveness_physical:includedhorm_contra             0.0460 *  
partner_attractiveness_physical:fertile                         0.0842 .  
includedhorm_contra:fertile                                     0.1438    
partner_attractiveness_physical:includedhorm_contra:fertile     0.5182    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_physical +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_physical:included +  
    partner_attractiveness_physical:fertile + included:fertile +  
    partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 48198

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.745 -0.550 -0.138  0.391  7.911 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3241   0.569                     
          menstruationpre 0.0441   0.210    -0.28            
          menstruationyes 0.0671   0.259    -0.26  0.77      
          fertile         0.2899   0.538    -0.19  0.43  0.57
 Residual                 0.3028   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                             Estimate Std. Error        df t value  Pr(>|t|)
(Intercept)                                                    2.4874     0.1449 1095.8371   17.17   < 2e-16
menstruationpre                                               -0.0985     0.0208  763.9108   -4.74 0.0000025
menstruationyes                                               -0.0764     0.0216  756.4077   -3.53   0.00044
fertile_mean                                                  -0.0792     0.2151 1451.8157   -0.37   0.71281
partner_attractiveness_physical                               -0.0815     0.0174 1057.3351   -4.69 0.0000030
includedhorm_contra                                           -0.4837     0.1897 1054.8461   -2.55   0.01090
fertile                                                        0.3594     0.2002  865.0281    1.79   0.07307
menstruationpre:includedhorm_contra                            0.0782     0.0267  760.5212    2.93   0.00347
menstruationyes:includedhorm_contra                            0.0935     0.0281  780.6452    3.33   0.00093
partner_attractiveness_physical:includedhorm_contra            0.0466     0.0231 1041.5511    2.02   0.04381
partner_attractiveness_physical:fertile                       -0.0248     0.0245  843.9283   -1.01   0.31270
includedhorm_contra:fertile                                   -0.2627     0.2652  842.0180   -0.99   0.32233
partner_attractiveness_physical:includedhorm_contra:fertile    0.0130     0.0321  820.2066    0.41   0.68509
                                                               
(Intercept)                                                 ***
menstruationpre                                             ***
menstruationyes                                             ***
fertile_mean                                                   
partner_attractiveness_physical                             ***
includedhorm_contra                                         *  
fertile                                                     .  
menstruationpre:includedhorm_contra                         ** 
menstruationyes:includedhorm_contra                         ***
partner_attractiveness_physical:includedhorm_contra         *  
partner_attractiveness_physical:fertile                        
includedhorm_contra:fertile                                    
partner_attractiveness_physical:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0145062 (tol = 0.002, component 1)

Partner’s short-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s short-term attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_shortterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48499 48606 -24237 48473 NA NA NA
with_mod 15 48499 48622 -24235 48469 4.184 2 0.1234
with_mod_ranef 24 48180 48376 -24066 48132 337.4 9 2.95e-67

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_shortterm +  
    included + fertile + menstruation:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_shortterm:fertile + included:fertile +  
    partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 48540

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.286 -0.556 -0.148  0.404  8.006 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.305    0.552   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                               Estimate Std. Error         df t value
(Intercept)                                                      1.8176     0.0467  1317.6822   38.92
menstruationpre                                                 -0.0905     0.0173 25905.1898   -5.23
menstruationyes                                                 -0.0715     0.0163 25999.5938   -4.38
fertile_mean                                                    -0.0393     0.2123  1430.6296   -0.19
partner_attractiveness_shortterm                                -0.1135     0.0274  1118.6613   -4.15
includedhorm_contra                                             -0.0987     0.0384  1266.0228   -2.57
fertile                                                          0.1676     0.0350 25902.1041    4.78
menstruationpre:includedhorm_contra                              0.0692     0.0222 25901.4245    3.12
menstruationyes:includedhorm_contra                              0.0862     0.0214 25979.9698    4.03
partner_attractiveness_shortterm:includedhorm_contra             0.0578     0.0369  1099.6873    1.57
partner_attractiveness_shortterm:fertile                        -0.0567     0.0293 26041.5138   -1.93
includedhorm_contra:fertile                                     -0.1662     0.0445 26007.2502   -3.74
partner_attractiveness_shortterm:includedhorm_contra:fertile     0.0402     0.0384 25978.3292    1.05
                                                               Pr(>|t|)    
(Intercept)                                                     < 2e-16 ***
menstruationpre                                              0.00000017 ***
menstruationyes                                              0.00001169 ***
fertile_mean                                                    0.85307    
partner_attractiveness_shortterm                             0.00003638 ***
includedhorm_contra                                             0.01036 *  
fertile                                                      0.00000173 ***
menstruationpre:includedhorm_contra                             0.00182 ** 
menstruationyes:includedhorm_contra                          0.00005526 ***
partner_attractiveness_shortterm:includedhorm_contra            0.11779    
partner_attractiveness_shortterm:fertile                        0.05312 .  
includedhorm_contra:fertile                                     0.00019 ***
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.29562    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_shortterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_shortterm:fertile + included:fertile +  
    partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 48199

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.745 -0.550 -0.138  0.389  7.913 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3261   0.571                     
          menstruationpre 0.0440   0.210    -0.28            
          menstruationyes 0.0671   0.259    -0.25  0.77      
          fertile         0.2891   0.538    -0.18  0.43  0.57
 Residual                 0.3028   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error        df t value  Pr(>|t|)
(Intercept)                                                     1.8296     0.0476 1329.4914   38.41   < 2e-16
menstruationpre                                                -0.0988     0.0208  764.0150   -4.76 0.0000023
menstruationyes                                                -0.0765     0.0216  756.0819   -3.54   0.00043
fertile_mean                                                   -0.0818     0.2157 1452.3891   -0.38   0.70462
partner_attractiveness_shortterm                               -0.1142     0.0273 1048.8625   -4.18 0.0000320
includedhorm_contra                                            -0.1042     0.0398 1027.6986   -2.62   0.00889
fertile                                                         0.1579     0.0460  829.3681    3.43   0.00062
menstruationpre:includedhorm_contra                             0.0785     0.0267  760.6416    2.95   0.00333
menstruationyes:includedhorm_contra                             0.0937     0.0281  780.3399    3.33   0.00090
partner_attractiveness_shortterm:includedhorm_contra            0.0594     0.0368 1031.6898    1.61   0.10708
partner_attractiveness_shortterm:fertile                       -0.0469     0.0387  822.0267   -1.21   0.22575
includedhorm_contra:fertile                                    -0.1561     0.0586  810.4311   -2.66   0.00787
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.0329     0.0507  802.3802    0.65   0.51755
                                                                
(Intercept)                                                  ***
menstruationpre                                              ***
menstruationyes                                              ***
fertile_mean                                                    
partner_attractiveness_shortterm                             ***
includedhorm_contra                                          ** 
fertile                                                      ***
menstruationpre:includedhorm_contra                          ** 
menstruationyes:includedhorm_contra                          ***
partner_attractiveness_shortterm:includedhorm_contra            
partner_attractiveness_shortterm:fertile                        
includedhorm_contra:fertile                                  ** 
partner_attractiveness_shortterm:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00328371 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) top-right (high LT, low ST), then top-left (low LT, low ST), then bottom-left (low LT, high ST), then bottom-right (high LT/ST).

add_main = update.formula(formula(model), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * included + partner_attractiveness_shortterm * included + partner_attractiveness_longterm * partner_attractiveness_shortterm"))) # reorder so that the triptych looks nice
add_mod_formula = update.formula(update.formula(formula(model), new = . ~ . - included * fertile), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included"))) # reorder so that the triptych looks nice
add_mod_formula_ranef = update.formula(update.formula(formula(model), new = . ~ . - included * fertile - (1 | person)), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included + (1 + menstruation + fertile | person)"))) # reorder so that the triptych looks nice

update(model, formula = add_main) -> with_main
update(model, formula = add_mod_formula) -> with_mod
update(model, formula = add_mod_formula_ranef) -> with_mod_ranef
cat(pander(anova(with_main, with_mod, with_mod_ranef)))
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 16 48448 48579 -24208 48416 NA NA NA
with_mod 23 48446 48634 -24200 48400 15.96 7 0.02553
with_mod_ranef 32 48124 48386 -24030 48060 339.3 9 1.148e-67
effs = allEffects(with_mod)
effs = data.frame(effs$`partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included`) %>% 
  filter(partner_attractiveness_longterm %in% c(-3,-0.4, 0.8),partner_attractiveness_shortterm %in% c(-2,0.4, 2))
ggplot(effs, aes(fertile, fit, ymin = lower, ymax = upper, color = included)) + 
  facet_grid(partner_attractiveness_shortterm ~ partner_attractiveness_longterm) +
  geom_smooth(stat='identity') +
  scale_color_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  scale_fill_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  ggtitle("Moderation", "top-to-bottom: short-term,\nleft-to-right: long-term attractiveness of the partner")+
  ylab(names(model@frame)[1])

print_summary(with_mod)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_longterm +  
    fertile + partner_attractiveness_shortterm + included + menstruation:included +  
    partner_attractiveness_longterm:fertile + partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 48514

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.285 -0.557 -0.148  0.403  7.987 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.289    0.537   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                                                Estimate
(Intercept)                                                                                      1.81689
menstruationpre                                                                                 -0.08939
menstruationyes                                                                                 -0.06950
fertile_mean                                                                                    -0.08072
partner_attractiveness_longterm                                                                 -0.13238
fertile                                                                                          0.16947
partner_attractiveness_shortterm                                                                -0.04705
includedhorm_contra                                                                             -0.09586
menstruationpre:includedhorm_contra                                                              0.06851
menstruationyes:includedhorm_contra                                                              0.08475
partner_attractiveness_longterm:fertile                                                          0.06901
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.03371
fertile:partner_attractiveness_shortterm                                                        -0.08784
partner_attractiveness_longterm:includedhorm_contra                                             -0.02470
fertile:includedhorm_contra                                                                     -0.17245
partner_attractiveness_shortterm:includedhorm_contra                                             0.02739
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        -0.01932
partner_attractiveness_longterm:fertile:includedhorm_contra                                     -0.00301
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra             0.00761
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.05629
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.02688
                                                                                              Std. Error
(Intercept)                                                                                      0.04690
menstruationpre                                                                                  0.01729
menstruationyes                                                                                  0.01632
fertile_mean                                                                                     0.20816
partner_attractiveness_longterm                                                                  0.03233
fertile                                                                                          0.03654
partner_attractiveness_shortterm                                                                 0.02979
includedhorm_contra                                                                              0.03937
menstruationpre:includedhorm_contra                                                              0.02220
menstruationyes:includedhorm_contra                                                              0.02138
partner_attractiveness_longterm:fertile                                                          0.03534
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.02380
fertile:partner_attractiveness_shortterm                                                         0.03203
partner_attractiveness_longterm:includedhorm_contra                                              0.04123
fertile:includedhorm_contra                                                                      0.04607
partner_attractiveness_shortterm:includedhorm_contra                                             0.03886
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                         0.02617
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.04481
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra             0.03716
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.04106
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.04051
                                                                                                      df
(Intercept)                                                                                   1312.71825
menstruationpre                                                                              25913.25571
menstruationyes                                                                              26009.82279
fertile_mean                                                                                  1438.55429
partner_attractiveness_longterm                                                               1114.48364
fertile                                                                                      25909.66548
partner_attractiveness_shortterm                                                              1102.58664
includedhorm_contra                                                                           1253.39319
menstruationpre:includedhorm_contra                                                          25909.80486
menstruationyes:includedhorm_contra                                                          25989.74406
partner_attractiveness_longterm:fertile                                                      26107.65078
partner_attractiveness_longterm:partner_attractiveness_shortterm                              1111.71715
fertile:partner_attractiveness_shortterm                                                     26012.67484
partner_attractiveness_longterm:includedhorm_contra                                           1110.42474
fertile:includedhorm_contra                                                                  26011.54191
partner_attractiveness_shortterm:includedhorm_contra                                          1091.40437
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                     26036.70548
partner_attractiveness_longterm:fertile:includedhorm_contra                                  26065.14021
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra          1109.36338
fertile:partner_attractiveness_shortterm:includedhorm_contra                                 25972.25941
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra 25982.80298
                                                                                             t value
(Intercept)                                                                                    38.74
menstruationpre                                                                                -5.17
menstruationyes                                                                                -4.26
fertile_mean                                                                                   -0.39
partner_attractiveness_longterm                                                                -4.09
fertile                                                                                         4.64
partner_attractiveness_shortterm                                                               -1.58
includedhorm_contra                                                                            -2.43
menstruationpre:includedhorm_contra                                                             3.09
menstruationyes:includedhorm_contra                                                             3.96
partner_attractiveness_longterm:fertile                                                         1.95
partner_attractiveness_longterm:partner_attractiveness_shortterm                                1.42
fertile:partner_attractiveness_shortterm                                                       -2.74
partner_attractiveness_longterm:includedhorm_contra                                            -0.60
fertile:includedhorm_contra                                                                    -3.74
partner_attractiveness_shortterm:includedhorm_contra                                            0.70
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.74
partner_attractiveness_longterm:fertile:includedhorm_contra                                    -0.07
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.20
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    1.37
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.66
                                                                                               Pr(>|t|)    
(Intercept)                                                                                     < 2e-16 ***
menstruationpre                                                                              0.00000024 ***
menstruationyes                                                                              0.00002061 ***
fertile_mean                                                                                    0.69822    
partner_attractiveness_longterm                                                              0.00004544 ***
fertile                                                                                      0.00000353 ***
partner_attractiveness_shortterm                                                                0.11456    
includedhorm_contra                                                                             0.01503 *  
menstruationpre:includedhorm_contra                                                             0.00203 ** 
menstruationyes:includedhorm_contra                                                          0.00007397 ***
partner_attractiveness_longterm:fertile                                                         0.05085 .  
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.15695    
fertile:partner_attractiveness_shortterm                                                        0.00610 ** 
partner_attractiveness_longterm:includedhorm_contra                                             0.54926    
fertile:includedhorm_contra                                                                     0.00018 ***
partner_attractiveness_shortterm:includedhorm_contra                                            0.48105    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        0.46028    
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.94638    
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.83778    
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.17040    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.50705    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
print_summary(with_mod_ranef)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    fertile + partner_attractiveness_shortterm + included + (1 +  
    menstruation + fertile | person) + menstruation:included +  
    partner_attractiveness_longterm:fertile + partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 48169

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.751 -0.550 -0.137  0.390  7.902 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3102   0.557                     
          menstruationpre 0.0440   0.210    -0.33            
          menstruationyes 0.0673   0.259    -0.26  0.77      
          fertile         0.2907   0.539    -0.17  0.44  0.57
 Residual                 0.3028   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                                               Estimate
(Intercept)                                                                                     1.82835
menstruationpre                                                                                -0.09721
menstruationyes                                                                                -0.07489
fertile_mean                                                                                   -0.12264
partner_attractiveness_longterm                                                                -0.13794
fertile                                                                                         0.16187
partner_attractiveness_shortterm                                                               -0.04417
includedhorm_contra                                                                            -0.10183
menstruationpre:includedhorm_contra                                                             0.07747
menstruationyes:includedhorm_contra                                                             0.09261
partner_attractiveness_longterm:fertile                                                         0.07619
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.03627
fertile:partner_attractiveness_shortterm                                                       -0.08443
partner_attractiveness_longterm:includedhorm_contra                                            -0.02050
fertile:includedhorm_contra                                                                    -0.16461
partner_attractiveness_shortterm:includedhorm_contra                                            0.02597
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.02614
partner_attractiveness_longterm:fertile:includedhorm_contra                                    -0.00920
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.00954
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.05515
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.03312
                                                                                             Std. Error
(Intercept)                                                                                     0.04782
menstruationpre                                                                                 0.02073
menstruationyes                                                                                 0.02166
fertile_mean                                                                                    0.21177
partner_attractiveness_longterm                                                                 0.03212
fertile                                                                                         0.04788
partner_attractiveness_shortterm                                                                0.02954
includedhorm_contra                                                                             0.04063
menstruationpre:includedhorm_contra                                                             0.02662
menstruationyes:includedhorm_contra                                                             0.02815
partner_attractiveness_longterm:fertile                                                         0.04566
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.02358
fertile:partner_attractiveness_shortterm                                                        0.04217
partner_attractiveness_longterm:includedhorm_contra                                             0.04095
fertile:includedhorm_contra                                                                     0.06066
partner_attractiveness_shortterm:includedhorm_contra                                            0.03853
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        0.03424
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.05839
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.03683
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.05409
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.05296
                                                                                                     df
(Intercept)                                                                                  1331.76956
menstruationpre                                                                               767.40781
menstruationyes                                                                               759.40956
fertile_mean                                                                                 1465.24659
partner_attractiveness_longterm                                                              1034.50464
fertile                                                                                       860.24891
partner_attractiveness_shortterm                                                             1028.66862
includedhorm_contra                                                                          1047.93309
menstruationpre:includedhorm_contra                                                           764.09986
menstruationyes:includedhorm_contra                                                           783.42955
partner_attractiveness_longterm:fertile                                                       866.88316
partner_attractiveness_longterm:partner_attractiveness_shortterm                             1024.81938
fertile:partner_attractiveness_shortterm                                                      790.96419
partner_attractiveness_longterm:includedhorm_contra                                          1035.84858
fertile:includedhorm_contra                                                                   833.96528
partner_attractiveness_shortterm:includedhorm_contra                                         1019.61437
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                      867.53420
partner_attractiveness_longterm:fertile:includedhorm_contra                                   841.99892
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra         1033.00094
fertile:partner_attractiveness_shortterm:includedhorm_contra                                  785.87626
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra  847.12107
                                                                                             t value
(Intercept)                                                                                    38.23
menstruationpre                                                                                -4.69
menstruationyes                                                                                -3.46
fertile_mean                                                                                   -0.58
partner_attractiveness_longterm                                                                -4.29
fertile                                                                                         3.38
partner_attractiveness_shortterm                                                               -1.50
includedhorm_contra                                                                            -2.51
menstruationpre:includedhorm_contra                                                             2.91
menstruationyes:includedhorm_contra                                                             3.29
partner_attractiveness_longterm:fertile                                                         1.67
partner_attractiveness_longterm:partner_attractiveness_shortterm                                1.54
fertile:partner_attractiveness_shortterm                                                       -2.00
partner_attractiveness_longterm:includedhorm_contra                                            -0.50
fertile:includedhorm_contra                                                                    -2.71
partner_attractiveness_shortterm:includedhorm_contra                                            0.67
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.76
partner_attractiveness_longterm:fertile:includedhorm_contra                                    -0.16
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.26
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    1.02
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.63
                                                                                              Pr(>|t|)    
(Intercept)                                                                                    < 2e-16 ***
menstruationpre                                                                              0.0000033 ***
menstruationyes                                                                                0.00057 ***
fertile_mean                                                                                   0.56259    
partner_attractiveness_longterm                                                              0.0000191 ***
fertile                                                                                        0.00076 ***
partner_attractiveness_shortterm                                                               0.13517    
includedhorm_contra                                                                            0.01235 *  
menstruationpre:includedhorm_contra                                                            0.00371 ** 
menstruationyes:includedhorm_contra                                                            0.00105 ** 
partner_attractiveness_longterm:fertile                                                        0.09553 .  
partner_attractiveness_longterm:partner_attractiveness_shortterm                               0.12438    
fertile:partner_attractiveness_shortterm                                                       0.04558 *  
partner_attractiveness_longterm:includedhorm_contra                                            0.61676    
fertile:includedhorm_contra                                                                    0.00679 ** 
partner_attractiveness_shortterm:includedhorm_contra                                           0.50046    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       0.44552    
partner_attractiveness_longterm:fertile:includedhorm_contra                                    0.87484    
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           0.79571    
fertile:partner_attractiveness_shortterm:includedhorm_contra                                   0.30825    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra   0.53180    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00248466 (tol = 0.002, component 1)

Relative attractiveness to self

whole MV and MV_P scale

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s relative attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48461 48567 -24217 48435 NA NA NA
with_mod 15 48457 48579 -24213 48427 8.214 2 0.01646
with_mod_ranef 24 48141 48337 -24046 48093 334 9 1.6e-66

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_rel_to_self +  
    included + fertile + menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 48498

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.282 -0.557 -0.148  0.404  8.007 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.293    0.541   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error         df t value
(Intercept)                                                        1.8212     0.0459  1325.4574   39.71
menstruationpre                                                   -0.0901     0.0173 25913.4633   -5.21
menstruationyes                                                   -0.0715     0.0163 26009.0147   -4.39
fertile_mean                                                      -0.0691     0.2089  1437.2761   -0.33
partner_attractiveness_rel_to_self                                -0.1561     0.0274  1103.7897   -5.70
includedhorm_contra                                               -0.0980     0.0377  1273.9116   -2.60
fertile                                                            0.1653     0.0350 25904.6056    4.72
menstruationpre:includedhorm_contra                                0.0687     0.0222 25909.4194    3.09
menstruationyes:includedhorm_contra                                0.0864     0.0214 25989.5356    4.04
partner_attractiveness_rel_to_self:includedhorm_contra             0.0386     0.0363  1102.0396    1.06
partner_attractiveness_rel_to_self:fertile                        -0.0813     0.0294 25975.2088   -2.77
includedhorm_contra:fertile                                       -0.1657     0.0443 26013.7651   -3.74
partner_attractiveness_rel_to_self:includedhorm_contra:fertile     0.0627     0.0386 25964.2920    1.62
                                                                  Pr(>|t|)    
(Intercept)                                                        < 2e-16 ***
menstruationpre                                                0.000000189 ***
menstruationyes                                                0.000011488 ***
fertile_mean                                                       0.74080    
partner_attractiveness_rel_to_self                             0.000000015 ***
includedhorm_contra                                                0.00935 ** 
fertile                                                        0.000002345 ***
menstruationpre:includedhorm_contra                                0.00197 ** 
menstruationyes:includedhorm_contra                            0.000052653 ***
partner_attractiveness_rel_to_self:includedhorm_contra             0.28777    
partner_attractiveness_rel_to_self:fertile                         0.00565 ** 
includedhorm_contra:fertile                                        0.00019 ***
partner_attractiveness_rel_to_self:includedhorm_contra:fertile     0.10426    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 48160

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.747 -0.551 -0.137  0.389  7.911 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3151   0.561                     
          menstruationpre 0.0442   0.210    -0.29            
          menstruationyes 0.0669   0.259    -0.25  0.77      
          fertile         0.2875   0.536    -0.20  0.43  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                Estimate Std. Error        df t value
(Intercept)                                                       1.8334     0.0468 1335.5521   39.14
menstruationpre                                                  -0.0992     0.0208  763.2183   -4.77
menstruationyes                                                  -0.0769     0.0216  757.4875   -3.56
fertile_mean                                                     -0.1102     0.2123 1458.5249   -0.52
partner_attractiveness_rel_to_self                               -0.1551     0.0274 1032.1839   -5.66
includedhorm_contra                                              -0.1039     0.0391 1019.3369   -2.66
fertile                                                           0.1553     0.0459  829.9256    3.38
menstruationpre:includedhorm_contra                               0.0785     0.0267  759.8815    2.94
menstruationyes:includedhorm_contra                               0.0941     0.0281  781.9868    3.35
partner_attractiveness_rel_to_self:includedhorm_contra            0.0394     0.0363 1032.9333    1.09
partner_attractiveness_rel_to_self:fertile                       -0.0661     0.0383  839.5684   -1.72
includedhorm_contra:fertile                                      -0.1545     0.0583  808.1681   -2.65
partner_attractiveness_rel_to_self:includedhorm_contra:fertile    0.0349     0.0505  827.1803    0.69
                                                                  Pr(>|t|)    
(Intercept)                                                        < 2e-16 ***
menstruationpre                                                0.000002183 ***
menstruationyes                                                    0.00040 ***
fertile_mean                                                       0.60385    
partner_attractiveness_rel_to_self                             0.000000019 ***
includedhorm_contra                                                0.00795 ** 
fertile                                                            0.00075 ***
menstruationpre:includedhorm_contra                                0.00335 ** 
menstruationyes:includedhorm_contra                                0.00085 ***
partner_attractiveness_rel_to_self:includedhorm_contra             0.27787    
partner_attractiveness_rel_to_self:fertile                         0.08506 .  
includedhorm_contra:fertile                                        0.00825 ** 
partner_attractiveness_rel_to_self:includedhorm_contra:fertile     0.48960    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0044566 (tol = 0.002, component 1)
three item subsets of the MV scales
model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self_MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48472 48579 -24223 48446 NA NA NA
with_mod 15 48468 48590 -24219 48438 8.639 2 0.01331
with_mod_ranef 24 48151 48348 -24052 48103 334.4 9 1.303e-66

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: 
extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_rel_to_self_MV_short +  
    included + fertile + menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 48509

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.282 -0.557 -0.149  0.405  8.005 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.296    0.544   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                          Estimate Std. Error         df
(Intercept)                                                                 1.8261     0.0460  1323.4030
menstruationpre                                                            -0.0900     0.0173 25910.7882
menstruationyes                                                            -0.0712     0.0163 26006.3676
fertile_mean                                                               -0.0681     0.2098  1434.4781
partner_attractiveness_rel_to_self_MV_short                                -0.1338     0.0275  1104.7799
includedhorm_contra                                                        -0.1045     0.0378  1271.8529
fertile                                                                     0.1660     0.0350 25903.5343
menstruationpre:includedhorm_contra                                         0.0686     0.0222 25906.7191
menstruationyes:includedhorm_contra                                         0.0861     0.0214 25986.7315
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra             0.0192     0.0363  1100.3898
partner_attractiveness_rel_to_self_MV_short:fertile                        -0.0856     0.0294 25962.8064
includedhorm_contra:fertile                                                -0.1669     0.0443 26011.6066
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile     0.0765     0.0385 25954.2589
                                                                        t value   Pr(>|t|)    
(Intercept)                                                               39.66    < 2e-16 ***
menstruationpre                                                           -5.21 0.00000019 ***
menstruationyes                                                           -4.37 0.00001263 ***
fertile_mean                                                              -0.32    0.74560    
partner_attractiveness_rel_to_self_MV_short                               -4.86 0.00000135 ***
includedhorm_contra                                                       -2.76    0.00578 ** 
fertile                                                                    4.75 0.00000209 ***
menstruationpre:includedhorm_contra                                        3.09    0.00202 ** 
menstruationyes:includedhorm_contra                                        4.03 0.00005647 ***
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra            0.53    0.59758    
partner_attractiveness_rel_to_self_MV_short:fertile                       -2.92    0.00354 ** 
includedhorm_contra:fertile                                               -3.77    0.00017 ***
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    1.99    0.04683 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self_MV_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 48171

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.749 -0.550 -0.138  0.389  7.911 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3189   0.565                     
          menstruationpre 0.0441   0.210    -0.29            
          menstruationyes 0.0669   0.259    -0.26  0.77      
          fertile         0.2875   0.536    -0.20  0.43  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                         Estimate Std. Error        df
(Intercept)                                                                1.8383     0.0470 1334.1579
menstruationpre                                                           -0.0990     0.0208  763.0110
menstruationyes                                                           -0.0766     0.0216  756.9732
fertile_mean                                                              -0.1100     0.2132 1456.1079
partner_attractiveness_rel_to_self_MV_short                               -0.1327     0.0275 1033.7579
includedhorm_contra                                                       -0.1103     0.0392 1019.4807
fertile                                                                    0.1561     0.0459  829.3011
menstruationpre:includedhorm_contra                                        0.0784     0.0267  759.6681
menstruationyes:includedhorm_contra                                        0.0939     0.0281  781.4561
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra            0.0199     0.0363 1032.3654
partner_attractiveness_rel_to_self_MV_short:fertile                       -0.0710     0.0384  836.4099
includedhorm_contra:fertile                                               -0.1557     0.0583  807.4917
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    0.0459     0.0505  827.4149
                                                                        t value  Pr(>|t|)    
(Intercept)                                                               39.09   < 2e-16 ***
menstruationpre                                                           -4.77 0.0000022 ***
menstruationyes                                                           -3.54   0.00042 ***
fertile_mean                                                              -0.52   0.60603    
partner_attractiveness_rel_to_self_MV_short                               -4.82 0.0000016 ***
includedhorm_contra                                                       -2.81   0.00502 ** 
fertile                                                                    3.40   0.00070 ***
menstruationpre:includedhorm_contra                                        2.94   0.00337 ** 
menstruationyes:includedhorm_contra                                        3.34   0.00087 ***
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra            0.55   0.58497    
partner_attractiveness_rel_to_self_MV_short:fertile                       -1.85   0.06472 .  
includedhorm_contra:fertile                                               -2.67   0.00775 ** 
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    0.91   0.36352    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00437938 (tol = 0.002, component 1)

Partner’s shortterm attractiveness, alternative specification

model %>%
  test_moderator_correction("partner_attractiveness_shortterm_v2", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48502 48609 -24238 48476 NA NA NA
with_mod 15 48504 48627 -24237 48474 2.683 2 0.2614
with_mod_ranef 24 48183 48380 -24068 48135 338.2 9 2.01e-67

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_shortterm_v2 +  
    included + fertile + menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 48545

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.284 -0.556 -0.149  0.405  8.004 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.305    0.552   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                  Estimate Std. Error         df t value
(Intercept)                                                         1.8219     0.0466  1314.8475   39.06
menstruationpre                                                    -0.0901     0.0173 25902.0875   -5.21
menstruationyes                                                    -0.0710     0.0163 25995.8567   -4.36
fertile_mean                                                       -0.0279     0.2124  1426.5587   -0.13
partner_attractiveness_shortterm_v2                                -0.1173     0.0276  1112.0301   -4.26
includedhorm_contra                                                -0.1095     0.0383  1264.5052   -2.86
fertile                                                             0.1719     0.0349 25897.8131    4.92
menstruationpre:includedhorm_contra                                 0.0689     0.0222 25898.7040    3.10
menstruationyes:includedhorm_contra                                 0.0857     0.0214 25976.6433    4.01
partner_attractiveness_shortterm_v2:includedhorm_contra             0.0833     0.0366  1098.2029    2.27
partner_attractiveness_shortterm_v2:fertile                        -0.0431     0.0292 26004.8500   -1.47
includedhorm_contra:fertile                                        -0.1717     0.0443 26004.3045   -3.88
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.0257     0.0380 25967.9436    0.68
                                                                  Pr(>|t|)    
(Intercept)                                                        < 2e-16 ***
menstruationpre                                                 0.00000019 ***
menstruationyes                                                 0.00001325 ***
fertile_mean                                                       0.89555    
partner_attractiveness_shortterm_v2                             0.00002251 ***
includedhorm_contra                                                0.00432 ** 
fertile                                                         0.00000086 ***
menstruationpre:includedhorm_contra                                0.00193 ** 
menstruationyes:includedhorm_contra                             0.00006064 ***
partner_attractiveness_shortterm_v2:includedhorm_contra            0.02318 *  
partner_attractiveness_shortterm_v2:fertile                        0.14042    
includedhorm_contra:fertile                                        0.00011 ***
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile    0.49863    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_shortterm_v2 +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 48203

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.747 -0.550 -0.136  0.390  7.911 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3271   0.572                     
          menstruationpre 0.0441   0.210    -0.29            
          menstruationyes 0.0671   0.259    -0.26  0.77      
          fertile         0.2898   0.538    -0.18  0.43  0.57
 Residual                 0.3028   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error        df t value
(Intercept)                                                        1.8339     0.0476 1326.5546   38.53
menstruationpre                                                   -0.0985     0.0208  763.7169   -4.74
menstruationyes                                                   -0.0761     0.0216  755.9617   -3.52
fertile_mean                                                      -0.0697     0.2159 1448.3875   -0.32
partner_attractiveness_shortterm_v2                               -0.1181     0.0275 1043.2352   -4.29
includedhorm_contra                                               -0.1149     0.0396 1021.9049   -2.90
fertile                                                            0.1616     0.0459  824.5459    3.52
menstruationpre:includedhorm_contra                                0.0781     0.0267  760.3591    2.93
menstruationyes:includedhorm_contra                                0.0932     0.0281  780.2527    3.31
partner_attractiveness_shortterm_v2:includedhorm_contra            0.0844     0.0366 1031.1422    2.31
partner_attractiveness_shortterm_v2:fertile                       -0.0307     0.0385  830.0778   -0.80
includedhorm_contra:fertile                                       -0.1611     0.0584  804.3688   -2.76
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile    0.0200     0.0502  806.7977    0.40
                                                                 Pr(>|t|)    
(Intercept)                                                       < 2e-16 ***
menstruationpre                                                 0.0000026 ***
menstruationyes                                                   0.00046 ***
fertile_mean                                                      0.74671    
partner_attractiveness_shortterm_v2                             0.0000195 ***
includedhorm_contra                                               0.00382 ** 
fertile                                                           0.00045 ***
menstruationpre:includedhorm_contra                               0.00352 ** 
menstruationyes:includedhorm_contra                               0.00096 ***
partner_attractiveness_shortterm_v2:includedhorm_contra           0.02125 *  
partner_attractiveness_shortterm_v2:fertile                       0.42455    
includedhorm_contra:fertile                                       0.00594 ** 
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile   0.69076    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00687819 (tol = 0.002, component 1)

Partner’s global attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_global", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48522 48629 -24248 48496 NA NA NA
with_mod 15 48525 48648 -24248 48495 1.031 2 0.5971
with_mod_ranef 24 48203 48399 -24077 48155 340.8 9 5.487e-68

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_global +  
    included + fertile + menstruation:included + partner_attractiveness_global:included +  
    partner_attractiveness_global:fertile + included:fertile +  
    partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 48567

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.287 -0.556 -0.149  0.405  8.009 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.311    0.557   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                             Estimate  Std. Error          df t value
(Intercept)                                                   1.83307     0.04693  1307.91974   39.06
menstruationpre                                              -0.09042     0.01730 25896.26256   -5.23
menstruationyes                                              -0.07115     0.01631 25990.03658   -4.36
fertile_mean                                                 -0.04867     0.21402  1417.43232   -0.23
partner_attractiveness_global                                -0.04613     0.02807  1086.82125   -1.64
includedhorm_contra                                          -0.11812     0.03852  1255.66087   -3.07
fertile                                                       0.17329     0.03491 25891.43731    4.96
menstruationpre:includedhorm_contra                           0.06921     0.02221 25892.54334    3.12
menstruationyes:includedhorm_contra                           0.08578     0.02138 25971.08193    4.01
partner_attractiveness_global:includedhorm_contra             0.06838     0.03686  1075.45242    1.86
partner_attractiveness_global:fertile                        -0.00137     0.02895 25902.30954   -0.05
includedhorm_contra:fertile                                  -0.17460     0.04425 25996.32291   -3.95
partner_attractiveness_global:includedhorm_contra:fertile    -0.02232     0.03720 25887.89595   -0.60
                                                            Pr(>|t|)    
(Intercept)                                                  < 2e-16 ***
menstruationpre                                           0.00000017 ***
menstruationyes                                           0.00001286 ***
fertile_mean                                                  0.8201    
partner_attractiveness_global                                 0.1006    
includedhorm_contra                                           0.0022 ** 
fertile                                                   0.00000070 ***
menstruationpre:includedhorm_contra                           0.0018 ** 
menstruationyes:includedhorm_contra                       0.00006009 ***
partner_attractiveness_global:includedhorm_contra             0.0639 .  
partner_attractiveness_global:fertile                         0.9623    
includedhorm_contra:fertile                               0.00007971 ***
partner_attractiveness_global:includedhorm_contra:fertile     0.5484    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_global +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_global:included +  
    partner_attractiveness_global:fertile + included:fertile +  
    partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 48222

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.745 -0.550 -0.137  0.389  7.912 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3323   0.576                     
          menstruationpre 0.0442   0.210    -0.29            
          menstruationyes 0.0673   0.259    -0.26  0.77      
          fertile         0.2908   0.539    -0.18  0.42  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                            Estimate Std. Error         df t value  Pr(>|t|)
(Intercept)                                                  1.84560    0.04787 1320.12138   38.56   < 2e-16
menstruationpre                                             -0.09911    0.02079  763.09381   -4.77 0.0000022
menstruationyes                                             -0.07683    0.02165  756.50427   -3.55   0.00041
fertile_mean                                                -0.09256    0.21749 1439.28272   -0.43   0.67047
partner_attractiveness_global                               -0.04385    0.02798 1021.98723   -1.57   0.11737
includedhorm_contra                                         -0.12380    0.03985 1015.62885   -3.11   0.00194
fertile                                                      0.16233    0.04590  823.90842    3.54   0.00043
menstruationpre:includedhorm_contra                          0.07866    0.02669  759.76373    2.95   0.00330
menstruationyes:includedhorm_contra                          0.09370    0.02814  780.88732    3.33   0.00091
partner_attractiveness_global:includedhorm_contra            0.06809    0.03672 1011.58730    1.85   0.06401
partner_attractiveness_global:fertile                        0.00134    0.03791  834.06635    0.04   0.97180
includedhorm_contra:fertile                                 -0.16273    0.05838  802.59623   -2.79   0.00544
partner_attractiveness_global:includedhorm_contra:fertile   -0.02883    0.04902  799.82787   -0.59   0.55662
                                                             
(Intercept)                                               ***
menstruationpre                                           ***
menstruationyes                                           ***
fertile_mean                                                 
partner_attractiveness_global                                
includedhorm_contra                                       ** 
fertile                                                   ***
menstruationpre:includedhorm_contra                       ** 
menstruationyes:includedhorm_contra                       ***
partner_attractiveness_global:includedhorm_contra         .  
partner_attractiveness_global:fertile                        
includedhorm_contra:fertile                               ** 
partner_attractiveness_global:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00220303 (tol = 0.002, component 1)

Partner’s longterm attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_longterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48452 48559 -24213 48426 NA NA NA
with_mod 15 48449 48572 -24210 48419 6.762 2 0.03401
with_mod_ranef 24 48123 48320 -24038 48075 344 9 1.162e-68

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_longterm +  
    included + fertile + menstruation:included + partner_attractiveness_longterm:included +  
    partner_attractiveness_longterm:fertile + included:fertile +  
    partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 48490

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.298 -0.557 -0.148  0.403  7.997 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.29     0.538   
 Residual             0.32     0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                               Estimate  Std. Error          df t value
(Intercept)                                                     1.84183     0.04562  1328.65741   40.37
menstruationpre                                                -0.08964     0.01729 25914.41288   -5.18
menstruationyes                                                -0.06976     0.01632 26011.33276   -4.28
fertile_mean                                                   -0.11011     0.20832  1439.66546   -0.53
partner_attractiveness_longterm                                -0.17146     0.02766  1139.25634   -6.20
includedhorm_contra                                            -0.10852     0.03744  1277.83708   -2.90
fertile                                                         0.17152     0.03491 25910.74583    4.91
menstruationpre:includedhorm_contra                             0.06863     0.02220 25911.13054    3.09
menstruationyes:includedhorm_contra                             0.08497     0.02138 25991.62506    3.97
partner_attractiveness_longterm:includedhorm_contra             0.00807     0.03718  1126.56964    0.22
partner_attractiveness_longterm:fertile                         0.04400     0.03095 26139.80598    1.42
includedhorm_contra:fertile                                    -0.17694     0.04429 26020.85045   -4.00
partner_attractiveness_longterm:includedhorm_contra:fertile     0.01433     0.04094 26078.36880    0.35
                                                                Pr(>|t|)    
(Intercept)                                                      < 2e-16 ***
menstruationpre                                             0.0000002200 ***
menstruationyes                                             0.0000191496 ***
fertile_mean                                                      0.5972    
partner_attractiveness_longterm                             0.0000000008 ***
includedhorm_contra                                               0.0038 ** 
fertile                                                     0.0000009004 ***
menstruationpre:includedhorm_contra                               0.0020 ** 
menstruationyes:includedhorm_contra                         0.0000708542 ***
partner_attractiveness_longterm:includedhorm_contra               0.8283    
partner_attractiveness_longterm:fertile                           0.1552    
includedhorm_contra:fertile                                 0.0000648508 ***
partner_attractiveness_longterm:includedhorm_contra:fertile       0.7264    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_longterm:included +  
    partner_attractiveness_longterm:fertile + included:fertile +  
    partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 48143

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.750 -0.551 -0.136  0.390  7.906 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3116   0.558                     
          menstruationpre 0.0441   0.210    -0.33            
          menstruationyes 0.0673   0.259    -0.26  0.77      
          fertile         0.2908   0.539    -0.17  0.44  0.57
 Residual                 0.3028   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                             Estimate Std. Error        df t value
(Intercept)                                                    1.8541     0.0466 1341.4605   39.79
menstruationpre                                               -0.0977     0.0207  767.2133   -4.71
menstruationyes                                               -0.0753     0.0216  759.8877   -3.48
fertile_mean                                                  -0.1509     0.2119 1465.9887   -0.71
partner_attractiveness_longterm                               -0.1772     0.0275 1060.9506   -6.44
includedhorm_contra                                           -0.1145     0.0388 1023.8669   -2.95
fertile                                                        0.1599     0.0459  824.8345    3.48
menstruationpre:includedhorm_contra                            0.0779     0.0266  763.8979    2.93
menstruationyes:includedhorm_contra                            0.0930     0.0282  783.9702    3.30
partner_attractiveness_longterm:includedhorm_contra            0.0125     0.0369 1052.8170    0.34
partner_attractiveness_longterm:fertile                        0.0563     0.0401  898.1321    1.41
includedhorm_contra:fertile                                   -0.1645     0.0584  804.7453   -2.82
partner_attractiveness_longterm:includedhorm_contra:fertile    0.0033     0.0534  858.9192    0.06
                                                                 Pr(>|t|)    
(Intercept)                                                       < 2e-16 ***
menstruationpre                                             0.00000295015 ***
menstruationyes                                                   0.00053 ***
fertile_mean                                                      0.47660    
partner_attractiveness_longterm                             0.00000000018 ***
includedhorm_contra                                               0.00325 ** 
fertile                                                           0.00052 ***
menstruationpre:includedhorm_contra                               0.00354 ** 
menstruationyes:includedhorm_contra                               0.00099 ***
partner_attractiveness_longterm:includedhorm_contra               0.73507    
partner_attractiveness_longterm:fertile                           0.16007    
includedhorm_contra:fertile                                       0.00499 ** 
partner_attractiveness_longterm:includedhorm_contra:fertile       0.95084    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00462398 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

We also test this specification of the short-term vs. long-term moderator prediction, but we think this is a suboptimal way to test it.

model %>%
  test_moderator_correction("partner_st_vs_lt", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48516 48622 -24245 48490 NA NA NA
with_mod 15 48506 48629 -24238 48476 13.93 2 0.000946
with_mod_ranef 24 48187 48384 -24069 48139 337.1 9 3.436e-67

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_st_vs_lt +  
    included + fertile + menstruation:included + partner_st_vs_lt:included +  
    partner_st_vs_lt:fertile + included:fertile + partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 48548

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.268 -0.557 -0.148  0.405  7.979 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.309    0.556   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                               Estimate Std. Error         df t value   Pr(>|t|)    
(Intercept)                                      1.8414     0.0470  1305.5503   39.16    < 2e-16 ***
menstruationpre                                 -0.0901     0.0173 25897.5752   -5.21 0.00000019 ***
menstruationyes                                 -0.0704     0.0163 25991.9538   -4.32 0.00001588 ***
fertile_mean                                    -0.0675     0.2136  1416.7617   -0.32    0.75210    
partner_st_vs_lt                                 0.0418     0.0260  1091.2497    1.61    0.10769    
includedhorm_contra                             -0.1276     0.0385  1257.1326   -3.31    0.00095 ***
fertile                                          0.1620     0.0351 25900.9685    4.62 0.00000391 ***
menstruationpre:includedhorm_contra              0.0690     0.0222 25893.8836    3.11    0.00190 ** 
menstruationyes:includedhorm_contra              0.0851     0.0214 25972.5361    3.98 0.00006819 ***
partner_st_vs_lt:includedhorm_contra             0.0257     0.0331  1083.9729    0.78    0.43692    
partner_st_vs_lt:fertile                        -0.0803     0.0270 26005.6997   -2.97    0.00300 ** 
includedhorm_contra:fertile                     -0.1602     0.0444 26003.3756   -3.61    0.00031 ***
partner_st_vs_lt:includedhorm_contra:fertile     0.0333     0.0341 25976.8037    0.98    0.32800    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_st_vs_lt +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_st_vs_lt:included + partner_st_vs_lt:fertile +  
    included:fertile + partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 48208

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.757 -0.550 -0.137  0.389  7.894 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3300   0.574                     
          menstruationpre 0.0443   0.210    -0.31            
          menstruationyes 0.0671   0.259    -0.26  0.77      
          fertile         0.2891   0.538    -0.17  0.44  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                              Estimate Std. Error        df t value  Pr(>|t|)    
(Intercept)                                     1.8545     0.0479 1318.4746   38.68   < 2e-16 ***
menstruationpre                                -0.0987     0.0208  763.3833   -4.75 0.0000024 ***
menstruationyes                                -0.0764     0.0216  757.3232   -3.53   0.00044 ***
fertile_mean                                   -0.1130     0.2171 1439.8420   -0.52   0.60284    
partner_st_vs_lt                                0.0451     0.0258 1016.7478    1.75   0.08059 .  
includedhorm_contra                            -0.1336     0.0399 1018.0365   -3.35   0.00083 ***
fertile                                         0.1520     0.0460  830.5307    3.30   0.00100 ** 
menstruationpre:includedhorm_contra             0.0782     0.0267  760.0808    2.93   0.00348 ** 
menstruationyes:includedhorm_contra             0.0933     0.0281  781.7409    3.32   0.00096 ***
partner_st_vs_lt:includedhorm_contra            0.0235     0.0329 1013.8724    0.72   0.47387    
partner_st_vs_lt:fertile                       -0.0809     0.0352  817.8331   -2.30   0.02185 *  
includedhorm_contra:fertile                    -0.1496     0.0585  807.1231   -2.56   0.01070 *  
partner_st_vs_lt:includedhorm_contra:fertile    0.0350     0.0446  804.3316    0.79   0.43245    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00538876 (tol = 0.002, component 1)

Partner’s mate value

long scale
model %>%
  test_moderator_correction("MV_P", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48523 48629 -24248 48497 NA NA NA
with_mod 15 48526 48649 -24248 48496 0.2159 2 0.8977
with_mod_ranef 24 48203 48399 -24077 48155 342 9 3.149e-68

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_P_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48524 48631 -24249 48498 NA NA NA
with_mod 15 48527 48650 -24248 48497 1.837 2 0.3991
with_mod_ranef 24 48204 48400 -24078 48156 340.8 9 5.637e-68

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + MV_P_short +  
    included + fertile + menstruation:included + MV_P_short:included +  
    MV_P_short:fertile + included:fertile + MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 48566

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.284 -0.556 -0.149  0.405  8.007 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.311    0.558   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                         Estimate Std. Error         df t value   Pr(>|t|)    
(Intercept)                                1.8801     0.1246  1127.3621   15.09    < 2e-16 ***
menstruationpre                           -0.0908     0.0173 25895.5903   -5.25 0.00000016 ***
menstruationyes                           -0.0715     0.0163 25989.9441   -4.38 0.00001171 ***
fertile_mean                              -0.0566     0.2141  1417.1682   -0.26     0.7914    
MV_P_short                                -0.0135     0.0343  1104.8966   -0.39     0.6936    
includedhorm_contra                       -0.2651     0.1583  1090.6226   -1.67     0.0944 .  
fertile                                    0.3326     0.1264 25936.9433    2.63     0.0085 ** 
menstruationpre:includedhorm_contra        0.0694     0.0222 25891.9348    3.12     0.0018 ** 
menstruationyes:includedhorm_contra        0.0860     0.0214 25970.8066    4.02 0.00005757 ***
MV_P_short:includedhorm_contra             0.0438     0.0457  1081.2391    0.96     0.3384    
MV_P_short:fertile                        -0.0475     0.0361 25950.9966   -1.31     0.1892    
includedhorm_contra:fertile               -0.3007     0.1632 25913.3806   -1.84     0.0655 .  
MV_P_short:includedhorm_contra:fertile     0.0375     0.0469 25918.5457    0.80     0.4235    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + MV_P_short + included +  
    fertile + (1 + menstruation + fertile | person) + menstruation:included +  
    MV_P_short:included + MV_P_short:fertile + included:fertile +      MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 48222

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.747 -0.550 -0.136  0.388  7.911 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3329   0.577                     
          menstruationpre 0.0443   0.210    -0.29            
          menstruationyes 0.0672   0.259    -0.26  0.77      
          fertile         0.2908   0.539    -0.18  0.42  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                         Estimate Std. Error         df t value  Pr(>|t|)    
(Intercept)                               1.87884    0.12466 1085.18987   15.07   < 2e-16 ***
menstruationpre                          -0.09935    0.02079  762.84683   -4.78 0.0000021 ***
menstruationyes                          -0.07705    0.02164  756.71515   -3.56   0.00039 ***
fertile_mean                             -0.10021    0.21751 1439.15610   -0.46   0.64506    
MV_P_short                               -0.00946    0.03423 1038.69109   -0.28   0.78227    
includedhorm_contra                      -0.26759    0.15811 1033.43198   -1.69   0.09088 .  
fertile                                   0.32798    0.16536  877.38695    1.98   0.04764 *  
menstruationpre:includedhorm_contra       0.07882    0.02669  759.48339    2.95   0.00324 ** 
menstruationyes:includedhorm_contra       0.09385    0.02813  781.09503    3.34   0.00089 ***
MV_P_short:includedhorm_contra            0.04291    0.04557 1016.50024    0.94   0.34665    
MV_P_short:fertile                       -0.04932    0.04722  851.03908   -1.04   0.29658    
includedhorm_contra:fertile              -0.24637    0.21456  848.95021   -1.15   0.25120    
MV_P_short:includedhorm_contra:fertile    0.02480    0.06156  822.50532    0.40   0.68720    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00331234 (tol = 0.002, component 1)

Partner’s job and income

model %>%
  test_moderator_correction("partner_attractiveness_money", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48525 48632 -24250 48499 NA NA NA
with_mod 15 48529 48652 -24250 48499 0.2694 2 0.874
with_mod_ranef 24 48206 48403 -24079 48158 340.9 9 5.392e-68

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + partner_attractiveness_money +  
    included + fertile + menstruation:included + partner_attractiveness_money:included +  
    partner_attractiveness_money:fertile + included:fertile +  
    partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 48569

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.286 -0.557 -0.150  0.405  8.004 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.312    0.558   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                            Estimate  Std. Error          df t value
(Intercept)                                                  1.77559     0.11217  1114.82419   15.83
menstruationpre                                             -0.09049     0.01730 25896.28615   -5.23
menstruationyes                                             -0.07127     0.01631 25990.42878   -4.37
fertile_mean                                                -0.04849     0.21436  1415.68537   -0.23
partner_attractiveness_money                                 0.01813     0.03199  1086.26247    0.57
includedhorm_contra                                         -0.03243     0.14080  1095.36820   -0.23
fertile                                                      0.15176     0.11108 25954.09836    1.37
menstruationpre:includedhorm_contra                          0.06905     0.02221 25892.40418    3.11
menstruationyes:includedhorm_contra                          0.08576     0.02138 25971.25890    4.01
partner_attractiveness_money:includedhorm_contra            -0.02762     0.04395  1084.71442   -0.63
partner_attractiveness_money:fertile                         0.00672     0.03324 25952.53556    0.20
includedhorm_contra:fertile                                 -0.10970     0.14578 25949.46203   -0.75
partner_attractiveness_money:includedhorm_contra:fertile    -0.02125     0.04504 25946.07428   -0.47
                                                           Pr(>|t|)    
(Intercept)                                                 < 2e-16 ***
menstruationpre                                          0.00000017 ***
menstruationyes                                          0.00001244 ***
fertile_mean                                                 0.8211    
partner_attractiveness_money                                 0.5710    
includedhorm_contra                                          0.8179    
fertile                                                      0.1719    
menstruationpre:includedhorm_contra                          0.0019 ** 
menstruationyes:includedhorm_contra                      0.00006034 ***
partner_attractiveness_money:includedhorm_contra             0.5297    
partner_attractiveness_money:fertile                         0.8399    
includedhorm_contra:fertile                                  0.4518    
partner_attractiveness_money:includedhorm_contra:fertile     0.6372    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + partner_attractiveness_money +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_money:included +  
    partner_attractiveness_money:fertile + included:fertile +  
    partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 48224

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.749 -0.550 -0.137  0.390  7.910 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3330   0.577                     
          menstruationpre 0.0442   0.210    -0.29            
          menstruationyes 0.0672   0.259    -0.26  0.77      
          fertile         0.2915   0.540    -0.18  0.43  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                           Estimate Std. Error         df t value  Pr(>|t|)
(Intercept)                                                 1.78971    0.11216 1079.29567   15.96   < 2e-16
menstruationpre                                            -0.09916    0.02079  762.46842   -4.77 0.0000022
menstruationyes                                            -0.07693    0.02165  756.74048   -3.55    0.0004
fertile_mean                                               -0.09265    0.21780 1437.73732   -0.43    0.6706
partner_attractiveness_money                                0.01765    0.03186 1015.52437    0.55    0.5796
includedhorm_contra                                        -0.04817    0.14073 1039.68864   -0.34    0.7322
fertile                                                     0.14870    0.14530  877.08526    1.02    0.3064
menstruationpre:includedhorm_contra                         0.07858    0.02669  759.10967    2.94    0.0033
menstruationyes:includedhorm_contra                         0.09376    0.02814  781.15152    3.33    0.0009
partner_attractiveness_money:includedhorm_contra           -0.02433    0.04379 1019.22429   -0.56    0.5787
partner_attractiveness_money:fertile                        0.00422    0.04357  831.72537    0.10    0.9229
includedhorm_contra:fertile                                -0.11800    0.19230  840.18534   -0.61    0.5396
partner_attractiveness_money:includedhorm_contra:fertile   -0.01458    0.05951  800.16148   -0.25    0.8064
                                                            
(Intercept)                                              ***
menstruationpre                                          ***
menstruationyes                                          ***
fertile_mean                                                
partner_attractiveness_money                                
includedhorm_contra                                         
fertile                                                     
menstruationpre:includedhorm_contra                      ** 
menstruationyes:includedhorm_contra                      ***
partner_attractiveness_money:includedhorm_contra            
partner_attractiveness_money:fertile                        
includedhorm_contra:fertile                                 
partner_attractiveness_money:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00624611 (tol = 0.002, component 1)

Own mate value

long scale
model %>%
  test_moderator_correction("MV", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48396 48502 -24185 48370 NA NA NA
with_mod 15 48395 48518 -24183 48365 4.659 2 0.09735
with_mod_ranef 24 48077 48273 -24014 48029 336.2 9 5.451e-67

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 48469 48575 -24221 48443 NA NA NA
with_mod 15 48472 48594 -24221 48442 1.071 2 0.5855
with_mod_ranef 24 48149 48346 -24051 48101 340.5 9 6.586e-68

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + (1 | person) + MV_short +  
    included + fertile + menstruation:included + MV_short:included +  
    MV_short:fertile + included:fertile + MV_short:included:fertile
   Data: diary

REML criterion at convergence: 48512

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.270 -0.556 -0.148  0.404  7.994 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.294    0.542   
 Residual             0.320    0.566   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                       Estimate Std. Error         df t value   Pr(>|t|)    
(Intercept)                              1.3148     0.1304  1134.5045   10.08    < 2e-16 ***
menstruationpre                         -0.0903     0.0173 25909.1448   -5.22 0.00000018 ***
menstruationyes                         -0.0710     0.0163 26005.9509   -4.35 0.00001342 ***
fertile_mean                            -0.0803     0.2094  1430.7644   -0.38     0.7013    
MV_short                                 0.1413     0.0330  1106.7081    4.28 0.00002002 ***
includedhorm_contra                     -0.1762     0.1598  1102.3129   -1.10     0.2707    
fertile                                  0.0395     0.1337 26012.1557    0.30     0.7675    
menstruationpre:includedhorm_contra      0.0689     0.0222 25905.1791    3.10     0.0019 ** 
menstruationyes:includedhorm_contra      0.0857     0.0214 25986.2736    4.01 0.00006056 ***
MV_short:includedhorm_contra             0.0207     0.0425  1091.8902    0.49     0.6260    
MV_short:fertile                         0.0361     0.0349 26026.4233    1.03     0.3010    
includedhorm_contra:fertile             -0.0364     0.1690 25972.7921   -0.22     0.8293    
MV_short:includedhorm_contra:fertile    -0.0373     0.0447 25985.0534   -0.83     0.4038    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: extra_pair ~ menstruation + fertile_mean + MV_short + included +  
    fertile + (1 + menstruation + fertile | person) + menstruation:included +  
    MV_short:included + MV_short:fertile + included:fertile +      MV_short:included:fertile
   Data: diary

REML criterion at convergence: 48168

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.751 -0.549 -0.138  0.390  7.903 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.3158   0.562                     
          menstruationpre 0.0443   0.211    -0.30            
          menstruationyes 0.0671   0.259    -0.26  0.77      
          fertile         0.2901   0.539    -0.19  0.42  0.57
 Residual                 0.3029   0.550                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                      Estimate Std. Error        df t value  Pr(>|t|)    
(Intercept)                             1.3182     0.1305 1087.4196   10.10   < 2e-16 ***
menstruationpre                        -0.0993     0.0208  762.5460   -4.78 0.0000021 ***
menstruationyes                        -0.0767     0.0216  757.6426   -3.54   0.00042 ***
fertile_mean                           -0.1226     0.2128 1454.4114   -0.58   0.56446    
MV_short                                0.1437     0.0329 1034.1254    4.37 0.0000139 ***
includedhorm_contra                    -0.1662     0.1598 1040.5150   -1.04   0.29848    
fertile                                 0.0761     0.1766  845.9029    0.43   0.66640    
menstruationpre:includedhorm_contra     0.0789     0.0267  759.0909    2.96   0.00322 ** 
menstruationyes:includedhorm_contra     0.0939     0.0281  782.0430    3.34   0.00088 ***
MV_short:includedhorm_contra            0.0164     0.0424 1022.0682    0.39   0.69866    
MV_short:fertile                        0.0232     0.0460  823.8123    0.50   0.61407    
includedhorm_contra:fertile            -0.1203     0.2230  845.8430   -0.54   0.58968    
MV_short:includedhorm_contra:fertile   -0.0109     0.0589  822.7466   -0.18   0.85345    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00847336 (tol = 0.002, component 1)

In-pair desire Moderators

do_moderators(models$in_pair_desire, diary)

Partner’s physical attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s physical attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_physical", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 82861 82967 -41417 82835 NA NA NA
with_mod 15 82864 82986 -41417 82834 1.362 2 0.506
with_mod_ranef 24 82438 82634 -41195 82390 443.8 9 5.943e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_physical + included + fertile + menstruation:included +  
    partner_attractiveness_physical:included + partner_attractiveness_physical:fertile +  
    included:fertile + partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 82894

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.476 -0.679 -0.029  0.667  3.765 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.593    0.77    
 Residual             1.188    1.09    
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                               Estimate  Std. Error          df t value
(Intercept)                                                     1.31921     0.21259  1208.48444    6.21
menstruationpre                                                -0.06928     0.03324 26060.38320   -2.08
menstruationyes                                                -0.18954     0.03132 26177.77549   -6.05
fertile_mean                                                   -0.05585     0.32099  1586.48771   -0.17
partner_attractiveness_physical                                 0.27375     0.02544  1180.69966   10.76
includedhorm_contra                                             0.64365     0.27749  1169.86332    2.32
fertile                                                        -0.04778     0.29264 26210.07569   -0.16
menstruationpre:includedhorm_contra                            -0.00151     0.04267 26058.87650   -0.04
menstruationyes:includedhorm_contra                             0.03834     0.04105 26153.39718    0.93
partner_attractiveness_physical:includedhorm_contra            -0.05176     0.03381  1156.30578   -1.53
partner_attractiveness_physical:fertile                         0.03850     0.03586 26221.55539    1.07
includedhorm_contra:fertile                                    -0.05085     0.38722 26164.55464   -0.13
partner_attractiveness_physical:includedhorm_contra:fertile    -0.05233     0.04682 26163.87315   -1.12
                                                                 Pr(>|t|)    
(Intercept)                                                 0.00000000075 ***
menstruationpre                                                     0.037 *  
menstruationyes                                             0.00000000145 ***
fertile_mean                                                        0.862    
partner_attractiveness_physical                                   < 2e-16 ***
includedhorm_contra                                                 0.021 *  
fertile                                                             0.870    
menstruationpre:includedhorm_contra                                 0.972    
menstruationyes:includedhorm_contra                                 0.350    
partner_attractiveness_physical:includedhorm_contra                 0.126    
partner_attractiveness_physical:fertile                             0.283    
includedhorm_contra:fertile                                         0.896    
partner_attractiveness_physical:includedhorm_contra:fertile         0.264    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_physical +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_physical:included +  
    partner_attractiveness_physical:fertile + included:fertile +  
    partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 82446

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.695 -0.662 -0.034  0.646  3.617 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.674    0.821                     
          menstruationpre 0.196    0.442    -0.23            
          menstruationyes 0.242    0.492    -0.19  0.26      
          fertile         1.047    1.023    -0.31  0.35  0.25
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value
(Intercept)                                                    1.31717    0.21930 1089.43808    6.01
menstruationpre                                               -0.06569    0.04132  767.62634   -1.59
menstruationyes                                               -0.19355    0.04138  754.20869   -4.68
fertile_mean                                                  -0.08220    0.32666 1623.09835   -0.25
partner_attractiveness_physical                                0.27505    0.02626 1037.49238   10.48
includedhorm_contra                                            0.66957    0.28619 1033.71604    2.34
fertile                                                        0.02372    0.39385  886.79127    0.06
menstruationpre:includedhorm_contra                            0.00945    0.05304  764.48642    0.18
menstruationyes:includedhorm_contra                            0.04877    0.05386  778.63516    0.91
partner_attractiveness_physical:includedhorm_contra           -0.05608    0.03484 1019.28801   -1.61
partner_attractiveness_physical:fertile                        0.02907    0.04831  872.53359    0.60
includedhorm_contra:fertile                                   -0.10727    0.52206  863.40583   -0.21
partner_attractiveness_physical:includedhorm_contra:fertile   -0.04236    0.06325  847.24761   -0.67
                                                                Pr(>|t|)    
(Intercept)                                                 0.0000000026 ***
menstruationpre                                                    0.112    
menstruationyes                                             0.0000034378 ***
fertile_mean                                                       0.801    
partner_attractiveness_physical                                  < 2e-16 ***
includedhorm_contra                                                0.019 *  
fertile                                                            0.952    
menstruationpre:includedhorm_contra                                0.859    
menstruationyes:includedhorm_contra                                0.365    
partner_attractiveness_physical:includedhorm_contra                0.108    
partner_attractiveness_physical:fertile                            0.548    
includedhorm_contra:fertile                                        0.837    
partner_attractiveness_physical:includedhorm_contra:fertile        0.503    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00386997 (tol = 0.002, component 1)

Partner’s short-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s short-term attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_shortterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 82859 82965 -41416 82833 NA NA NA
with_mod 15 82862 82985 -41416 82832 0.3601 2 0.8352
with_mod_ranef 24 82436 82633 -41194 82388 444.2 9 5.023e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_shortterm + included + fertile + menstruation:included +  
    partner_attractiveness_shortterm:included + partner_attractiveness_shortterm:fertile +  
    included:fertile + partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 82890

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.489 -0.680 -0.031  0.665  3.738 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.589    0.768   
 Residual             1.188    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                Estimate  Std. Error          df t value
(Intercept)                                                      3.53611     0.06974  1465.06852   50.71
menstruationpre                                                 -0.06853     0.03324 26062.74475   -2.06
menstruationyes                                                 -0.19000     0.03132 26181.30950   -6.07
fertile_mean                                                    -0.04066     0.32029  1585.51944   -0.13
partner_attractiveness_shortterm                                 0.44389     0.03981  1164.70793   11.15
includedhorm_contra                                              0.20107     0.05719  1450.90200    3.52
fertile                                                          0.25628     0.06734 26039.28789    3.81
menstruationpre:includedhorm_contra                             -0.00238     0.04267 26060.63505   -0.06
menstruationyes:includedhorm_contra                              0.03878     0.04105 26155.83364    0.94
partner_attractiveness_shortterm:includedhorm_contra            -0.08985     0.05357  1138.40132   -1.68
partner_attractiveness_shortterm:fertile                        -0.01870     0.05632 26222.18102   -0.33
includedhorm_contra:fertile                                     -0.47181     0.08544 26181.12480   -5.52
partner_attractiveness_shortterm:includedhorm_contra:fertile     0.04253     0.07382 26145.18777    0.58
                                                                 Pr(>|t|)    
(Intercept)                                                       < 2e-16 ***
menstruationpre                                                   0.03924 *  
menstruationyes                                              0.0000000013 ***
fertile_mean                                                      0.89900    
partner_attractiveness_shortterm                                  < 2e-16 ***
includedhorm_contra                                               0.00045 ***
fertile                                                           0.00014 ***
menstruationpre:includedhorm_contra                               0.95560    
menstruationyes:includedhorm_contra                               0.34480    
partner_attractiveness_shortterm:includedhorm_contra              0.09376 .  
partner_attractiveness_shortterm:fertile                          0.73983    
includedhorm_contra:fertile                                  0.0000000338 ***
partner_attractiveness_shortterm:includedhorm_contra:fertile      0.56455    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_shortterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_shortterm:fertile + included:fertile +  
    partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 82441

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.693 -0.662 -0.033  0.646  3.617 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.670    0.819                     
          menstruationpre 0.196    0.443    -0.23            
          menstruationyes 0.243    0.493    -0.20  0.26      
          fertile         1.053    1.026    -0.31  0.35  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                               Estimate Std. Error         df t value
(Intercept)                                                     3.54478    0.07172 1443.94383   49.43
menstruationpre                                                -0.06431    0.04134  767.94682   -1.56
menstruationyes                                                -0.19327    0.04140  753.29571   -4.67
fertile_mean                                                   -0.07038    0.32606 1622.29011   -0.22
partner_attractiveness_shortterm                                0.44491    0.04106 1027.21848   10.84
includedhorm_contra                                             0.19280    0.06030 1001.56541    3.20
fertile                                                         0.25262    0.08778  858.75138    2.88
menstruationpre:includedhorm_contra                             0.00812    0.05307  764.81679    0.15
menstruationyes:includedhorm_contra                             0.04843    0.05389  777.68728    0.90
partner_attractiveness_shortterm:includedhorm_contra           -0.09697    0.05517 1005.93744   -1.76
partner_attractiveness_shortterm:fertile                       -0.02197    0.07623  852.96382   -0.29
includedhorm_contra:fertile                                    -0.44729    0.11169  840.67370   -4.00
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.04537    0.10009  829.95773    0.45
                                                              Pr(>|t|)    
(Intercept)                                                    < 2e-16 ***
menstruationpre                                                 0.1203    
menstruationyes                                              0.0000036 ***
fertile_mean                                                    0.8291    
partner_attractiveness_shortterm                               < 2e-16 ***
includedhorm_contra                                             0.0014 ** 
fertile                                                         0.0041 ** 
menstruationpre:includedhorm_contra                             0.8785    
menstruationyes:includedhorm_contra                             0.3691    
partner_attractiveness_shortterm:includedhorm_contra            0.0791 .  
partner_attractiveness_shortterm:fertile                        0.7732    
includedhorm_contra:fertile                                  0.0000675 ***
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.6504    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Partner’s short-term vs long-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) top-right (high LT, low ST), then top-left (low LT, low ST), then bottom-left (low LT, high ST), then bottom-right (high LT/ST).

add_main = update.formula(formula(model), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * included + partner_attractiveness_shortterm * included + partner_attractiveness_longterm * partner_attractiveness_shortterm"))) # reorder so that the triptych looks nice
add_mod_formula = update.formula(update.formula(formula(model), new = . ~ . - included * fertile), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included"))) # reorder so that the triptych looks nice
add_mod_formula_ranef = update.formula(update.formula(formula(model), new = . ~ . - included * fertile - (1 | person)), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included + (1 + menstruation + fertile | person)"))) # reorder so that the triptych looks nice

update(model, formula = add_main) -> with_main
update(model, formula = add_mod_formula) -> with_mod
update(model, formula = add_mod_formula_ranef) -> with_mod_ranef
cat(pander(anova(with_main, with_mod, with_mod_ranef)))
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 16 82832 82963 -41400 82800 NA NA NA
with_mod 23 82838 83026 -41396 82792 8.076 7 0.326
with_mod_ranef 32 82414 82676 -41175 82350 442 9 1.481e-89
effs = allEffects(with_mod)
effs = data.frame(effs$`partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included`) %>% 
  filter(partner_attractiveness_longterm %in% c(-3,-0.4, 0.8),partner_attractiveness_shortterm %in% c(-2,0.4, 2))
ggplot(effs, aes(fertile, fit, ymin = lower, ymax = upper, color = included)) + 
  facet_grid(partner_attractiveness_shortterm ~ partner_attractiveness_longterm) +
  geom_smooth(stat='identity') +
  scale_color_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  scale_fill_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  ggtitle("Moderation", "top-to-bottom: short-term,\nleft-to-right: long-term attractiveness of the partner")+
  ylab(names(model@frame)[1])

print_summary(with_mod)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_longterm + fertile + partner_attractiveness_shortterm +  
    included + menstruation:included + partner_attractiveness_longterm:fertile +  
    partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 82884

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.469 -0.679 -0.031  0.666  3.721 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.571    0.756   
 Residual             1.188    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                                                Estimate
(Intercept)                                                                                      3.50204
menstruationpre                                                                                 -0.06820
menstruationyes                                                                                 -0.18859
fertile_mean                                                                                     0.03909
partner_attractiveness_longterm                                                                  0.20962
fertile                                                                                          0.27279
partner_attractiveness_shortterm                                                                 0.36951
includedhorm_contra                                                                              0.23158
menstruationpre:includedhorm_contra                                                             -0.00223
menstruationyes:includedhorm_contra                                                              0.03739
partner_attractiveness_longterm:fertile                                                          0.03446
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.02908
fertile:partner_attractiveness_shortterm                                                        -0.04912
partner_attractiveness_longterm:includedhorm_contra                                             -0.09155
fertile:includedhorm_contra                                                                     -0.51024
partner_attractiveness_shortterm:includedhorm_contra                                            -0.03942
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        -0.05152
partner_attractiveness_longterm:fertile:includedhorm_contra                                     -0.05296
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            -0.09524
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.06646
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.17079
                                                                                              Std. Error
(Intercept)                                                                                      0.07067
menstruationpre                                                                                  0.03324
menstruationyes                                                                                  0.03134
fertile_mean                                                                                     0.31724
partner_attractiveness_longterm                                                                  0.04751
fertile                                                                                          0.07023
partner_attractiveness_shortterm                                                                 0.04371
includedhorm_contra                                                                              0.05905
menstruationpre:includedhorm_contra                                                              0.04267
menstruationyes:includedhorm_contra                                                              0.04107
partner_attractiveness_longterm:fertile                                                          0.06782
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.03494
fertile:partner_attractiveness_shortterm                                                         0.06152
partner_attractiveness_longterm:includedhorm_contra                                              0.06055
fertile:includedhorm_contra                                                                      0.08848
partner_attractiveness_shortterm:includedhorm_contra                                             0.05692
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                         0.05026
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.08603
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra             0.05454
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.07888
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.07783
                                                                                                      df
(Intercept)                                                                                   1446.71974
menstruationpre                                                                              26067.51594
menstruationyes                                                                              26187.58903
fertile_mean                                                                                  1587.76531
partner_attractiveness_longterm                                                               1155.59720
fertile                                                                                      26042.72190
partner_attractiveness_shortterm                                                              1140.85709
includedhorm_contra                                                                           1419.63516
menstruationpre:includedhorm_contra                                                          26065.60588
menstruationyes:includedhorm_contra                                                          26161.53190
partner_attractiveness_longterm:fertile                                                      26293.86590
partner_attractiveness_longterm:partner_attractiveness_shortterm                              1142.14983
fertile:partner_attractiveness_shortterm                                                     26186.68446
partner_attractiveness_longterm:includedhorm_contra                                           1152.58537
fertile:includedhorm_contra                                                                  26180.11183
partner_attractiveness_shortterm:includedhorm_contra                                          1126.63160
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                     26166.31793
partner_attractiveness_longterm:fertile:includedhorm_contra                                  26247.50936
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra          1141.68211
fertile:partner_attractiveness_shortterm:includedhorm_contra                                 26136.43226
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra 26129.25052
                                                                                             t value
(Intercept)                                                                                    49.55
menstruationpre                                                                                -2.05
menstruationyes                                                                                -6.02
fertile_mean                                                                                    0.12
partner_attractiveness_longterm                                                                 4.41
fertile                                                                                         3.88
partner_attractiveness_shortterm                                                                8.45
includedhorm_contra                                                                             3.92
menstruationpre:includedhorm_contra                                                            -0.05
menstruationyes:includedhorm_contra                                                             0.91
partner_attractiveness_longterm:fertile                                                         0.51
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.83
fertile:partner_attractiveness_shortterm                                                       -0.80
partner_attractiveness_longterm:includedhorm_contra                                            -1.51
fertile:includedhorm_contra                                                                    -5.77
partner_attractiveness_shortterm:includedhorm_contra                                           -0.69
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -1.03
partner_attractiveness_longterm:fertile:includedhorm_contra                                    -0.62
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -1.75
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.84
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    2.19
                                                                                                 Pr(>|t|)    
(Intercept)                                                                                       < 2e-16 ***
menstruationpre                                                                                    0.0402 *  
menstruationyes                                                                              0.0000000018 ***
fertile_mean                                                                                       0.9020    
partner_attractiveness_longterm                                                              0.0000112028 ***
fertile                                                                                            0.0001 ***
partner_attractiveness_shortterm                                                                  < 2e-16 ***
includedhorm_contra                                                                          0.0000922190 ***
menstruationpre:includedhorm_contra                                                                0.9583    
menstruationyes:includedhorm_contra                                                                0.3626    
partner_attractiveness_longterm:fertile                                                            0.6114    
partner_attractiveness_longterm:partner_attractiveness_shortterm                                   0.4054    
fertile:partner_attractiveness_shortterm                                                           0.4246    
partner_attractiveness_longterm:includedhorm_contra                                                0.1309    
fertile:includedhorm_contra                                                                  0.0000000082 ***
partner_attractiveness_shortterm:includedhorm_contra                                               0.4887    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                           0.3053    
partner_attractiveness_longterm:fertile:includedhorm_contra                                        0.5382    
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra               0.0810 .  
fertile:partner_attractiveness_shortterm:includedhorm_contra                                       0.3995    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra       0.0282 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
print_summary(with_mod_ranef)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    fertile + partner_attractiveness_shortterm + included + (1 +  
    menstruation + fertile | person) + menstruation:included +  
    partner_attractiveness_longterm:fertile + partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 82435

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.684 -0.662 -0.033  0.646  3.616 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.652    0.807                     
          menstruationpre 0.197    0.443    -0.24            
          menstruationyes 0.243    0.493    -0.19  0.26      
          fertile         1.064    1.031    -0.32  0.36  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                                               Estimate
(Intercept)                                                                                     3.51138
menstruationpre                                                                                -0.06467
menstruationyes                                                                                -0.19306
fertile_mean                                                                                    0.00637
partner_attractiveness_longterm                                                                 0.21269
fertile                                                                                         0.28018
partner_attractiveness_shortterm                                                                0.36914
includedhorm_contra                                                                             0.22288
menstruationpre:includedhorm_contra                                                             0.00870
menstruationyes:includedhorm_contra                                                             0.04819
partner_attractiveness_longterm:fertile                                                         0.00602
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.02814
fertile:partner_attractiveness_shortterm                                                       -0.05115
partner_attractiveness_longterm:includedhorm_contra                                            -0.08904
fertile:includedhorm_contra                                                                    -0.49578
partner_attractiveness_shortterm:includedhorm_contra                                           -0.04650
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.07551
partner_attractiveness_longterm:fertile:includedhorm_contra                                    -0.02956
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -0.09275
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.07291
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.18305
                                                                                             Std. Error
(Intercept)                                                                                     0.07272
menstruationpre                                                                                 0.04135
menstruationyes                                                                                 0.04141
fertile_mean                                                                                    0.32303
partner_attractiveness_longterm                                                                 0.04915
fertile                                                                                         0.09180
partner_attractiveness_shortterm                                                                0.04508
includedhorm_contra                                                                             0.06221
menstruationpre:includedhorm_contra                                                             0.05307
menstruationyes:includedhorm_contra                                                             0.05390
partner_attractiveness_longterm:fertile                                                         0.09033
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.03603
fertile:partner_attractiveness_shortterm                                                        0.08341
partner_attractiveness_longterm:includedhorm_contra                                             0.06258
fertile:includedhorm_contra                                                                     0.11607
partner_attractiveness_shortterm:includedhorm_contra                                            0.05866
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        0.06752
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.11544
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.05619
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.10702
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.10452
                                                                                                     df
(Intercept)                                                                                  1432.35697
menstruationpre                                                                               768.92814
menstruationyes                                                                               755.03327
fertile_mean                                                                                 1625.25101
partner_attractiveness_longterm                                                              1005.25500
fertile                                                                                       885.63801
partner_attractiveness_shortterm                                                             1004.46675
includedhorm_contra                                                                          1018.68047
menstruationpre:includedhorm_contra                                                           765.86823
menstruationyes:includedhorm_contra                                                           779.19096
partner_attractiveness_longterm:fertile                                                       899.29074
partner_attractiveness_longterm:partner_attractiveness_shortterm                              991.93682
fertile:partner_attractiveness_shortterm                                                      826.43071
partner_attractiveness_longterm:includedhorm_contra                                          1008.41831
fertile:includedhorm_contra                                                                   861.23959
partner_attractiveness_shortterm:includedhorm_contra                                          993.35363
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                      891.38826
partner_attractiveness_longterm:fertile:includedhorm_contra                                   872.86952
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra         1002.92273
fertile:partner_attractiveness_shortterm:includedhorm_contra                                  816.91234
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra  871.98790
                                                                                             t value Pr(>|t|)
(Intercept)                                                                                    48.29  < 2e-16
menstruationpre                                                                                -1.56  0.11821
menstruationyes                                                                                -4.66  3.7e-06
fertile_mean                                                                                    0.02  0.98428
partner_attractiveness_longterm                                                                 4.33  1.7e-05
fertile                                                                                         3.05  0.00234
partner_attractiveness_shortterm                                                                8.19  8.0e-16
includedhorm_contra                                                                             3.58  0.00036
menstruationpre:includedhorm_contra                                                             0.16  0.86985
menstruationyes:includedhorm_contra                                                             0.89  0.37154
partner_attractiveness_longterm:fertile                                                         0.07  0.94684
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.78  0.43508
fertile:partner_attractiveness_shortterm                                                       -0.61  0.53986
partner_attractiveness_longterm:includedhorm_contra                                            -1.42  0.15508
fertile:includedhorm_contra                                                                    -4.27  2.2e-05
partner_attractiveness_shortterm:includedhorm_contra                                           -0.79  0.42816
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -1.12  0.26373
partner_attractiveness_longterm:fertile:includedhorm_contra                                    -0.26  0.79799
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -1.65  0.09911
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.68  0.49591
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    1.75  0.08024
                                                                                                
(Intercept)                                                                                  ***
menstruationpre                                                                                 
menstruationyes                                                                              ***
fertile_mean                                                                                    
partner_attractiveness_longterm                                                              ***
fertile                                                                                      ** 
partner_attractiveness_shortterm                                                             ***
includedhorm_contra                                                                          ***
menstruationpre:includedhorm_contra                                                             
menstruationyes:includedhorm_contra                                                             
partner_attractiveness_longterm:fertile                                                         
partner_attractiveness_longterm:partner_attractiveness_shortterm                                
fertile:partner_attractiveness_shortterm                                                        
partner_attractiveness_longterm:includedhorm_contra                                             
fertile:includedhorm_contra                                                                  ***
partner_attractiveness_shortterm:includedhorm_contra                                            
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        
partner_attractiveness_longterm:fertile:includedhorm_contra                                     
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra         .  
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra .  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Relative attractiveness to self

whole MV and MV_P scale

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s relative attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83071 83178 -41523 83045 NA NA NA
with_mod 15 83071 83194 -41520 83041 4.487 2 0.1061
with_mod_ranef 24 82643 82840 -41298 82595 445.3 9 2.92e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_rel_to_self + included + fertile +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 83097

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.499 -0.677 -0.030  0.666  3.818 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.736    0.858   
 Residual             1.189    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                  Estimate  Std. Error          df t value
(Intercept)                                                        3.47540     0.07577  1396.35771   45.87
menstruationpre                                                   -0.06698     0.03327 25997.83896   -2.01
menstruationyes                                                   -0.18749     0.03134 26108.83464   -5.98
fertile_mean                                                       0.03915     0.34724  1514.76607    0.11
partner_attractiveness_rel_to_self                                 0.06081     0.04449  1113.18097    1.37
includedhorm_contra                                                0.28633     0.06205  1361.33540    4.61
fertile                                                            0.25142     0.06735 25977.07586    3.73
menstruationpre:includedhorm_contra                               -0.00371     0.04271 25994.41915   -0.09
menstruationyes:includedhorm_contra                                0.03728     0.04109 26085.76060    0.91
partner_attractiveness_rel_to_self:includedhorm_contra            -0.03241     0.05889  1111.59130   -0.55
partner_attractiveness_rel_to_self:fertile                        -0.10317     0.05649 26066.18456   -1.83
includedhorm_contra:fertile                                       -0.46579     0.08524 26110.11279   -5.46
partner_attractiveness_rel_to_self:includedhorm_contra:fertile     0.15480     0.07421 26055.40062    2.09
                                                                   Pr(>|t|)    
(Intercept)                                                         < 2e-16 ***
menstruationpre                                                     0.04410 *  
menstruationyes                                                0.0000000022 ***
fertile_mean                                                        0.91024    
partner_attractiveness_rel_to_self                                  0.17200    
includedhorm_contra                                            0.0000043174 ***
fertile                                                             0.00019 ***
menstruationpre:includedhorm_contra                                 0.93078    
menstruationyes:includedhorm_contra                                 0.36433    
partner_attractiveness_rel_to_self:includedhorm_contra              0.58219    
partner_attractiveness_rel_to_self:fertile                          0.06783 .  
includedhorm_contra:fertile                                    0.0000000468 ***
partner_attractiveness_rel_to_self:includedhorm_contra:fertile      0.03699 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 82647

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.663 -0.661 -0.033  0.645  3.669 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.827    0.909                     
          menstruationpre 0.198    0.445    -0.22            
          menstruationyes 0.244    0.494    -0.21  0.27      
          fertile         1.059    1.029    -0.30  0.35  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error         df t value
(Intercept)                                                       3.48175    0.07771 1390.34414   44.80
menstruationpre                                                  -0.06325    0.04143  765.38953   -1.53
menstruationyes                                                  -0.18990    0.04146  752.26587   -4.58
fertile_mean                                                      0.01851    0.35230 1547.39188    0.05
partner_attractiveness_rel_to_self                                0.05645    0.04557 1001.63379    1.24
includedhorm_contra                                               0.27756    0.06526  991.78744    4.25
fertile                                                           0.25043    0.08796  849.52842    2.85
menstruationpre:includedhorm_contra                               0.00815    0.05318  762.14917    0.15
menstruationyes:includedhorm_contra                               0.04739    0.05396  776.66182    0.88
partner_attractiveness_rel_to_self:includedhorm_contra           -0.02777    0.06031 1003.08813   -0.46
partner_attractiveness_rel_to_self:fertile                       -0.08188    0.07609  859.70375   -1.08
includedhorm_contra:fertile                                      -0.44417    0.11164  829.02876   -3.98
partner_attractiveness_rel_to_self:includedhorm_contra:fertile    0.12545    0.10022  845.73766    1.25
                                                                Pr(>|t|)    
(Intercept)                                                      < 2e-16 ***
menstruationpre                                                   0.1273    
menstruationyes                                                0.0000054 ***
fertile_mean                                                      0.9581    
partner_attractiveness_rel_to_self                                0.2157    
includedhorm_contra                                            0.0000230 ***
fertile                                                           0.0045 ** 
menstruationpre:includedhorm_contra                               0.8782    
menstruationyes:includedhorm_contra                               0.3801    
partner_attractiveness_rel_to_self:includedhorm_contra            0.6453    
partner_attractiveness_rel_to_self:fertile                        0.2822    
includedhorm_contra:fertile                                    0.0000754 ***
partner_attractiveness_rel_to_self:includedhorm_contra:fertile    0.2110    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00256459 (tol = 0.002, component 1)
three item subsets of the MV scales
model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self_MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83072 83179 -41523 83046 NA NA NA
with_mod 15 83072 83194 -41521 83042 4.598 2 0.1004
with_mod_ranef 24 82644 82841 -41298 82596 445.2 9 3.056e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_rel_to_self_MV_short + included +  
    fertile + menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 83098

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.493 -0.677 -0.030  0.666  3.819 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.737    0.859   
 Residual             1.189    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                           Estimate  Std. Error          df
(Intercept)                                                                 3.47362     0.07574  1396.83304
menstruationpre                                                            -0.06698     0.03327 25997.62148
menstruationyes                                                            -0.18740     0.03134 26109.09915
fertile_mean                                                                0.03917     0.34736  1514.79449
partner_attractiveness_rel_to_self_MV_short                                 0.05243     0.04452  1115.13350
includedhorm_contra                                                         0.28881     0.06201  1362.12903
fertile                                                                     0.25213     0.06730 25978.41130
menstruationpre:includedhorm_contra                                        -0.00368     0.04271 25994.15730
menstruationyes:includedhorm_contra                                         0.03723     0.04109 26085.74002
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra            -0.03611     0.05876  1110.66011
partner_attractiveness_rel_to_self_MV_short:fertile                        -0.10899     0.05645 26053.16145
includedhorm_contra:fertile                                                -0.46582     0.08519 26110.89732
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile     0.15368     0.07405 26045.29826
                                                                        t value     Pr(>|t|)    
(Intercept)                                                               45.86      < 2e-16 ***
menstruationpre                                                           -2.01      0.04410 *  
menstruationyes                                                           -5.98 0.0000000023 ***
fertile_mean                                                               0.11      0.91024    
partner_attractiveness_rel_to_self_MV_short                                1.18      0.23919    
includedhorm_contra                                                        4.66 0.0000035179 ***
fertile                                                                    3.75      0.00018 ***
menstruationpre:includedhorm_contra                                       -0.09      0.93137    
menstruationyes:includedhorm_contra                                        0.91      0.36499    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -0.61      0.53898    
partner_attractiveness_rel_to_self_MV_short:fertile                       -1.93      0.05353 .  
includedhorm_contra:fertile                                               -5.47 0.0000000459 ***
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    2.08      0.03797 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self_MV_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 82648

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.660 -0.661 -0.034  0.645  3.670 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.828    0.910                     
          menstruationpre 0.198    0.445    -0.23            
          menstruationyes 0.244    0.493    -0.21  0.27      
          fertile         1.060    1.030    -0.30  0.35  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                          Estimate Std. Error         df
(Intercept)                                                                3.48000    0.07769 1390.38595
menstruationpre                                                           -0.06325    0.04143  765.36587
menstruationyes                                                           -0.18993    0.04146  752.42020
fertile_mean                                                               0.01849    0.35242 1547.34943
partner_attractiveness_rel_to_self_MV_short                                0.04757    0.04558 1004.18175
includedhorm_contra                                                        0.28002    0.06522  991.31766
fertile                                                                    0.25132    0.08791  849.61840
menstruationpre:includedhorm_contra                                        0.00814    0.05318  762.12482
menstruationyes:includedhorm_contra                                        0.04744    0.05396  776.83713
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -0.03065    0.06016 1003.18850
partner_attractiveness_rel_to_self_MV_short:fertile                       -0.08483    0.07616  857.53776
includedhorm_contra:fertile                                               -0.44455    0.11160  829.00058
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    0.12265    0.10007  846.87890
                                                                        t value  Pr(>|t|)    
(Intercept)                                                               44.80   < 2e-16 ***
menstruationpre                                                           -1.53    0.1273    
menstruationyes                                                           -4.58 0.0000054 ***
fertile_mean                                                               0.05    0.9582    
partner_attractiveness_rel_to_self_MV_short                                1.04    0.2969    
includedhorm_contra                                                        4.29 0.0000193 ***
fertile                                                                    2.86    0.0044 ** 
menstruationpre:includedhorm_contra                                        0.15    0.8784    
menstruationyes:includedhorm_contra                                        0.88    0.3795    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -0.51    0.6105    
partner_attractiveness_rel_to_self_MV_short:fertile                       -1.11    0.2657    
includedhorm_contra:fertile                                               -3.98 0.0000739 ***
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    1.23    0.2207    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00834156 (tol = 0.002, component 1)

Partner’s shortterm attractiveness, alternative specification

model %>%
  test_moderator_correction("partner_attractiveness_shortterm_v2", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 82928 83035 -41451 82902 NA NA NA
with_mod 15 82932 83055 -41451 82902 0.1319 2 0.9362
with_mod_ranef 24 82505 82702 -41229 82457 444.8 9 3.737e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_shortterm_v2 + included + fertile +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 82959

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.489 -0.678 -0.030  0.665  3.753 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.636    0.797   
 Residual             1.188    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                   Estimate  Std. Error          df t value
(Intercept)                                                         3.51036     0.07161  1444.00970   49.02
menstruationpre                                                    -0.06955     0.03325 26040.10058   -2.09
menstruationyes                                                    -0.19054     0.03133 26155.19239   -6.08
fertile_mean                                                       -0.05967     0.32914  1564.34067   -0.18
partner_attractiveness_shortterm_v2                                 0.38131     0.04134  1150.49796    9.22
includedhorm_contra                                                 0.25594     0.05857  1423.80095    4.37
fertile                                                             0.25675     0.06715 26017.91076    3.82
menstruationpre:includedhorm_contra                                -0.00143     0.04269 26038.17120   -0.03
menstruationyes:includedhorm_contra                                 0.03908     0.04107 26130.89987    0.95
partner_attractiveness_shortterm_v2:includedhorm_contra            -0.09950     0.05485  1132.06750   -1.81
partner_attractiveness_shortterm_v2:fertile                        -0.01590     0.05613 26157.02698   -0.28
includedhorm_contra:fertile                                        -0.46983     0.08510 26157.83838   -5.52
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.02649     0.07303 26113.59400    0.36
                                                                    Pr(>|t|)    
(Intercept)                                                          < 2e-16 ***
menstruationpre                                                      0.03648 *  
menstruationyes                                                 0.0000000012 ***
fertile_mean                                                         0.85616    
partner_attractiveness_shortterm_v2                                  < 2e-16 ***
includedhorm_contra                                             0.0000133463 ***
fertile                                                              0.00013 ***
menstruationpre:includedhorm_contra                                  0.97326    
menstruationyes:includedhorm_contra                                  0.34130    
partner_attractiveness_shortterm_v2:includedhorm_contra              0.06994 .  
partner_attractiveness_shortterm_v2:fertile                          0.77691    
includedhorm_contra:fertile                                     0.0000000340 ***
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile      0.71676    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_shortterm_v2 +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 82510

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.689 -0.661 -0.035  0.645  3.623 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.723    0.851                     
          menstruationpre 0.197    0.444    -0.23            
          menstruationyes 0.242    0.492    -0.21  0.26      
          fertile         1.056    1.028    -0.31  0.35  0.25
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                  Estimate Std. Error         df t value
(Intercept)                                                        3.51832    0.07366 1429.94660   47.77
menstruationpre                                                   -0.06601    0.04137  766.43746   -1.60
menstruationyes                                                   -0.19412    0.04139  752.03625   -4.69
fertile_mean                                                      -0.08313    0.33484 1599.93548   -0.25
partner_attractiveness_shortterm_v2                                0.38286    0.04252 1022.04328    9.00
includedhorm_contra                                                0.24683    0.06184 1000.01852    3.99
fertile                                                            0.25259    0.08762  851.71919    2.88
menstruationpre:includedhorm_contra                                0.00982    0.05310  763.27672    0.18
menstruationyes:includedhorm_contra                                0.04910    0.05387  776.44311    0.91
partner_attractiveness_shortterm_v2:includedhorm_contra           -0.10757    0.05638 1007.27061   -1.91
partner_attractiveness_shortterm_v2:fertile                       -0.02458    0.07590  856.29113   -0.32
includedhorm_contra:fertile                                       -0.44520    0.11136  832.54185   -4.00
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile    0.03037    0.09905  831.87915    0.31
                                                                 Pr(>|t|)    
(Intercept)                                                       < 2e-16 ***
menstruationpre                                                     0.111    
menstruationyes                                                 0.0000032 ***
fertile_mean                                                        0.804    
partner_attractiveness_shortterm_v2                               < 2e-16 ***
includedhorm_contra                                             0.0000705 ***
fertile                                                             0.004 ** 
menstruationpre:includedhorm_contra                                 0.853    
menstruationyes:includedhorm_contra                                 0.362    
partner_attractiveness_shortterm_v2:includedhorm_contra             0.057 .  
partner_attractiveness_shortterm_v2:fertile                         0.746    
includedhorm_contra:fertile                                     0.0000696 ***
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.759    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00913301 (tol = 0.002, component 1)

Partner’s global attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_global", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83045 83152 -41510 83019 NA NA NA
with_mod 15 83046 83169 -41508 83016 3.289 2 0.1931
with_mod_ranef 24 82618 82814 -41285 82570 446.2 9 1.861e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_global + included + fertile + menstruation:included +  
    partner_attractiveness_global:included + partner_attractiveness_global:fertile +  
    included:fertile + partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 83072

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.465 -0.677 -0.031  0.664  3.781 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.717    0.846   
 Residual             1.189    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                             Estimate  Std. Error          df t value
(Intercept)                                                   3.48085     0.07485  1404.56251   46.51
menstruationpre                                              -0.06830     0.03327 26004.54002   -2.05
menstruationyes                                              -0.18857     0.03134 26116.60013   -6.02
fertile_mean                                                 -0.02659     0.34395  1523.57582   -0.08
partner_attractiveness_global                                 0.17364     0.04384  1106.29702    3.96
includedhorm_contra                                           0.29531     0.06124  1371.78614    4.82
fertile                                                       0.25918     0.06714 25985.44823    3.86
menstruationpre:includedhorm_contra                          -0.00156     0.04271 26001.66037   -0.04
menstruationyes:includedhorm_contra                           0.03865     0.04109 26093.42475    0.94
partner_attractiveness_global:includedhorm_contra            -0.02735     0.05749  1092.06355   -0.48
partner_attractiveness_global:fertile                        -0.07899     0.05567 26012.98568   -1.42
includedhorm_contra:fertile                                  -0.47148     0.08504 26118.79329   -5.54
partner_attractiveness_global:includedhorm_contra:fertile     0.02826     0.07153 25994.52258    0.40
                                                              Pr(>|t|)    
(Intercept)                                                    < 2e-16 ***
menstruationpre                                                0.04005 *  
menstruationyes                                           0.0000000018 ***
fertile_mean                                                   0.93840    
partner_attractiveness_global                             0.0000794888 ***
includedhorm_contra                                       0.0000015765 ***
fertile                                                        0.00011 ***
menstruationpre:includedhorm_contra                            0.97080    
menstruationyes:includedhorm_contra                            0.34695    
partner_attractiveness_global:includedhorm_contra              0.63441    
partner_attractiveness_global:fertile                          0.15592    
includedhorm_contra:fertile                               0.0000000298 ***
partner_attractiveness_global:includedhorm_contra:fertile      0.69284    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_global +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_global:included +  
    partner_attractiveness_global:fertile + included:fertile +  
    partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 82622

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.668 -0.661 -0.036  0.645  3.647 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.805    0.897                     
          menstruationpre 0.197    0.444    -0.23            
          menstruationyes 0.243    0.493    -0.22  0.27      
          fertile         1.063    1.031    -0.29  0.35  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                            Estimate Std. Error         df t value  Pr(>|t|)
(Intercept)                                                  3.48739    0.07680 1396.61298   45.41   < 2e-16
menstruationpre                                             -0.06407    0.04141  765.37776   -1.55    0.1223
menstruationyes                                             -0.19075    0.04144  751.60545   -4.60 0.0000049
fertile_mean                                                -0.04644    0.34931 1557.11612   -0.13    0.8943
partner_attractiveness_global                                0.17604    0.04483  998.34656    3.93 0.0000921
includedhorm_contra                                          0.28625    0.06440  990.67364    4.45 0.0000098
fertile                                                      0.25683    0.08775  848.09109    2.93    0.0035
menstruationpre:includedhorm_contra                          0.00945    0.05316  762.18679    0.18    0.8589
menstruationyes:includedhorm_contra                          0.04803    0.05393  775.99814    0.89    0.3734
partner_attractiveness_global:includedhorm_contra           -0.03361    0.05875  986.04909   -0.57    0.5674
partner_attractiveness_global:fertile                       -0.08091    0.07506  854.98536   -1.08    0.2813
includedhorm_contra:fertile                                 -0.44887    0.11148  827.86065   -4.03 0.0000618
partner_attractiveness_global:includedhorm_contra:fertile    0.02625    0.09712  822.13647    0.27    0.7870
                                                             
(Intercept)                                               ***
menstruationpre                                              
menstruationyes                                           ***
fertile_mean                                                 
partner_attractiveness_global                             ***
includedhorm_contra                                       ***
fertile                                                   ** 
menstruationpre:includedhorm_contra                          
menstruationyes:includedhorm_contra                          
partner_attractiveness_global:includedhorm_contra            
partner_attractiveness_global:fertile                        
includedhorm_contra:fertile                               ***
partner_attractiveness_global:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00324469 (tol = 0.002, component 1)

Partner’s longterm attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_longterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 82976 83082 -41475 82950 NA NA NA
with_mod 15 82979 83102 -41475 82949 0.5225 2 0.7701
with_mod_ranef 24 82549 82746 -41251 82501 448.1 9 7.239e-91

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_longterm + included + fertile + menstruation:included +  
    partner_attractiveness_longterm:included + partner_attractiveness_longterm:fertile +  
    included:fertile + partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 83006

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.475 -0.679 -0.030  0.666  3.784 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.669    0.818   
 Residual             1.188    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                               Estimate  Std. Error          df t value
(Intercept)                                                     3.45258     0.07293  1432.80021   47.34
menstruationpre                                                -0.06861     0.03326 26026.99497   -2.06
menstruationyes                                                -0.18796     0.03136 26142.10730   -5.99
fertile_mean                                                    0.15132     0.33550  1550.46694    0.45
partner_attractiveness_longterm                                 0.35500     0.04347  1174.54734    8.17
includedhorm_contra                                             0.28065     0.05968  1406.61197    4.70
fertile                                                         0.25971     0.06714 26008.82637    3.87
menstruationpre:includedhorm_contra                            -0.00185     0.04270 26024.80750   -0.04
menstruationyes:includedhorm_contra                             0.03799     0.04110 26117.99290    0.92
partner_attractiveness_longterm:includedhorm_contra            -0.15338     0.05835  1159.33860   -2.63
partner_attractiveness_longterm:fertile                         0.03883     0.05945 26279.34133    0.65
includedhorm_contra:fertile                                    -0.47144     0.08512 26147.00050   -5.54
partner_attractiveness_longterm:includedhorm_contra:fertile    -0.05470     0.07865 26212.92655   -0.70
                                                            Pr(>|t|)    
(Intercept)                                                  < 2e-16 ***
menstruationpre                                              0.03915 *  
menstruationyes                                              2.1e-09 ***
fertile_mean                                                 0.65203    
partner_attractiveness_longterm                              8.1e-16 ***
includedhorm_contra                                          2.8e-06 ***
fertile                                                      0.00011 ***
menstruationpre:includedhorm_contra                          0.96544    
menstruationyes:includedhorm_contra                          0.35534    
partner_attractiveness_longterm:includedhorm_contra          0.00869 ** 
partner_attractiveness_longterm:fertile                      0.51363    
includedhorm_contra:fertile                                  3.1e-08 ***
partner_attractiveness_longterm:includedhorm_contra:fertile  0.48675    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_longterm:included +  
    partner_attractiveness_longterm:fertile + included:fertile +  
    partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 82553

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.682 -0.660 -0.034  0.645  3.638 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.752    0.867                     
          menstruationpre 0.197    0.444    -0.23            
          menstruationyes 0.243    0.493    -0.19  0.26      
          fertile         1.055    1.027    -0.30  0.35  0.25
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                             Estimate Std. Error        df t value Pr(>|t|)
(Intercept)                                                    3.4604     0.0748 1421.7771   46.27  < 2e-16
menstruationpre                                               -0.0655     0.0414  768.0610   -1.58   0.1136
menstruationyes                                               -0.1916     0.0415  753.7141   -4.62  4.5e-06
fertile_mean                                                   0.1229     0.3406 1584.9351    0.36   0.7183
partner_attractiveness_longterm                                0.3582     0.0447 1041.3171    8.01  3.1e-15
includedhorm_contra                                            0.2718     0.0627 1002.5736    4.33  1.6e-05
fertile                                                        0.2583     0.0876  853.4594    2.95   0.0033
menstruationpre:includedhorm_contra                            0.0103     0.0531  764.8773    0.19   0.8456
menstruationyes:includedhorm_contra                            0.0488     0.0539  777.8560    0.91   0.3656
partner_attractiveness_longterm:includedhorm_contra           -0.1526     0.0600 1033.0269   -2.55   0.0111
partner_attractiveness_longterm:fertile                        0.0188     0.0793  923.4331    0.24   0.8127
includedhorm_contra:fertile                                   -0.4501     0.1114  834.4090   -4.04  5.8e-05
partner_attractiveness_longterm:includedhorm_contra:fertile   -0.0400     0.1057  883.4884   -0.38   0.7056
                                                               
(Intercept)                                                 ***
menstruationpre                                                
menstruationyes                                             ***
fertile_mean                                                   
partner_attractiveness_longterm                             ***
includedhorm_contra                                         ***
fertile                                                     ** 
menstruationpre:includedhorm_contra                            
menstruationyes:includedhorm_contra                            
partner_attractiveness_longterm:includedhorm_contra         *  
partner_attractiveness_longterm:fertile                        
includedhorm_contra:fertile                                 ***
partner_attractiveness_longterm:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00843702 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

We also test this specification of the short-term vs. long-term moderator prediction, but we think this is a suboptimal way to test it.

model %>%
  test_moderator_correction("partner_st_vs_lt", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83055 83161 -41514 83029 NA NA NA
with_mod 15 83058 83180 -41514 83028 1.37 2 0.504
with_mod_ranef 24 82629 82826 -41291 82581 446.4 9 1.702e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_st_vs_lt + included + fertile + menstruation:included +  
    partner_st_vs_lt:included + partner_st_vs_lt:fertile + included:fertile +  
    partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 83085

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.494 -0.678 -0.031  0.667  3.787 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.722    0.85    
 Residual             1.189    1.09    
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                Estimate  Std. Error          df t value     Pr(>|t|)    
(Intercept)                                      3.49006     0.07541  1395.04228   46.28      < 2e-16 ***
menstruationpre                                 -0.06726     0.03327 26001.37773   -2.02      0.04322 *  
menstruationyes                                 -0.18709     0.03135 26113.99224   -5.97 0.0000000024 ***
fertile_mean                                    -0.01312     0.34513  1515.75465   -0.04      0.96967    
partner_st_vs_lt                                 0.09844     0.04082  1106.41892    2.41      0.01605 *  
includedhorm_contra                              0.27531     0.06163  1366.74532    4.47 0.0000085782 ***
fertile                                          0.25414     0.06751 25992.04275    3.76      0.00017 ***
menstruationpre:includedhorm_contra             -0.00364     0.04271 25998.52881   -0.09      0.93210    
menstruationyes:includedhorm_contra              0.03649     0.04110 26090.24766    0.89      0.37465    
partner_st_vs_lt:includedhorm_contra             0.01163     0.05195  1098.69332    0.22      0.82287    
partner_st_vs_lt:fertile                        -0.04967     0.05199 26125.52765   -0.96      0.33941    
includedhorm_contra:fertile                     -0.46828     0.08538 26121.55364   -5.48 0.0000000418 ***
partner_st_vs_lt:includedhorm_contra:fertile     0.07658     0.06554 26093.13288    1.17      0.24265    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_st_vs_lt +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_st_vs_lt:included + partner_st_vs_lt:fertile +  
    included:fertile + partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 82634

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.669 -0.660 -0.034  0.644  3.655 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.813    0.902                     
          menstruationpre 0.198    0.444    -0.22            
          menstruationyes 0.243    0.493    -0.21  0.27      
          fertile         1.065    1.032    -0.30  0.35  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                               Estimate Std. Error         df t value  Pr(>|t|)    
(Intercept)                                     3.49711    0.07738 1386.03709   45.20   < 2e-16 ***
menstruationpre                                -0.06313    0.04143  764.88279   -1.52    0.1280    
menstruationyes                                -0.18984    0.04145  752.49467   -4.58 0.0000054 ***
fertile_mean                                   -0.03472    0.35035 1548.27623   -0.10    0.9211    
partner_st_vs_lt                                0.09946    0.04189  988.77992    2.37    0.0178 *  
includedhorm_contra                             0.26658    0.06486  988.11610    4.11 0.0000428 ***
fertile                                         0.25241    0.08818  853.57635    2.86    0.0043 ** 
menstruationpre:includedhorm_contra             0.00759    0.05318  761.71047    0.14    0.8865    
menstruationyes:includedhorm_contra             0.04668    0.05394  776.91463    0.87    0.3871    
partner_st_vs_lt:includedhorm_contra            0.00342    0.05328  985.59679    0.06    0.9488    
partner_st_vs_lt:fertile                       -0.04271    0.07007  847.35052   -0.61    0.5424    
includedhorm_contra:fertile                    -0.44618    0.11187  831.54109   -3.99 0.0000724 ***
partner_st_vs_lt:includedhorm_contra:fertile    0.07387    0.08871  831.19867    0.83    0.4053    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00610187 (tol = 0.002, component 1)

Partner’s mate value

long scale
model %>%
  test_moderator_correction("MV_P", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83058 83164 -41516 83032 NA NA NA
with_mod 15 83057 83180 -41513 83027 4.971 2 0.08329
with_mod_ranef 24 82629 82826 -41291 82581 445.6 9 2.477e-90

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_P_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83015 83121 -41494 82989 NA NA NA
with_mod 15 83012 83134 -41491 82982 7.202 2 0.0273
with_mod_ranef 24 82586 82783 -41269 82538 443.6 9 6.697e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    MV_P_short + included + fertile + menstruation:included +  
    MV_P_short:included + MV_P_short:fertile + included:fertile +      MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 83036

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.479 -0.680 -0.028  0.664  3.772 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.692    0.832   
 Residual             1.188    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                          Estimate  Std. Error          df t value     Pr(>|t|)    
(Intercept)                                2.47636     0.19252  1160.30873   12.86      < 2e-16 ***
menstruationpre                           -0.06876     0.03326 26012.26788   -2.07        0.039 *  
menstruationyes                           -0.18853     0.03134 26126.67231   -6.02 0.0000000018 ***
fertile_mean                              -0.02163     0.33951  1530.15687   -0.06        0.949    
MV_P_short                                 0.29751     0.05289  1131.64797    5.63 0.0000000233 ***
includedhorm_contra                        0.39626     0.24359  1115.04401    1.63        0.104    
fertile                                    0.54022     0.24290 26062.47161    2.22        0.026 *  
menstruationpre:includedhorm_contra       -0.00105     0.04270 26009.59386   -0.02        0.980    
menstruationyes:includedhorm_contra        0.03840     0.04108 26102.85521    0.93        0.350    
MV_P_short:includedhorm_contra            -0.02755     0.07028  1101.45388   -0.39        0.695    
MV_P_short:fertile                        -0.08323     0.06947 26083.36564   -1.20        0.231    
includedhorm_contra:fertile               -0.29227     0.31384 26032.13755   -0.93        0.352    
MV_P_short:includedhorm_contra:fertile    -0.05470     0.09014 26042.94135   -0.61        0.544    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + MV_P_short + included +  
    fertile + (1 + menstruation + fertile | person) + menstruation:included +  
    MV_P_short:included + MV_P_short:fertile + included:fertile +      MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 82588

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.676 -0.661 -0.035  0.647  3.641 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.776    0.881                     
          menstruationpre 0.197    0.444    -0.22            
          menstruationyes 0.243    0.493    -0.22  0.26      
          fertile         1.056    1.028    -0.28  0.35  0.25
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                         Estimate Std. Error         df t value    Pr(>|t|)    
(Intercept)                               2.49181    0.19688 1076.36337   12.66     < 2e-16 ***
menstruationpre                          -0.06452    0.04140  765.47947   -1.56        0.12    
menstruationyes                          -0.19034    0.04141  751.24568   -4.60 0.000005030 ***
fertile_mean                             -0.04266    0.34506 1564.41901   -0.12        0.90    
MV_P_short                                0.29492    0.05407 1016.52610    5.45 0.000000062 ***
includedhorm_contra                       0.38941    0.24912 1008.98772    1.56        0.12    
fertile                                   0.49888    0.32589  887.39794    1.53        0.13    
menstruationpre:includedhorm_contra       0.00985    0.05313  762.27377    0.19        0.85    
menstruationyes:includedhorm_contra       0.04744    0.05389  775.67505    0.88        0.38    
MV_P_short:includedhorm_contra           -0.02819    0.07176  990.85589   -0.39        0.69    
MV_P_short:fertile                       -0.07158    0.09329  871.00991   -0.77        0.44    
includedhorm_contra:fertile              -0.26214    0.42318  860.62258   -0.62        0.54    
MV_P_short:includedhorm_contra:fertile   -0.05697    0.12172  843.31736   -0.47        0.64    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Partner’s job and income

model %>%
  test_moderator_correction("partner_attractiveness_money", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83073 83179 -41523 83047 NA NA NA
with_mod 15 83076 83199 -41523 83046 0.6831 2 0.7107
with_mod_ranef 24 82645 82842 -41299 82597 448.6 9 5.589e-91

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_money + included + fertile + menstruation:included +  
    partner_attractiveness_money:included + partner_attractiveness_money:fertile +  
    included:fertile + partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 83101

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.492 -0.678 -0.031  0.666  3.794 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.737    0.858   
 Residual             1.189    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                            Estimate  Std. Error          df t value
(Intercept)                                                  3.56519     0.17753  1140.12143   20.08
menstruationpre                                             -0.06767     0.03327 25997.04945   -2.03
menstruationyes                                             -0.18773     0.03135 26108.95328   -5.99
fertile_mean                                                 0.02803     0.34755  1512.71209    0.08
partner_attractiveness_money                                -0.02962     0.05048  1102.31832   -0.59
includedhorm_contra                                          0.11133     0.22241  1116.14395    0.50
fertile                                                      0.20609     0.21358 26062.55218    0.96
menstruationpre:includedhorm_contra                         -0.00282     0.04271 25993.90642   -0.07
menstruationyes:includedhorm_contra                          0.03763     0.04110 26085.58981    0.92
partner_attractiveness_money:includedhorm_contra             0.05924     0.06933  1100.28878    0.85
partner_attractiveness_money:fertile                         0.01737     0.06392 26063.87215    0.27
includedhorm_contra:fertile                                 -0.28289     0.28031 26060.96657   -1.01
partner_attractiveness_money:includedhorm_contra:fertile    -0.06293     0.08661 26058.55776   -0.73
                                                             Pr(>|t|)    
(Intercept)                                                   < 2e-16 ***
menstruationpre                                                 0.042 *  
menstruationyes                                          0.0000000021 ***
fertile_mean                                                    0.936    
partner_attractiveness_money                                    0.557    
includedhorm_contra                                             0.617    
fertile                                                         0.335    
menstruationpre:includedhorm_contra                             0.947    
menstruationyes:includedhorm_contra                             0.360    
partner_attractiveness_money:includedhorm_contra                0.393    
partner_attractiveness_money:fertile                            0.786    
includedhorm_contra:fertile                                     0.313    
partner_attractiveness_money:includedhorm_contra:fertile        0.468    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + partner_attractiveness_money +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_money:included +  
    partner_attractiveness_money:fertile + included:fertile +  
    partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 82648

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.668 -0.660 -0.033  0.645  3.659 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.826    0.909                     
          menstruationpre 0.198    0.445    -0.22            
          menstruationyes 0.244    0.494    -0.21  0.27      
          fertile         1.058    1.029    -0.29  0.35  0.25
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                           Estimate Std. Error         df t value  Pr(>|t|)
(Intercept)                                                 3.56105    0.18166 1073.40968   19.60   < 2e-16
menstruationpre                                            -0.06364    0.04143  765.14779   -1.54      0.12
menstruationyes                                            -0.18997    0.04146  751.84856   -4.58 0.0000054
fertile_mean                                                0.00989    0.35265 1545.43592    0.03      0.98
partner_attractiveness_money                               -0.02633    0.05164  991.27138   -0.51      0.61
includedhorm_contra                                         0.09286    0.22809 1015.32205    0.41      0.68
fertile                                                     0.28276    0.28714  894.75222    0.98      0.33
menstruationpre:includedhorm_contra                         0.00865    0.05318  761.90778    0.16      0.87
menstruationyes:includedhorm_contra                         0.04740    0.05396  776.27080    0.88      0.38
partner_attractiveness_money:includedhorm_contra            0.06264    0.07095  993.75763    0.88      0.38
partner_attractiveness_money:fertile                       -0.00782    0.08639  862.62909   -0.09      0.93
includedhorm_contra:fertile                                -0.23341    0.37986  856.67392   -0.61      0.54
partner_attractiveness_money:includedhorm_contra:fertile   -0.07331    0.11793  827.30742   -0.62      0.53
                                                            
(Intercept)                                              ***
menstruationpre                                             
menstruationyes                                          ***
fertile_mean                                                
partner_attractiveness_money                                
includedhorm_contra                                         
fertile                                                     
menstruationpre:includedhorm_contra                         
menstruationyes:includedhorm_contra                         
partner_attractiveness_money:includedhorm_contra            
partner_attractiveness_money:fertile                        
includedhorm_contra:fertile                                 
partner_attractiveness_money:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00673605 (tol = 0.002, component 1)

Own mate value

long scale
model %>%
  test_moderator_correction("MV", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83072 83179 -41523 83046 NA NA NA
with_mod 15 83071 83194 -41520 83041 5.366 2 0.06837
with_mod_ranef 24 82644 82840 -41298 82596 445.2 9 3.04e-90

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 83043 83150 -41509 83017 NA NA NA
with_mod 15 83042 83165 -41506 83012 4.688 2 0.09596
with_mod_ranef 24 82615 82812 -41284 82567 445 9 3.295e-90

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + (1 | person) +  
    MV_short + included + fertile + menstruation:included + MV_short:included +  
    MV_short:fertile + included:fertile + MV_short:included:fertile
   Data: diary

REML criterion at convergence: 83068

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.478 -0.679 -0.029  0.666  3.798 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.715    0.845   
 Residual             1.189    1.090   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                        Estimate  Std. Error          df t value     Pr(>|t|)    
(Intercept)                              2.82855     0.20927  1159.51534   13.52      < 2e-16 ***
menstruationpre                         -0.06728     0.03327 26004.94024   -2.02        0.043 *  
menstruationyes                         -0.18712     0.03134 26118.51283   -5.97 0.0000000024 ***
fertile_mean                             0.01988     0.34341  1521.37966    0.06        0.954    
MV_short                                 0.17396     0.05281  1124.90404    3.29        0.001 ** 
includedhorm_contra                      0.24688     0.25578  1121.85012    0.97        0.335    
fertile                                  0.04225     0.25703 26129.22200    0.16        0.869    
menstruationpre:includedhorm_contra     -0.00353     0.04271 26001.81894   -0.08        0.934    
menstruationyes:includedhorm_contra      0.03685     0.04109 26094.93924    0.90        0.370    
MV_short:includedhorm_contra             0.01871     0.06792  1107.70715    0.28        0.783    
MV_short:fertile                         0.05925     0.06711 26146.88596    0.88        0.377    
includedhorm_contra:fertile              0.12422     0.32485 26083.65033    0.38        0.702    
MV_short:includedhorm_contra:fertile    -0.16518     0.08587 26098.56926   -1.92        0.054 .  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: in_pair_desire ~ menstruation + fertile_mean + MV_short + included +  
    fertile + (1 + menstruation + fertile | person) + menstruation:included +  
    MV_short:included + MV_short:fertile + included:fertile +      MV_short:included:fertile
   Data: diary

REML criterion at convergence: 82618

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-3.670 -0.660 -0.034  0.645  3.659 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.806    0.898                     
          menstruationpre 0.197    0.444    -0.22            
          menstruationyes 0.243    0.493    -0.23  0.26      
          fertile         1.059    1.029    -0.30  0.35  0.26
 Residual                 1.107    1.052                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                        Estimate  Std. Error          df t value  Pr(>|t|)    
(Intercept)                             2.815724    0.214455 1077.109620   13.13   < 2e-16 ***
menstruationpre                        -0.063765    0.041418  765.845288   -1.54   0.12408    
menstruationyes                        -0.189138    0.041420  752.385506   -4.57 0.0000058 ***
fertile_mean                            0.000471    0.348617 1555.034459    0.00   0.99892    
MV_short                                0.179212    0.054073 1011.594158    3.31   0.00095 ***
includedhorm_contra                     0.273387    0.262248 1018.525171    1.04   0.29744    
fertile                                 0.094949    0.348272  862.884532    0.27   0.78520    
menstruationpre:includedhorm_contra     0.008292    0.053159  762.530211    0.16   0.87608    
menstruationyes:includedhorm_contra     0.047172    0.053908  776.921315    0.88   0.38182    
MV_short:includedhorm_contra            0.008905    0.069514  999.413055    0.13   0.89809    
MV_short:fertile                        0.044078    0.091007  848.641477    0.48   0.62827    
includedhorm_contra:fertile             0.038420    0.439646  858.264830    0.09   0.93038    
MV_short:includedhorm_contra:fertile   -0.135084    0.116352  843.110462   -1.16   0.24597    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Male mate retention

do_moderators(models$partner_mate_retention, diary)

Partner’s physical attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s physical attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_physical", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66883 66990 -33429 66857 NA NA NA
with_mod 15 66886 67009 -33428 66856 1.182 2 0.5538
with_mod_ranef 24 66716 66913 -33334 66668 187.7 9 1.225e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_physical + included + fertile + menstruation:included +  
    partner_attractiveness_physical:included + partner_attractiveness_physical:fertile +  
    included:fertile + partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 66923

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.695 -0.609  0.008  0.612  4.869 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.523    0.723   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value
(Intercept)                                                     1.8341     0.1920  1160.1620    9.55
menstruationpre                                                -0.0327     0.0245 25937.1624   -1.34
menstruationyes                                                -0.0614     0.0231 26036.8755   -2.66
fertile_mean                                                   -0.1372     0.2828  1465.2842   -0.49
partner_attractiveness_physical                                 0.1240     0.0230  1138.3757    5.39
includedhorm_contra                                             0.6174     0.2514  1128.1988    2.46
fertile                                                         0.1993     0.2156 26072.6609    0.92
menstruationpre:includedhorm_contra                             0.0216     0.0314 25934.0542    0.69
menstruationyes:includedhorm_contra                             0.0141     0.0302 26016.7176    0.47
partner_attractiveness_physical:includedhorm_contra            -0.0687     0.0307  1118.3565   -2.24
partner_attractiveness_physical:fertile                        -0.0204     0.0264 26082.5946   -0.77
includedhorm_contra:fertile                                    -0.1203     0.2852 26031.3570   -0.42
partner_attractiveness_physical:includedhorm_contra:fertile     0.0035     0.0345 26030.2536    0.10
                                                               Pr(>|t|)    
(Intercept)                                                     < 2e-16 ***
menstruationpre                                                  0.1818    
menstruationyes                                                  0.0078 ** 
fertile_mean                                                     0.6276    
partner_attractiveness_physical                             0.000000087 ***
includedhorm_contra                                              0.0142 *  
fertile                                                          0.3552    
menstruationpre:includedhorm_contra                              0.4919    
menstruationyes:includedhorm_contra                              0.6418    
partner_attractiveness_physical:includedhorm_contra              0.0252 *  
partner_attractiveness_physical:fertile                          0.4396    
includedhorm_contra:fertile                                      0.6733    
partner_attractiveness_physical:includedhorm_contra:fertile      0.9192    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_physical +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_physical:included +  
    partner_attractiveness_physical:fertile + included:fertile +  
    partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 66732

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.758 -0.593  0.008  0.593  4.998 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5254   0.725                     
          menstruationpre 0.0735   0.271    -0.08            
          menstruationyes 0.0726   0.270    -0.16  0.53      
          fertile         0.3655   0.605    -0.09  0.29  0.52
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                             Estimate Std. Error        df t value
(Intercept)                                                    1.8177     0.1918 1085.4881    9.48
menstruationpre                                               -0.0260     0.0289  747.7723   -0.90
menstruationyes                                               -0.0608     0.0275  762.5145   -2.21
fertile_mean                                                  -0.1315     0.2857 1478.2413   -0.46
partner_attractiveness_physical                                0.1258     0.0230 1051.3753    5.47
includedhorm_contra                                            0.6632     0.2509 1042.9545    2.64
fertile                                                        0.2891     0.2649  870.8757    1.09
menstruationpre:includedhorm_contra                            0.0190     0.0371  745.3352    0.51
menstruationyes:includedhorm_contra                            0.0115     0.0358  795.4779    0.32
partner_attractiveness_physical:includedhorm_contra           -0.0741     0.0306 1034.1754   -2.42
partner_attractiveness_physical:fertile                       -0.0300     0.0325  852.7340   -0.92
includedhorm_contra:fertile                                   -0.3011     0.3507  847.7383   -0.86
partner_attractiveness_physical:includedhorm_contra:fertile    0.0250     0.0424  828.0913    0.59
                                                               Pr(>|t|)    
(Intercept)                                                     < 2e-16 ***
menstruationpre                                                  0.3682    
menstruationyes                                                  0.0273 *  
fertile_mean                                                     0.6454    
partner_attractiveness_physical                             0.000000056 ***
includedhorm_contra                                              0.0083 ** 
fertile                                                          0.2755    
menstruationpre:includedhorm_contra                              0.6076    
menstruationyes:includedhorm_contra                              0.7486    
partner_attractiveness_physical:includedhorm_contra              0.0156 *  
partner_attractiveness_physical:fertile                          0.3558    
includedhorm_contra:fertile                                      0.3908    
partner_attractiveness_physical:includedhorm_contra:fertile      0.5558    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00405364 (tol = 0.002, component 1)

Partner’s short-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s short-term attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_shortterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66890 66996 -33432 66864 NA NA NA
with_mod 15 66892 67015 -33431 66862 1.292 2 0.5242
with_mod_ranef 24 66722 66919 -33337 66674 187.9 9 1.152e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_shortterm + included + fertile + menstruation:included +  
    partner_attractiveness_shortterm:included + partner_attractiveness_shortterm:fertile +  
    included:fertile + partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 66925

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.687 -0.608  0.010  0.612  4.872 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.526    0.725   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                               Estimate Std. Error         df t value
(Intercept)                                                      2.8337     0.0622  1345.8341   45.55
menstruationpre                                                 -0.0322     0.0245 25936.7567   -1.32
menstruationyes                                                 -0.0611     0.0231 26036.9269   -2.65
fertile_mean                                                    -0.1323     0.2834  1463.4959   -0.47
partner_attractiveness_shortterm                                 0.1557     0.0363  1125.8514    4.29
includedhorm_contra                                              0.0579     0.0511  1297.4514    1.13
fertile                                                          0.0326     0.0496 25929.8733    0.66
menstruationpre:includedhorm_contra                              0.0210     0.0314 25933.1600    0.67
menstruationyes:includedhorm_contra                              0.0138     0.0302 26015.9828    0.46
partner_attractiveness_shortterm:includedhorm_contra            -0.0465     0.0489  1105.3111   -0.95
partner_attractiveness_shortterm:fertile                        -0.0465     0.0415 26079.8026   -1.12
includedhorm_contra:fertile                                     -0.0940     0.0629 26043.7311   -1.49
partner_attractiveness_shortterm:includedhorm_contra:fertile     0.0529     0.0544 26012.8731    0.97
                                                             Pr(>|t|)    
(Intercept)                                                   < 2e-16 ***
menstruationpre                                                 0.188    
menstruationyes                                                 0.008 ** 
fertile_mean                                                    0.641    
partner_attractiveness_shortterm                             0.000019 ***
includedhorm_contra                                             0.258    
fertile                                                         0.511    
menstruationpre:includedhorm_contra                             0.504    
menstruationyes:includedhorm_contra                             0.648    
partner_attractiveness_shortterm:includedhorm_contra            0.342    
partner_attractiveness_shortterm:fertile                        0.262    
includedhorm_contra:fertile                                     0.135    
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.331    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_shortterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_shortterm:fertile + included:fertile +  
    partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 66734

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.751 -0.594  0.007  0.595  5.003 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5279   0.727                     
          menstruationpre 0.0737   0.272    -0.08            
          menstruationyes 0.0727   0.270    -0.15  0.53      
          fertile         0.3648   0.604    -0.09  0.29  0.53
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error        df t value Pr(>|t|)
(Intercept)                                                     2.8311     0.0625 1321.6712   45.28  < 2e-16
menstruationpre                                                -0.0254     0.0289  747.9121   -0.88    0.381
menstruationyes                                                -0.0602     0.0275  761.7317   -2.19    0.029
fertile_mean                                                   -0.1273     0.2863 1475.7718   -0.44    0.657
partner_attractiveness_shortterm                                0.1571     0.0362 1041.9740    4.34 0.000016
includedhorm_contra                                             0.0604     0.0514 1014.6529    1.17    0.240
fertile                                                         0.0458     0.0599  849.8246    0.76    0.445
menstruationpre:includedhorm_contra                             0.0183     0.0371  745.4775    0.49    0.622
menstruationyes:includedhorm_contra                             0.0108     0.0358  794.6765    0.30    0.763
partner_attractiveness_shortterm:includedhorm_contra           -0.0523     0.0488 1023.2657   -1.07    0.285
partner_attractiveness_shortterm:fertile                       -0.0544     0.0512  827.5455   -1.06    0.288
includedhorm_contra:fertile                                    -0.1016     0.0763  828.9071   -1.33    0.183
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.0740     0.0671  809.5963    1.10    0.270
                                                                
(Intercept)                                                  ***
menstruationpre                                                 
menstruationyes                                              *  
fertile_mean                                                    
partner_attractiveness_shortterm                             ***
includedhorm_contra                                             
fertile                                                         
menstruationpre:includedhorm_contra                             
menstruationyes:includedhorm_contra                             
partner_attractiveness_shortterm:includedhorm_contra            
partner_attractiveness_shortterm:fertile                        
includedhorm_contra:fertile                                     
partner_attractiveness_shortterm:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0163543 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) top-right (high LT, low ST), then top-left (low LT, low ST), then bottom-left (low LT, high ST), then bottom-right (high LT/ST).

add_main = update.formula(formula(model), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * included + partner_attractiveness_shortterm * included + partner_attractiveness_longterm * partner_attractiveness_shortterm"))) # reorder so that the triptych looks nice
add_mod_formula = update.formula(update.formula(formula(model), new = . ~ . - included * fertile), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included"))) # reorder so that the triptych looks nice
add_mod_formula_ranef = update.formula(update.formula(formula(model), new = . ~ . - included * fertile - (1 | person)), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included + (1 + menstruation + fertile | person)"))) # reorder so that the triptych looks nice

update(model, formula = add_main) -> with_main
update(model, formula = add_mod_formula) -> with_mod
update(model, formula = add_mod_formula_ranef) -> with_mod_ranef
cat(pander(anova(with_main, with_mod, with_mod_ranef)))
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 16 66872 67003 -33420 66840 NA NA NA
with_mod 23 66878 67066 -33416 66832 8.79 7 0.2681
with_mod_ranef 32 66710 66972 -33323 66646 186 9 2.769e-35
effs = allEffects(with_mod)
effs = data.frame(effs$`partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included`) %>% 
  filter(partner_attractiveness_longterm %in% c(-3,-0.4, 0.8),partner_attractiveness_shortterm %in% c(-2,0.4, 2))
ggplot(effs, aes(fertile, fit, ymin = lower, ymax = upper, color = included)) + 
  facet_grid(partner_attractiveness_shortterm ~ partner_attractiveness_longterm) +
  geom_smooth(stat='identity') +
  scale_color_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  scale_fill_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  ggtitle("Moderation", "top-to-bottom: short-term,\nleft-to-right: long-term attractiveness of the partner")+
  ylab(names(model@frame)[1])

print_summary(with_mod)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_longterm + fertile + partner_attractiveness_shortterm +  
    included + menstruation:included + partner_attractiveness_longterm:fertile +  
    partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 66932

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.686 -0.608  0.008  0.610  4.879 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.515    0.718   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                                                Estimate
(Intercept)                                                                                      2.81701
menstruationpre                                                                                 -0.03219
menstruationyes                                                                                 -0.06046
fertile_mean                                                                                    -0.06556
partner_attractiveness_longterm                                                                  0.14712
fertile                                                                                          0.03687
partner_attractiveness_shortterm                                                                 0.09463
includedhorm_contra                                                                              0.06543
menstruationpre:includedhorm_contra                                                              0.02161
menstruationyes:includedhorm_contra                                                              0.01370
partner_attractiveness_longterm:fertile                                                          0.02526
partner_attractiveness_longterm:partner_attractiveness_shortterm                                -0.00182
fertile:partner_attractiveness_shortterm                                                        -0.06137
partner_attractiveness_longterm:includedhorm_contra                                             -0.05930
fertile:includedhorm_contra                                                                     -0.11964
partner_attractiveness_shortterm:includedhorm_contra                                            -0.00456
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        -0.01637
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.03147
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            -0.01948
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.04696
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.11389
                                                                                              Std. Error
(Intercept)                                                                                      0.06334
menstruationpre                                                                                  0.02447
menstruationyes                                                                                  0.02309
fertile_mean                                                                                     0.28171
partner_attractiveness_longterm                                                                  0.04348
fertile                                                                                          0.05170
partner_attractiveness_shortterm                                                                 0.04005
includedhorm_contra                                                                              0.05311
menstruationpre:includedhorm_contra                                                              0.03141
menstruationyes:includedhorm_contra                                                              0.03025
partner_attractiveness_longterm:fertile                                                          0.05000
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.03201
fertile:partner_attractiveness_shortterm                                                         0.04532
partner_attractiveness_longterm:includedhorm_contra                                              0.05544
fertile:includedhorm_contra                                                                      0.06518
partner_attractiveness_shortterm:includedhorm_contra                                             0.05223
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                         0.03703
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.06340
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra             0.04997
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.05810
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.05732
                                                                                                      df
(Intercept)                                                                                   1329.38718
menstruationpre                                                                              25935.94830
menstruationyes                                                                              26037.34810
fertile_mean                                                                                  1459.79881
partner_attractiveness_longterm                                                               1116.36556
fertile                                                                                      25929.16868
partner_attractiveness_shortterm                                                              1103.84687
includedhorm_contra                                                                           1272.24094
menstruationpre:includedhorm_contra                                                          25932.62200
menstruationyes:includedhorm_contra                                                          26016.12718
partner_attractiveness_longterm:fertile                                                      26139.15718
partner_attractiveness_longterm:partner_attractiveness_shortterm                              1112.03913
fertile:partner_attractiveness_shortterm                                                     26040.12591
partner_attractiveness_longterm:includedhorm_contra                                           1112.35120
fertile:includedhorm_contra                                                                  26038.10505
partner_attractiveness_shortterm:includedhorm_contra                                          1092.11509
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                     26057.46110
partner_attractiveness_longterm:fertile:includedhorm_contra                                  26095.16271
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra          1109.80112
fertile:partner_attractiveness_shortterm:includedhorm_contra                                 25997.47383
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra 26005.24438
                                                                                             t value Pr(>|t|)
(Intercept)                                                                                    44.47  < 2e-16
menstruationpre                                                                                -1.32  0.18833
menstruationyes                                                                                -2.62  0.00883
fertile_mean                                                                                   -0.23  0.81600
partner_attractiveness_longterm                                                                 3.38  0.00074
fertile                                                                                         0.71  0.47573
partner_attractiveness_shortterm                                                                2.36  0.01831
includedhorm_contra                                                                             1.23  0.21820
menstruationpre:includedhorm_contra                                                             0.69  0.49152
menstruationyes:includedhorm_contra                                                             0.45  0.65055
partner_attractiveness_longterm:fertile                                                         0.51  0.61337
partner_attractiveness_longterm:partner_attractiveness_shortterm                               -0.06  0.95467
fertile:partner_attractiveness_shortterm                                                       -1.35  0.17568
partner_attractiveness_longterm:includedhorm_contra                                            -1.07  0.28504
fertile:includedhorm_contra                                                                    -1.84  0.06644
partner_attractiveness_shortterm:includedhorm_contra                                           -0.09  0.93041
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.44  0.65841
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.50  0.61964
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -0.39  0.69668
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.81  0.41893
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    1.99  0.04694
                                                                                                
(Intercept)                                                                                  ***
menstruationpre                                                                                 
menstruationyes                                                                              ** 
fertile_mean                                                                                    
partner_attractiveness_longterm                                                              ***
fertile                                                                                         
partner_attractiveness_shortterm                                                             *  
includedhorm_contra                                                                             
menstruationpre:includedhorm_contra                                                             
menstruationyes:includedhorm_contra                                                             
partner_attractiveness_longterm:fertile                                                         
partner_attractiveness_longterm:partner_attractiveness_shortterm                                
fertile:partner_attractiveness_shortterm                                                        
partner_attractiveness_longterm:includedhorm_contra                                             
fertile:includedhorm_contra                                                                  .  
partner_attractiveness_shortterm:includedhorm_contra                                            
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        
partner_attractiveness_longterm:fertile:includedhorm_contra                                     
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
print_summary(with_mod_ranef)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    fertile + partner_attractiveness_shortterm + included + (1 +  
    menstruation + fertile | person) + menstruation:included +  
    partner_attractiveness_longterm:fertile + partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 66742

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.746 -0.595  0.005  0.594  5.007 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5161   0.718                     
          menstruationpre 0.0740   0.272    -0.06            
          menstruationyes 0.0732   0.271    -0.14  0.53      
          fertile         0.3656   0.605    -0.10  0.29  0.53
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                                                  Estimate
(Intercept)                                                                                     2.81358451
menstruationpre                                                                                -0.02544781
menstruationyes                                                                                -0.06006028
fertile_mean                                                                                   -0.06357177
partner_attractiveness_longterm                                                                 0.15499421
fertile                                                                                         0.05609254
partner_attractiveness_shortterm                                                                0.09353737
includedhorm_contra                                                                             0.06914020
menstruationpre:includedhorm_contra                                                             0.01886201
menstruationyes:includedhorm_contra                                                             0.01105605
partner_attractiveness_longterm:fertile                                                         0.00504185
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.00000352
fertile:partner_attractiveness_shortterm                                                       -0.06624387
partner_attractiveness_longterm:includedhorm_contra                                            -0.06833697
fertile:includedhorm_contra                                                                    -0.13371310
partner_attractiveness_shortterm:includedhorm_contra                                           -0.00764411
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.02747874
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.05810566
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -0.02039963
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.06477492
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.12449627
                                                                                                Std. Error
(Intercept)                                                                                     0.06360826
menstruationpre                                                                                 0.02892046
menstruationyes                                                                                 0.02753097
fertile_mean                                                                                    0.28446497
partner_attractiveness_longterm                                                                 0.04352063
fertile                                                                                         0.06246909
partner_attractiveness_shortterm                                                                0.04003489
includedhorm_contra                                                                             0.05329522
menstruationpre:includedhorm_contra                                                             0.03712349
menstruationyes:includedhorm_contra                                                             0.03586403
partner_attractiveness_longterm:fertile                                                         0.06064793
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.03200681
fertile:partner_attractiveness_shortterm                                                        0.05572460
partner_attractiveness_longterm:includedhorm_contra                                             0.05545234
fertile:includedhorm_contra                                                                     0.07899907
partner_attractiveness_shortterm:includedhorm_contra                                            0.05217589
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        0.04548505
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.07739572
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.04991898
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.07148705
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.07022639
                                                                                                        df
(Intercept)                                                                                  1306.62558150
menstruationpre                                                                               747.75283825
menstruationyes                                                                               763.42541476
fertile_mean                                                                                 1472.44898992
partner_attractiveness_longterm                                                              1027.35094189
fertile                                                                                       883.40416982
partner_attractiveness_shortterm                                                             1021.27740527
includedhorm_contra                                                                          1020.12015471
menstruationpre:includedhorm_contra                                                           745.33288485
menstruationyes:includedhorm_contra                                                           795.81487088
partner_attractiveness_longterm:fertile                                                       877.20304036
partner_attractiveness_longterm:partner_attractiveness_shortterm                             1023.44466758
fertile:partner_attractiveness_shortterm                                                      794.47463356
partner_attractiveness_longterm:includedhorm_contra                                          1025.61202126
fertile:includedhorm_contra                                                                   854.12471380
partner_attractiveness_shortterm:includedhorm_contra                                         1010.27380297
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                      885.57650363
partner_attractiveness_longterm:fertile:includedhorm_contra                                   848.35958116
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra         1025.22480291
fertile:partner_attractiveness_shortterm:includedhorm_contra                                  791.48485571
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra  862.44932000
                                                                                             t value Pr(>|t|)
(Intercept)                                                                                    44.23  < 2e-16
menstruationpre                                                                                -0.88  0.37918
menstruationyes                                                                                -2.18  0.02945
fertile_mean                                                                                   -0.22  0.82319
partner_attractiveness_longterm                                                                 3.56  0.00039
fertile                                                                                         0.90  0.36947
partner_attractiveness_shortterm                                                                2.34  0.01966
includedhorm_contra                                                                             1.30  0.19482
menstruationpre:includedhorm_contra                                                             0.51  0.61154
menstruationyes:includedhorm_contra                                                             0.31  0.75795
partner_attractiveness_longterm:fertile                                                         0.08  0.93376
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.00  0.99991
fertile:partner_attractiveness_shortterm                                                       -1.19  0.23488
partner_attractiveness_longterm:includedhorm_contra                                            -1.23  0.21810
fertile:includedhorm_contra                                                                    -1.69  0.09090
partner_attractiveness_shortterm:includedhorm_contra                                           -0.15  0.88355
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.60  0.54591
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.75  0.45300
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -0.41  0.68288
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.91  0.36515
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    1.77  0.07662
                                                                                                
(Intercept)                                                                                  ***
menstruationpre                                                                                 
menstruationyes                                                                              *  
fertile_mean                                                                                    
partner_attractiveness_longterm                                                              ***
fertile                                                                                         
partner_attractiveness_shortterm                                                             *  
includedhorm_contra                                                                             
menstruationpre:includedhorm_contra                                                             
menstruationyes:includedhorm_contra                                                             
partner_attractiveness_longterm:fertile                                                         
partner_attractiveness_longterm:partner_attractiveness_shortterm                                
fertile:partner_attractiveness_shortterm                                                        
partner_attractiveness_longterm:includedhorm_contra                                             
fertile:includedhorm_contra                                                                  .  
partner_attractiveness_shortterm:includedhorm_contra                                            
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        
partner_attractiveness_longterm:fertile:includedhorm_contra                                     
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra .  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00602631 (tol = 0.002, component 1)

Relative attractiveness to self

whole MV and MV_P scale

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s relative attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66917 67024 -33446 66891 NA NA NA
with_mod 15 66911 67034 -33440 66881 10.39 2 0.005533
with_mod_ranef 24 66743 66940 -33348 66695 185.2 9 4.055e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_rel_to_self + included + fertile +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 66944

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.688 -0.606  0.008  0.613  4.871 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.540    0.735   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error         df t value
(Intercept)                                                        2.8163     0.0628  1339.5782   44.84
menstruationpre                                                   -0.0308     0.0245 25930.0045   -1.26
menstruationyes                                                   -0.0599     0.0231 26028.7573   -2.60
fertile_mean                                                      -0.1112     0.2864  1453.7422   -0.39
partner_attractiveness_rel_to_self                                 0.0498     0.0374  1105.6604    1.33
includedhorm_contra                                                0.0848     0.0515  1289.9006    1.65
fertile                                                            0.0256     0.0495 25918.9598    0.52
menstruationpre:includedhorm_contra                                0.0196     0.0314 25926.0268    0.63
menstruationyes:includedhorm_contra                                0.0129     0.0302 26008.5600    0.43
partner_attractiveness_rel_to_self:includedhorm_contra            -0.0779     0.0495  1103.9086   -1.57
partner_attractiveness_rel_to_self:fertile                        -0.1324     0.0416 25993.2922   -3.19
includedhorm_contra:fertile                                       -0.0867     0.0627 26033.0549   -1.38
partner_attractiveness_rel_to_self:includedhorm_contra:fertile     0.1499     0.0546 25982.3324    2.75
                                                               Pr(>|t|)    
(Intercept)                                                      <2e-16 ***
menstruationpre                                                  0.2083    
menstruationyes                                                  0.0094 ** 
fertile_mean                                                     0.6979    
partner_attractiveness_rel_to_self                               0.1832    
includedhorm_contra                                              0.1001    
fertile                                                          0.6046    
menstruationpre:includedhorm_contra                              0.5318    
menstruationyes:includedhorm_contra                              0.6691    
partner_attractiveness_rel_to_self:includedhorm_contra           0.1158    
partner_attractiveness_rel_to_self:fertile                       0.0014 ** 
includedhorm_contra:fertile                                      0.1669    
partner_attractiveness_rel_to_self:includedhorm_contra:fertile   0.0060 ** 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 66755

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.751 -0.594  0.005  0.597  4.999 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5417   0.736                     
          menstruationpre 0.0736   0.271    -0.07            
          menstruationyes 0.0730   0.270    -0.15  0.53      
          fertile         0.3589   0.599    -0.09  0.29  0.54
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error         df t value
(Intercept)                                                       2.81369    0.06311 1317.07446   44.59
menstruationpre                                                  -0.02415    0.02890  748.11260   -0.84
menstruationyes                                                  -0.05873    0.02751  761.49732   -2.14
fertile_mean                                                     -0.10651    0.28925 1464.89207   -0.37
partner_attractiveness_rel_to_self                                0.05137    0.03730 1022.09252    1.38
includedhorm_contra                                               0.08687    0.05177 1012.54724    1.68
fertile                                                           0.03900    0.05975  847.09092    0.65
menstruationpre:includedhorm_contra                               0.01722    0.03710  745.70536    0.46
menstruationyes:includedhorm_contra                               0.00975    0.03584  794.55785    0.27
partner_attractiveness_rel_to_self:includedhorm_contra           -0.08031    0.04937 1021.56099   -1.63
partner_attractiveness_rel_to_self:fertile                       -0.13639    0.05065  842.65597   -2.69
includedhorm_contra:fertile                                      -0.09312    0.07583  823.37707   -1.23
partner_attractiveness_rel_to_self:includedhorm_contra:fertile    0.16042    0.06669  829.24317    2.41
                                                               Pr(>|t|)    
(Intercept)                                                      <2e-16 ***
menstruationpre                                                  0.4037    
menstruationyes                                                  0.0331 *  
fertile_mean                                                     0.7127    
partner_attractiveness_rel_to_self                               0.1687    
includedhorm_contra                                              0.0936 .  
fertile                                                          0.5141    
menstruationpre:includedhorm_contra                              0.6426    
menstruationyes:includedhorm_contra                              0.7857    
partner_attractiveness_rel_to_self:includedhorm_contra           0.1041    
partner_attractiveness_rel_to_self:fertile                       0.0072 ** 
includedhorm_contra:fertile                                      0.2198    
partner_attractiveness_rel_to_self:includedhorm_contra:fertile   0.0164 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0026456 (tol = 0.002, component 1)
three item subsets of the MV scales
model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self_MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66917 67024 -33446 66891 NA NA NA
with_mod 15 66910 67033 -33440 66880 11.01 2 0.004073
with_mod_ranef 24 66743 66940 -33348 66695 185.1 9 4.272e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_rel_to_self_MV_short + included +  
    fertile + menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 66943

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.690 -0.605  0.008  0.612  4.871 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.540    0.735   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                          Estimate Std. Error         df
(Intercept)                                                                 2.8152     0.0628  1339.7972
menstruationpre                                                            -0.0308     0.0245 25929.7824
menstruationyes                                                            -0.0598     0.0231 26029.0106
fertile_mean                                                               -0.1081     0.2865  1453.5780
partner_attractiveness_rel_to_self_MV_short                                 0.0543     0.0374  1107.2297
includedhorm_contra                                                         0.0848     0.0515  1290.3468
fertile                                                                     0.0268     0.0495 25920.1005
menstruationpre:includedhorm_contra                                         0.0197     0.0314 25925.7825
menstruationyes:includedhorm_contra                                         0.0128     0.0302 26008.5501
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra            -0.0764     0.0494  1102.7631
partner_attractiveness_rel_to_self_MV_short:fertile                        -0.1368     0.0415 25982.8667
includedhorm_contra:fertile                                                -0.0875     0.0627 26033.7595
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile     0.1504     0.0545 25974.3997
                                                                        t value Pr(>|t|)    
(Intercept)                                                               44.86  < 2e-16 ***
menstruationpre                                                           -1.26  0.20834    
menstruationyes                                                           -2.59  0.00955 ** 
fertile_mean                                                              -0.38  0.70592    
partner_attractiveness_rel_to_self_MV_short                                1.45  0.14700    
includedhorm_contra                                                        1.65  0.09965 .  
fertile                                                                    0.54  0.58844    
menstruationpre:includedhorm_contra                                        0.63  0.53098    
menstruationyes:includedhorm_contra                                        0.42  0.67285    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -1.55  0.12193    
partner_attractiveness_rel_to_self_MV_short:fertile                       -3.29  0.00099 ***
includedhorm_contra:fertile                                               -1.40  0.16262    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    2.76  0.00576 ** 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: 
partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self_MV_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 66755

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.752 -0.595  0.005  0.596  5.000 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5421   0.736                     
          menstruationpre 0.0736   0.271    -0.07            
          menstruationyes 0.0731   0.270    -0.15  0.53      
          fertile         0.3609   0.601    -0.09  0.29  0.54
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                          Estimate Std. Error         df
(Intercept)                                                                2.81250    0.06307 1317.10430
menstruationpre                                                           -0.02412    0.02889  748.29702
menstruationyes                                                           -0.05862    0.02751  762.04202
fertile_mean                                                              -0.10346    0.28928 1464.78652
partner_attractiveness_rel_to_self_MV_short                                0.05507    0.03730 1024.19675
includedhorm_contra                                                        0.08699    0.05173 1011.95734
fertile                                                                    0.04022    0.05975  847.50292
menstruationpre:includedhorm_contra                                        0.01722    0.03709  745.89363
menstruationyes:includedhorm_contra                                        0.00963    0.03584  795.12576
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -0.07798    0.04923 1021.09593
partner_attractiveness_rel_to_self_MV_short:fertile                       -0.14204    0.05066  838.77596
includedhorm_contra:fertile                                               -0.09401    0.07585  823.65171
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    0.16404    0.06657  829.19472
                                                                        t value Pr(>|t|)    
(Intercept)                                                               44.59   <2e-16 ***
menstruationpre                                                           -0.83   0.4040    
menstruationyes                                                           -2.13   0.0334 *  
fertile_mean                                                              -0.36   0.7207    
partner_attractiveness_rel_to_self_MV_short                                1.48   0.1401    
includedhorm_contra                                                        1.68   0.0929 .  
fertile                                                                    0.67   0.5011    
menstruationpre:includedhorm_contra                                        0.46   0.6425    
menstruationyes:includedhorm_contra                                        0.27   0.7883    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -1.58   0.1135    
partner_attractiveness_rel_to_self_MV_short:fertile                       -2.80   0.0052 ** 
includedhorm_contra:fertile                                               -1.24   0.2155    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    2.46   0.0139 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0132874 (tol = 0.002, component 1)

Partner’s shortterm attractiveness, alternative specification

model %>%
  test_moderator_correction("partner_attractiveness_shortterm_v2", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66897 67003 -33435 66871 NA NA NA
with_mod 15 66898 67021 -33434 66868 2.666 2 0.2637
with_mod_ranef 24 66729 66925 -33340 66681 187.8 9 1.209e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_shortterm_v2 + included + fertile +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 66931

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.694 -0.609  0.010  0.613  4.869 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.530    0.728   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                  Estimate Std. Error         df t value
(Intercept)                                                         2.8267     0.0623  1344.8964   45.38
menstruationpre                                                    -0.0326     0.0245 25933.9499   -1.33
menstruationyes                                                    -0.0616     0.0231 26032.9503   -2.67
fertile_mean                                                       -0.1409     0.2844  1461.3285   -0.50
partner_attractiveness_shortterm_v2                                 0.1612     0.0366  1121.2370    4.40
includedhorm_contra                                                 0.0753     0.0511  1297.6633    1.47
fertile                                                             0.0340     0.0494 25925.9958    0.69
menstruationpre:includedhorm_contra                                 0.0214     0.0314 25930.7614    0.68
menstruationyes:includedhorm_contra                                 0.0143     0.0302 26012.5505    0.47
partner_attractiveness_shortterm_v2:includedhorm_contra            -0.0974     0.0487  1106.2797   -2.00
partner_attractiveness_shortterm_v2:fertile                        -0.0674     0.0413 26040.9725   -1.63
includedhorm_contra:fertile                                        -0.0943     0.0627 26040.7118   -1.51
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.0679     0.0538 26002.2550    1.26
                                                                Pr(>|t|)    
(Intercept)                                                      < 2e-16 ***
menstruationpre                                                   0.1834    
menstruationyes                                                   0.0076 ** 
fertile_mean                                                      0.6203    
partner_attractiveness_shortterm_v2                             0.000012 ***
includedhorm_contra                                               0.1406    
fertile                                                           0.4913    
menstruationpre:includedhorm_contra                               0.4953    
menstruationyes:includedhorm_contra                               0.6367    
partner_attractiveness_shortterm_v2:includedhorm_contra           0.0456 *  
partner_attractiveness_shortterm_v2:fertile                       0.1027    
includedhorm_contra:fertile                                       0.1322    
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile   0.2066    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_shortterm_v2 +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 66741

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.758 -0.594  0.006  0.596  5.000 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5327   0.730                     
          menstruationpre 0.0738   0.272    -0.08            
          menstruationyes 0.0729   0.270    -0.15  0.53      
          fertile         0.3663   0.605    -0.10  0.29  0.53
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error        df t value
(Intercept)                                                        2.8240     0.0626 1321.5889   45.09
menstruationpre                                                   -0.0259     0.0289  747.9983   -0.90
menstruationyes                                                   -0.0608     0.0275  761.9729   -2.21
fertile_mean                                                      -0.1348     0.2873 1474.0475   -0.47
partner_attractiveness_shortterm_v2                                0.1623     0.0366 1038.2343    4.44
includedhorm_contra                                                0.0775     0.0514 1012.9403    1.51
fertile                                                            0.0471     0.0598  845.4257    0.79
menstruationpre:includedhorm_contra                                0.0190     0.0371  745.5795    0.51
menstruationyes:includedhorm_contra                                0.0115     0.0358  794.9474    0.32
partner_attractiveness_shortterm_v2:includedhorm_contra           -0.1032     0.0486 1024.5696   -2.13
partner_attractiveness_shortterm_v2:fertile                       -0.0790     0.0508  837.5467   -1.55
includedhorm_contra:fertile                                       -0.1011     0.0760  823.3041   -1.33
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile    0.0925     0.0662  813.6576    1.40
                                                                Pr(>|t|)    
(Intercept)                                                      < 2e-16 ***
menstruationpre                                                    0.370    
menstruationyes                                                    0.027 *  
fertile_mean                                                       0.639    
partner_attractiveness_shortterm_v2                              0.00001 ***
includedhorm_contra                                                0.132    
fertile                                                            0.431    
menstruationpre:includedhorm_contra                                0.609    
menstruationyes:includedhorm_contra                                0.749    
partner_attractiveness_shortterm_v2:includedhorm_contra            0.034 *  
partner_attractiveness_shortterm_v2:fertile                        0.120    
includedhorm_contra:fertile                                        0.184    
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile    0.163    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0047563 (tol = 0.002, component 1)

Partner’s global attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_global", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66913 67019 -33443 66887 NA NA NA
with_mod 15 66910 67033 -33440 66880 6.94 2 0.03112
with_mod_ranef 24 66741 66938 -33347 66693 186.7 9 2.052e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_global + included + fertile + menstruation:included +  
    partner_attractiveness_global:included + partner_attractiveness_global:fertile +  
    included:fertile + partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 66943

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.696 -0.609  0.010  0.613  4.873 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.538    0.733   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                            Estimate Std. Error         df t value Pr(>|t|)
(Intercept)                                                   2.8138     0.0626  1341.5859   44.95   <2e-16
menstruationpre                                              -0.0322     0.0245 25930.5592   -1.32   0.1877
menstruationyes                                              -0.0607     0.0231 26029.4659   -2.63   0.0084
fertile_mean                                                 -0.1216     0.2861  1456.2761   -0.43   0.6709
partner_attractiveness_global                                 0.1023     0.0372  1097.1200    2.75   0.0061
includedhorm_contra                                           0.0880     0.0513  1292.0145    1.71   0.0867
fertile                                                       0.0360     0.0494 25922.0100    0.73   0.4660
menstruationpre:includedhorm_contra                           0.0215     0.0314 25926.9924    0.68   0.4937
menstruationyes:includedhorm_contra                           0.0139     0.0302 26009.3698    0.46   0.6452
partner_attractiveness_global:includedhorm_contra            -0.0909     0.0489  1084.8254   -1.86   0.0632
partner_attractiveness_global:fertile                        -0.1006     0.0409 25937.2748   -2.46   0.0140
includedhorm_contra:fertile                                  -0.0963     0.0626 26035.0230   -1.54   0.1239
partner_attractiveness_global:includedhorm_contra:fertile     0.0693     0.0526 25921.7003    1.32   0.1880
                                                             
(Intercept)                                               ***
menstruationpre                                              
menstruationyes                                           ** 
fertile_mean                                                 
partner_attractiveness_global                             ** 
includedhorm_contra                                       .  
fertile                                                      
menstruationpre:includedhorm_contra                          
menstruationyes:includedhorm_contra                          
partner_attractiveness_global:includedhorm_contra         .  
partner_attractiveness_global:fertile                     *  
includedhorm_contra:fertile                                  
partner_attractiveness_global:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_global +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_global:included +  
    partner_attractiveness_global:fertile + included:fertile +  
    partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 66753

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.757 -0.593  0.004  0.596  5.001 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5397   0.735                     
          menstruationpre 0.0738   0.272    -0.07            
          menstruationyes 0.0731   0.270    -0.15  0.53      
          fertile         0.3654   0.605    -0.09  0.30  0.53
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                           Estimate Std. Error        df t value Pr(>|t|)    
(Intercept)                                                  2.8109     0.0629 1318.4310   44.69   <2e-16 ***
menstruationpre                                             -0.0254     0.0289  748.0952   -0.88   0.3798    
menstruationyes                                             -0.0596     0.0275  761.5802   -2.17   0.0306 *  
fertile_mean                                                -0.1160     0.2890 1468.3401   -0.40   0.6882    
partner_attractiveness_global                                0.1039     0.0371 1018.8927    2.80   0.0052 ** 
includedhorm_contra                                          0.0901     0.0515 1010.6658    1.75   0.0808 .  
fertile                                                      0.0499     0.0597  846.6361    0.84   0.4035    
menstruationpre:includedhorm_contra                          0.0187     0.0371  745.6942    0.50   0.6143    
menstruationyes:includedhorm_contra                          0.0107     0.0358  794.6713    0.30   0.7653    
partner_attractiveness_global:includedhorm_contra           -0.0950     0.0487 1007.5232   -1.95   0.0515 .  
partner_attractiveness_global:fertile                       -0.1125     0.0500  845.4425   -2.25   0.0249 *  
includedhorm_contra:fertile                                 -0.1030     0.0759  823.2302   -1.36   0.1752    
partner_attractiveness_global:includedhorm_contra:fertile    0.0907     0.0646  807.7982    1.40   0.1610    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00377843 (tol = 0.002, component 1)

Partner’s longterm attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_longterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66878 66985 -33426 66852 NA NA NA
with_mod 15 66880 67003 -33425 66850 1.892 2 0.3883
with_mod_ranef 24 66710 66907 -33331 66662 188.3 9 9.362e-36

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_longterm + included + fertile + menstruation:included +  
    partner_attractiveness_longterm:included + partner_attractiveness_longterm:fertile +  
    included:fertile + partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 66913

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.688 -0.607  0.011  0.613  4.877 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.519    0.721   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value
(Intercept)                                                     2.8006     0.0617  1349.8500   45.37
menstruationpre                                                -0.0322     0.0245 25938.2339   -1.32
menstruationyes                                                -0.0603     0.0231 26039.5847   -2.61
fertile_mean                                                   -0.0399     0.2823  1463.9495   -0.14
partner_attractiveness_longterm                                 0.1890     0.0373  1145.5003    5.07
includedhorm_contra                                             0.0817     0.0506  1302.0215    1.61
fertile                                                         0.0378     0.0494 25931.6370    0.76
menstruationpre:includedhorm_contra                             0.0214     0.0314 25935.1027    0.68
menstruationyes:includedhorm_contra                             0.0138     0.0302 26018.8566    0.46
partner_attractiveness_longterm:includedhorm_contra            -0.0780     0.0501  1132.2014   -1.56
partner_attractiveness_longterm:fertile                         0.0085     0.0438 26171.5774    0.19
includedhorm_contra:fertile                                    -0.1027     0.0627 26048.5183   -1.64
partner_attractiveness_longterm:includedhorm_contra:fertile     0.0431     0.0579 26108.4660    0.74
                                                              Pr(>|t|)    
(Intercept)                                                    < 2e-16 ***
menstruationpre                                                  0.188    
menstruationyes                                                  0.009 ** 
fertile_mean                                                     0.888    
partner_attractiveness_longterm                             0.00000047 ***
includedhorm_contra                                              0.107    
fertile                                                          0.444    
menstruationpre:includedhorm_contra                              0.496    
menstruationyes:includedhorm_contra                              0.648    
partner_attractiveness_longterm:includedhorm_contra              0.120    
partner_attractiveness_longterm:fertile                          0.846    
includedhorm_contra:fertile                                      0.101    
partner_attractiveness_longterm:includedhorm_contra:fertile      0.456    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_longterm:included +  
    partner_attractiveness_longterm:fertile + included:fertile +  
    partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 66722

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.748 -0.594  0.005  0.594  5.003 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5190   0.720                     
          menstruationpre 0.0737   0.271    -0.05            
          menstruationyes 0.0731   0.270    -0.13  0.53      
          fertile         0.3612   0.601    -0.10  0.28  0.52
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value
(Intercept)                                                    2.79838    0.06196 1324.70663   45.17
menstruationpre                                               -0.02545    0.02891  747.79614   -0.88
menstruationyes                                               -0.05985    0.02752  762.89532   -2.17
fertile_mean                                                  -0.03974    0.28500 1476.16422   -0.14
partner_attractiveness_longterm                                0.19563    0.03730 1054.53809    5.24
includedhorm_contra                                            0.08422    0.05076 1012.64434    1.66
fertile                                                        0.05297    0.05964  848.69361    0.89
menstruationpre:includedhorm_contra                            0.01891    0.03711  745.36032    0.51
menstruationyes:includedhorm_contra                            0.01127    0.03586  795.42162    0.31
partner_attractiveness_longterm:includedhorm_contra           -0.08693    0.05010 1044.94222   -1.74
partner_attractiveness_longterm:fertile                       -0.00801    0.05322  912.45645   -0.15
includedhorm_contra:fertile                                   -0.11101    0.07584  826.72685   -1.46
partner_attractiveness_longterm:includedhorm_contra:fertile    0.06835    0.07083  868.01466    0.96
                                                              Pr(>|t|)    
(Intercept)                                                    < 2e-16 ***
menstruationpre                                                  0.379    
menstruationyes                                                  0.030 *  
fertile_mean                                                     0.889    
partner_attractiveness_longterm                             0.00000019 ***
includedhorm_contra                                              0.097 .  
fertile                                                          0.375    
menstruationpre:includedhorm_contra                              0.610    
menstruationyes:includedhorm_contra                              0.753    
partner_attractiveness_longterm:includedhorm_contra              0.083 .  
partner_attractiveness_longterm:fertile                          0.880    
includedhorm_contra:fertile                                      0.144    
partner_attractiveness_longterm:includedhorm_contra:fertile      0.335    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00938345 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

We also test this specification of the short-term vs. long-term moderator prediction, but we think this is a suboptimal way to test it.

model %>%
  test_moderator_correction("partner_st_vs_lt", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66918 67024 -33446 66892 NA NA NA
with_mod 15 66919 67042 -33445 66889 2.347 2 0.3093
with_mod_ranef 24 66750 66947 -33351 66702 186.8 9 1.935e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_st_vs_lt + included + fertile + menstruation:included +  
    partner_st_vs_lt:included + partner_st_vs_lt:fertile + included:fertile +  
    partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 66953

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.691 -0.608  0.010  0.612  4.870 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.540    0.735   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                               Estimate Std. Error         df t value Pr(>|t|)    
(Intercept)                                      2.8061     0.0630  1335.8604   44.53   <2e-16 ***
menstruationpre                                 -0.0315     0.0245 25929.1127   -1.29    0.199    
menstruationyes                                 -0.0594     0.0231 26028.3618   -2.58    0.010 *  
fertile_mean                                    -0.0895     0.2869  1451.9515   -0.31    0.755    
partner_st_vs_lt                                -0.0198     0.0346  1100.1670   -0.57    0.567    
includedhorm_contra                              0.0898     0.0516  1290.3123    1.74    0.082 .  
fertile                                          0.0317     0.0497 25929.4088    0.64    0.523    
menstruationpre:includedhorm_contra              0.0206     0.0314 25925.5713    0.66    0.511    
menstruationyes:includedhorm_contra              0.0126     0.0302 26007.8255    0.42    0.676    
partner_st_vs_lt:includedhorm_contra             0.0219     0.0441  1092.6255    0.50    0.619    
partner_st_vs_lt:fertile                        -0.0476     0.0383 26042.1234   -1.25    0.213    
includedhorm_contra:fertile                     -0.0904     0.0628 26039.1714   -1.44    0.150    
partner_st_vs_lt:includedhorm_contra:fertile     0.0215     0.0482 26012.0942    0.45    0.656    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_st_vs_lt +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_st_vs_lt:included + partner_st_vs_lt:fertile +  
    included:fertile + partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 66763

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.754 -0.593  0.006  0.593  4.998 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5418   0.736                     
          menstruationpre 0.0735   0.271    -0.07            
          menstruationyes 0.0730   0.270    -0.14  0.53      
          fertile         0.3640   0.603    -0.10  0.29  0.52
 Residual                 0.6163   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                              Estimate Std. Error        df t value Pr(>|t|)    
(Intercept)                                     2.8028     0.0633 1312.1536   44.29   <2e-16 ***
menstruationpre                                -0.0246     0.0289  747.5938   -0.85    0.394    
menstruationyes                                -0.0586     0.0275  760.6223   -2.13    0.033 *  
fertile_mean                                   -0.0850     0.2896 1463.3071   -0.29    0.769    
partner_st_vs_lt                               -0.0235     0.0346 1017.9254   -0.68    0.497    
includedhorm_contra                             0.0926     0.0518 1011.5153    1.79    0.074 .  
fertile                                         0.0467     0.0600  850.8783    0.78    0.437    
menstruationpre:includedhorm_contra             0.0179     0.0371  745.2256    0.48    0.629    
menstruationyes:includedhorm_contra             0.0098     0.0358  793.6591    0.27    0.785    
partner_st_vs_lt:includedhorm_contra            0.0242     0.0440 1011.8460    0.55    0.583    
partner_st_vs_lt:fertile                       -0.0425     0.0468  827.2418   -0.91    0.364    
includedhorm_contra:fertile                    -0.0985     0.0761  825.6138   -1.29    0.196    
partner_st_vs_lt:includedhorm_contra:fertile    0.0203     0.0592  812.2965    0.34    0.732    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00208462 (tol = 0.002, component 1)

Partner’s mate value

long scale
model %>%
  test_moderator_correction("MV_P", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66915 67022 -33445 66889 NA NA NA
with_mod 15 66912 67034 -33441 66882 7.511 2 0.02339
with_mod_ranef 24 66745 66941 -33348 66697 184.9 9 4.771e-35

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_P_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66897 67003 -33435 66871 NA NA NA
with_mod 15 66894 67017 -33432 66864 6.346 2 0.04187
with_mod_ranef 24 66727 66923 -33339 66679 185.5 9 3.586e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    MV_P_short + included + fertile + menstruation:included +  
    MV_P_short:included + MV_P_short:fertile + included:fertile +      MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 66926

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.695 -0.608  0.010  0.611  4.874 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.529    0.727   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                          Estimate  Std. Error          df t value  Pr(>|t|)    
(Intercept)                                2.10205     0.16405  1142.24642   12.81   < 2e-16 ***
menstruationpre                           -0.03260     0.02447 25933.89446   -1.33    0.1827    
menstruationyes                           -0.06075     0.02306 26034.23793   -2.63    0.0084 ** 
fertile_mean                              -0.12751     0.28407  1459.95727   -0.45    0.6536    
MV_P_short                                 0.21114     0.04514  1117.65935    4.68 0.0000033 ***
includedhorm_contra                        0.56096     0.20816  1102.47016    2.69    0.0071 ** 
fertile                                    0.32738     0.17872 25977.90909    1.83    0.0670 .  
menstruationpre:includedhorm_contra        0.02188     0.03141 25930.42369    0.70    0.4861    
menstruationyes:includedhorm_contra        0.01379     0.03023 26013.75534    0.46    0.6484    
MV_P_short:includedhorm_contra            -0.13928     0.06011  1091.81644   -2.32    0.0207 *  
MV_P_short:fertile                        -0.08623     0.05111 25993.95249   -1.69    0.0916 .  
includedhorm_contra:fertile               -0.12398     0.23089 25952.30595   -0.54    0.5913    
MV_P_short:includedhorm_contra:fertile     0.00723     0.06632 25959.02554    0.11    0.9132    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + MV_P_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + MV_P_short:included + MV_P_short:fertile +  
    included:fertile + MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 66737

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.757 -0.595  0.004  0.595  5.001 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5305   0.728                     
          menstruationpre 0.0735   0.271    -0.08            
          menstruationyes 0.0728   0.270    -0.15  0.53      
          fertile         0.3650   0.604    -0.09  0.30  0.53
 Residual                 0.6163   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                        Estimate Std. Error        df t value  Pr(>|t|)    
(Intercept)                               2.1004     0.1637 1075.5592   12.83   < 2e-16 ***
menstruationpre                          -0.0259     0.0289  748.0625   -0.90    0.3704    
menstruationyes                          -0.0597     0.0275  760.9058   -2.17    0.0303 *  
fertile_mean                             -0.1217     0.2871 1472.1782   -0.42    0.6715    
MV_P_short                                0.2108     0.0450 1035.1351    4.68 0.0000032 ***
includedhorm_contra                       0.5767     0.2075 1022.4182    2.78    0.0056 ** 
fertile                                   0.3753     0.2181  883.6412    1.72    0.0857 .  
menstruationpre:includedhorm_contra       0.0192     0.0371  745.6435    0.52    0.6055    
menstruationyes:includedhorm_contra       0.0106     0.0358  793.9984    0.30    0.7668    
MV_P_short:includedhorm_contra           -0.1434     0.0599 1012.6170   -2.39    0.0169 *  
MV_P_short:fertile                       -0.0964     0.0624  861.0649   -1.55    0.1225    
includedhorm_contra:fertile              -0.2327     0.2827  854.9702   -0.82    0.4107    
MV_P_short:includedhorm_contra:fertile    0.0378     0.0812  831.5161    0.47    0.6420    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00215296 (tol = 0.002, component 1)

Partner’s job and income

model %>%
  test_moderator_correction("partner_attractiveness_money", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66917 67024 -33446 66891 NA NA NA
with_mod 15 66921 67044 -33446 66891 0.1106 2 0.9462
with_mod_ranef 24 66752 66948 -33352 66704 187.8 9 1.198e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_money + included + fertile + menstruation:included +  
    partner_attractiveness_money:included + partner_attractiveness_money:fertile +  
    included:fertile + partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 66953

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.692 -0.609  0.010  0.613  4.870 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.541    0.735   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                            Estimate  Std. Error          df t value Pr(>|t|)
(Intercept)                                                  2.94154     0.14894  1126.18901   19.75   <2e-16
menstruationpre                                             -0.03167     0.02447 25929.08788   -1.29   0.1956
menstruationyes                                             -0.06014     0.02307 26028.52779   -2.61   0.0091
fertile_mean                                                -0.11011     0.28675  1451.74915   -0.38   0.7010
partner_attractiveness_money                                -0.04116     0.04244  1094.74660   -0.97   0.3324
includedhorm_contra                                         -0.02048     0.18685  1105.15089   -0.11   0.9127
fertile                                                     -0.00651     0.15712 25989.34284   -0.04   0.9670
menstruationpre:includedhorm_contra                          0.02067     0.03142 25925.34225    0.66   0.5106
menstruationyes:includedhorm_contra                          0.01318     0.03024 26008.15130    0.44   0.6629
partner_attractiveness_money:includedhorm_contra             0.03399     0.05830  1093.00704    0.58   0.5600
partner_attractiveness_money:fertile                         0.01402     0.04702 25988.58985    0.30   0.7657
includedhorm_contra:fertile                                 -0.07265     0.20621 25985.49394   -0.35   0.7246
partner_attractiveness_money:includedhorm_contra:fertile    -0.00766     0.06371 25982.38512   -0.12   0.9044
                                                            
(Intercept)                                              ***
menstruationpre                                             
menstruationyes                                          ** 
fertile_mean                                                
partner_attractiveness_money                                
includedhorm_contra                                         
fertile                                                     
menstruationpre:includedhorm_contra                         
menstruationyes:includedhorm_contra                         
partner_attractiveness_money:includedhorm_contra            
partner_attractiveness_money:fertile                        
includedhorm_contra:fertile                                 
partner_attractiveness_money:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_money +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_money:included +  
    partner_attractiveness_money:fertile + included:fertile +  
    partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 66762

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.755 -0.593  0.006  0.594  4.998 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5423   0.736                     
          menstruationpre 0.0736   0.271    -0.07            
          menstruationyes 0.0729   0.270    -0.14  0.53      
          fertile         0.3634   0.603    -0.09  0.28  0.52
 Residual                 0.6162   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                                          Estimate Std. Error        df t value Pr(>|t|)    
(Intercept)                                                 2.9355     0.1489 1071.5400   19.71   <2e-16 ***
menstruationpre                                            -0.0248     0.0289  747.7327   -0.86    0.391    
menstruationyes                                            -0.0592     0.0275  760.4202   -2.15    0.032 *  
fertile_mean                                               -0.1046     0.2896 1463.4429   -0.36    0.718    
partner_attractiveness_money                               -0.0401     0.0424 1015.7189   -0.95    0.344    
includedhorm_contra                                        -0.0228     0.1866 1026.0434   -0.12    0.903    
fertile                                                     0.0176     0.1919  884.6889    0.09    0.927    
menstruationpre:includedhorm_contra                         0.0180     0.0371  745.3288    0.49    0.627    
menstruationyes:includedhorm_contra                         0.0103     0.0358  793.5373    0.29    0.775    
partner_attractiveness_money:includedhorm_contra            0.0355     0.0582 1014.2755    0.61    0.542    
partner_attractiveness_money:fertile                        0.0107     0.0576  842.9305    0.19    0.853    
includedhorm_contra:fertile                                -0.0526     0.2535  842.5266   -0.21    0.836    
partner_attractiveness_money:includedhorm_contra:fertile   -0.0167     0.0785  805.8105   -0.21    0.831    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Own mate value

long scale
model %>%
  test_moderator_correction("MV", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66916 67023 -33445 66890 NA NA NA
with_mod 15 66913 67036 -33442 66883 7.42 2 0.02448
with_mod_ranef 24 66746 66943 -33349 66698 185.1 9 4.333e-35

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 66904 67011 -33439 66878 NA NA NA
with_mod 15 66902 67025 -33436 66872 5.948 2 0.05109
with_mod_ranef 24 66735 66932 -33344 66687 184.8 9 4.955e-35

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    MV_short + included + fertile + menstruation:included + MV_short:included +  
    MV_short:fertile + included:fertile + MV_short:included:fertile
   Data: diary

REML criterion at convergence: 66934

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.684 -0.608  0.010  0.613  4.873 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.533    0.730   
 Residual             0.642    0.801   
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                       Estimate Std. Error         df t value Pr(>|t|)    
(Intercept)                              2.3869     0.1767  1144.4341   13.51   <2e-16 ***
menstruationpre                         -0.0309     0.0245 25933.0759   -1.26    0.207    
menstruationyes                         -0.0593     0.0231 26033.4227   -2.57    0.010 *  
fertile_mean                            -0.1137     0.2850  1457.7052   -0.40    0.690    
MV_short                                 0.1147     0.0447  1114.9614    2.57    0.010 *  
includedhorm_contra                      0.1859     0.2164  1110.7167    0.86    0.390    
fertile                                 -0.3176     0.1891 26040.6179   -1.68    0.093 .  
menstruationpre:includedhorm_contra      0.0197     0.0314 25929.2339    0.63    0.531    
menstruationyes:includedhorm_contra      0.0120     0.0302 26012.9465    0.40    0.691    
MV_short:includedhorm_contra            -0.0234     0.0575  1099.4619   -0.41    0.684    
MV_short:fertile                         0.0962     0.0494 26055.6300    1.95    0.051 .  
includedhorm_contra:fertile              0.4639     0.2390 25999.8293    1.94    0.052 .  
MV_short:includedhorm_contra:fertile    -0.1540     0.0632 26012.6921   -2.44    0.015 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: partner_mate_retention ~ menstruation + fertile_mean + MV_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + MV_short:included + MV_short:fertile +  
    included:fertile + MV_short:included:fertile
   Data: diary

REML criterion at convergence: 66746

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.748 -0.593  0.005  0.596  4.998 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5363   0.732                     
          menstruationpre 0.0736   0.271    -0.07            
          menstruationyes 0.0727   0.270    -0.15  0.53      
          fertile         0.3589   0.599    -0.10  0.29  0.52
 Residual                 0.6163   0.785                     
Number of obs: 26680, groups:  person, 1054

Fixed effects:
                                       Estimate Std. Error         df t value Pr(>|t|)    
(Intercept)                             2.38403    0.17669 1077.74200   13.49   <2e-16 ***
menstruationpre                        -0.02428    0.02889  748.23375   -0.84    0.401    
menstruationyes                        -0.05855    0.02749  761.94559   -2.13    0.033 *  
fertile_mean                           -0.10857    0.28787 1468.80094   -0.38    0.706    
MV_short                                0.11479    0.04463 1031.73684    2.57    0.010 *  
includedhorm_contra                     0.20093    0.21622 1029.67584    0.93    0.353    
fertile                                -0.28722    0.23229  838.87614   -1.24    0.217    
menstruationpre:includedhorm_contra     0.01730    0.03709  745.72914    0.47    0.641    
menstruationyes:includedhorm_contra     0.00947    0.03582  795.08566    0.26    0.792    
MV_short:includedhorm_contra           -0.02704    0.05744 1018.79640   -0.47    0.638    
MV_short:fertile                        0.09157    0.06065  821.33349    1.51    0.131    
includedhorm_contra:fertile             0.42838    0.29343  842.56212    1.46    0.145    
MV_short:includedhorm_contra:fertile   -0.14591    0.07758  823.45239   -1.88    0.060 .  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0145871 (tol = 0.002, component 1)

Female mate retention

do_moderators(models$female_mate_retention, diary)

Partner’s physical attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s physical attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_physical", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69538 69644 -34756 69512 NA NA NA
with_mod 15 69540 69663 -34755 69510 1.197 2 0.5496
with_mod_ranef 24 69311 69508 -34632 69263 247 9 4.218e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_physical + included + fertile + menstruation:included +  
    partner_attractiveness_physical:included + partner_attractiveness_physical:fertile +  
    included:fertile + partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 69576

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.151 -0.628 -0.003  0.632  4.532 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.517    0.719   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                               Estimate  Std. Error          df t value
(Intercept)                                                     1.91172     0.19248  1178.20267    9.93
menstruationpre                                                -0.00921     0.02576 25969.79027   -0.36
menstruationyes                                                 0.01717     0.02428 26073.00034    0.71
fertile_mean                                                   -0.16521     0.28511  1503.21740   -0.58
partner_attractiveness_physical                                 0.14279     0.02308  1154.89044    6.19
includedhorm_contra                                             0.79151     0.25185  1144.33898    3.14
fertile                                                        -0.20025     0.22693 26108.47006   -0.88
menstruationpre:includedhorm_contra                            -0.03299     0.03307 25966.94935   -1.00
menstruationyes:includedhorm_contra                            -0.02294     0.03183 26052.05698   -0.72
partner_attractiveness_physical:includedhorm_contra            -0.08029     0.03071  1133.64823   -2.61
partner_attractiveness_physical:fertile                         0.03040     0.02781 26118.78115    1.09
includedhorm_contra:fertile                                     0.04619     0.30021 26066.20397    0.15
partner_attractiveness_physical:includedhorm_contra:fertile    -0.03153     0.03630 26065.18546   -0.87
                                                                 Pr(>|t|)    
(Intercept)                                                       < 2e-16 ***
menstruationpre                                                    0.7207    
menstruationyes                                                    0.4796    
fertile_mean                                                       0.5624    
partner_attractiveness_physical                             0.00000000084 ***
includedhorm_contra                                                0.0017 ** 
fertile                                                            0.3776    
menstruationpre:includedhorm_contra                                0.3184    
menstruationyes:includedhorm_contra                                0.4711    
partner_attractiveness_physical:includedhorm_contra                0.0091 ** 
partner_attractiveness_physical:fertile                            0.2743    
includedhorm_contra:fertile                                        0.8777    
partner_attractiveness_physical:includedhorm_contra:fertile        0.3850    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_physical +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_physical:included +  
    partner_attractiveness_physical:fertile + included:fertile +  
    partner_attractiveness_physical:included:fertile
   Data: diary

REML criterion at convergence: 69326

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.046 -0.615 -0.003  0.616  4.661 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5344   0.731                     
          menstruationpre 0.0886   0.298    -0.09            
          menstruationyes 0.1056   0.325    -0.12  0.43      
          fertile         0.4079   0.639    -0.18  0.26  0.32
 Residual                 0.6776   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value
(Intercept)                                                    1.91126    0.19518 1094.01835    9.79
menstruationpre                                               -0.00508    0.03074  777.81193   -0.17
menstruationyes                                                0.00902    0.03024  736.01027    0.30
fertile_mean                                                  -0.16681    0.28782 1516.07508   -0.58
partner_attractiveness_physical                                0.14318    0.02341 1057.09262    6.12
includedhorm_contra                                            0.78905    0.25527 1047.17328    3.09
fertile                                                       -0.19060    0.28437  882.76021   -0.67
menstruationpre:includedhorm_contra                           -0.03125    0.03946  775.02695   -0.79
menstruationyes:includedhorm_contra                           -0.01514    0.03939  764.20717   -0.38
partner_attractiveness_physical:includedhorm_contra           -0.08039    0.03113 1038.64629   -2.58
partner_attractiveness_physical:fertile                        0.02889    0.03489  868.70815    0.83
includedhorm_contra:fertile                                    0.05341    0.37652  859.81612    0.14
partner_attractiveness_physical:includedhorm_contra:fertile   -0.03181    0.04561  843.51198   -0.70
                                                                Pr(>|t|)    
(Intercept)                                                      < 2e-16 ***
menstruationpre                                                   0.8687    
menstruationyes                                                   0.7657    
fertile_mean                                                      0.5623    
partner_attractiveness_physical                             0.0000000014 ***
includedhorm_contra                                               0.0020 ** 
fertile                                                           0.5029    
menstruationpre:includedhorm_contra                               0.4286    
menstruationyes:includedhorm_contra                               0.7009    
partner_attractiveness_physical:includedhorm_contra               0.0099 ** 
partner_attractiveness_physical:fertile                           0.4079    
includedhorm_contra:fertile                                       0.8872    
partner_attractiveness_physical:includedhorm_contra:fertile       0.4857    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0031632 (tol = 0.002, component 1)

Partner’s short-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s short-term attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_shortterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69550 69656 -34762 69524 NA NA NA
with_mod 15 69553 69676 -34762 69523 0.379 2 0.8274
with_mod_ranef 24 69324 69520 -34638 69276 247.6 9 3.209e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_shortterm + included + fertile + menstruation:included +  
    partner_attractiveness_shortterm:included + partner_attractiveness_shortterm:fertile +  
    included:fertile + partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 69586

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.168 -0.627 -0.004  0.631  4.523 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.523    0.723   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                Estimate  Std. Error          df t value
(Intercept)                                                      3.06292     0.06273  1377.65637   48.82
menstruationpre                                                 -0.00892     0.02576 25967.44383   -0.35
menstruationyes                                                  0.01696     0.02428 26071.04186    0.70
fertile_mean                                                    -0.15953     0.28636  1498.61281   -0.56
partner_attractiveness_shortterm                                 0.18442     0.03642  1140.01313    5.06
includedhorm_contra                                              0.13815     0.05154  1332.98195    2.68
fertile                                                          0.04215     0.05218 25957.49734    0.81
menstruationpre:includedhorm_contra                             -0.03339     0.03307 25964.06546   -1.01
menstruationyes:includedhorm_contra                             -0.02277     0.03183 26049.30623   -0.72
partner_attractiveness_shortterm:includedhorm_contra            -0.07060     0.04908  1118.14134   -1.44
partner_attractiveness_shortterm:fertile                         0.00471     0.04368 26113.93974    0.11
includedhorm_contra:fertile                                     -0.20875     0.06625 26076.85671   -3.15
partner_attractiveness_shortterm:includedhorm_contra:fertile     0.01771     0.05723 26044.91105    0.31
                                                               Pr(>|t|)    
(Intercept)                                                     < 2e-16 ***
menstruationpre                                                  0.7292    
menstruationyes                                                  0.4849    
fertile_mean                                                     0.5775    
partner_attractiveness_shortterm                             0.00000048 ***
includedhorm_contra                                              0.0074 ** 
fertile                                                          0.4193    
menstruationpre:includedhorm_contra                              0.3126    
menstruationyes:includedhorm_contra                              0.4744    
partner_attractiveness_shortterm:includedhorm_contra             0.1506    
partner_attractiveness_shortterm:fertile                         0.9141    
includedhorm_contra:fertile                                      0.0016 ** 
partner_attractiveness_shortterm:includedhorm_contra:fertile     0.7570    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_shortterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_shortterm:fertile + included:fertile +  
    partner_attractiveness_shortterm:included:fertile
   Data: diary

REML criterion at convergence: 69334

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.057 -0.615 -0.003  0.616  4.660 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5376   0.733                     
          menstruationpre 0.0889   0.298    -0.08            
          menstruationyes 0.1057   0.325    -0.11  0.43      
          fertile         0.4117   0.642    -0.17  0.27  0.33
 Residual                 0.6776   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                               Estimate Std. Error         df t value
(Intercept)                                                     3.06529    0.06329 1351.59619   48.43
menstruationpre                                                -0.00455    0.03075  777.94827   -0.15
menstruationyes                                                 0.00912    0.03025  735.13780    0.30
fertile_mean                                                   -0.16082    0.28911 1511.01481   -0.56
partner_attractiveness_shortterm                                0.18489    0.03691 1047.88253    5.01
includedhorm_contra                                             0.13490    0.05228 1016.03222    2.58
fertile                                                         0.03997    0.06322  853.71601    0.63
menstruationpre:includedhorm_contra                            -0.03187    0.03948  775.16165   -0.81
menstruationyes:includedhorm_contra                            -0.01539    0.03940  763.27698   -0.39
partner_attractiveness_shortterm:includedhorm_contra           -0.06885    0.04970 1027.51731   -1.39
partner_attractiveness_shortterm:fertile                        0.00403    0.05504  843.34046    0.07
includedhorm_contra:fertile                                    -0.20376    0.08042  832.93689   -2.53
partner_attractiveness_shortterm:includedhorm_contra:fertile    0.01481    0.07218  824.02872    0.21
                                                               Pr(>|t|)    
(Intercept)                                                     < 2e-16 ***
menstruationpre                                                   0.882    
menstruationyes                                                   0.763    
fertile_mean                                                      0.578    
partner_attractiveness_shortterm                             0.00000064 ***
includedhorm_contra                                               0.010 *  
fertile                                                           0.527    
menstruationpre:includedhorm_contra                               0.420    
menstruationyes:includedhorm_contra                               0.696    
partner_attractiveness_shortterm:includedhorm_contra              0.166    
partner_attractiveness_shortterm:fertile                          0.942    
includedhorm_contra:fertile                                       0.011 *  
partner_attractiveness_shortterm:includedhorm_contra:fertile      0.837    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0279122 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) top-right (high LT, low ST), then top-left (low LT, low ST), then bottom-left (low LT, high ST), then bottom-right (high LT/ST).

add_main = update.formula(formula(model), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * included + partner_attractiveness_shortterm * included + partner_attractiveness_longterm * partner_attractiveness_shortterm"))) # reorder so that the triptych looks nice
add_mod_formula = update.formula(update.formula(formula(model), new = . ~ . - included * fertile), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included"))) # reorder so that the triptych looks nice
add_mod_formula_ranef = update.formula(update.formula(formula(model), new = . ~ . - included * fertile - (1 | person)), new = as.formula(paste0(". ~ . + partner_attractiveness_longterm * fertile * partner_attractiveness_shortterm * included + (1 + menstruation + fertile | person)"))) # reorder so that the triptych looks nice

update(model, formula = add_main) -> with_main
update(model, formula = add_mod_formula) -> with_mod
update(model, formula = add_mod_formula_ranef) -> with_mod_ranef
cat(pander(anova(with_main, with_mod, with_mod_ranef)))
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 16 69492 69623 -34730 69460 NA NA NA
with_mod 23 69496 69685 -34725 69450 9.696 7 0.2065
with_mod_ranef 32 69269 69531 -34603 69205 245.3 9 9.95e-48
effs = allEffects(with_mod)
effs = data.frame(effs$`partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included`) %>% 
  filter(partner_attractiveness_longterm %in% c(-3,-0.4, 0.8),partner_attractiveness_shortterm %in% c(-2,0.4, 2))
ggplot(effs, aes(fertile, fit, ymin = lower, ymax = upper, color = included)) + 
  facet_grid(partner_attractiveness_shortterm ~ partner_attractiveness_longterm) +
  geom_smooth(stat='identity') +
  scale_color_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  scale_fill_manual(values = c("cycling" = 'red', 'horm_contra' = 'black'), guide = F) +
  ggtitle("Moderation", "top-to-bottom: short-term,\nleft-to-right: long-term attractiveness of the partner")+
  ylab(names(model@frame)[1])

print_summary(with_mod)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_longterm + fertile + partner_attractiveness_shortterm +  
    included + menstruation:included + partner_attractiveness_longterm:fertile +  
    partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 69550

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.209 -0.627 -0.004  0.631  4.573 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.491    0.701   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                                                Estimate
(Intercept)                                                                                      3.02452
menstruationpre                                                                                 -0.00893
menstruationyes                                                                                  0.01735
fertile_mean                                                                                    -0.06836
partner_attractiveness_longterm                                                                  0.24593
fertile                                                                                          0.06087
partner_attractiveness_shortterm                                                                 0.09599
includedhorm_contra                                                                              0.16986
menstruationpre:includedhorm_contra                                                             -0.03281
menstruationyes:includedhorm_contra                                                             -0.02282
partner_attractiveness_longterm:fertile                                                         -0.02201
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.03101
fertile:partner_attractiveness_shortterm                                                        -0.00350
partner_attractiveness_longterm:includedhorm_contra                                             -0.06907
fertile:includedhorm_contra                                                                     -0.24955
partner_attractiveness_shortterm:includedhorm_contra                                            -0.02066
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        -0.04646
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.04472
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            -0.09487
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.01153
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.15545
                                                                                              Std. Error
(Intercept)                                                                                      0.06280
menstruationpre                                                                                  0.02576
menstruationyes                                                                                  0.02430
fertile_mean                                                                                     0.28008
partner_attractiveness_longterm                                                                  0.04286
fertile                                                                                          0.05442
partner_attractiveness_shortterm                                                                 0.03947
includedhorm_contra                                                                              0.05259
menstruationpre:includedhorm_contra                                                              0.03307
menstruationyes:includedhorm_contra                                                              0.03184
partner_attractiveness_longterm:fertile                                                          0.05260
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.03155
fertile:partner_attractiveness_shortterm                                                         0.04769
partner_attractiveness_longterm:includedhorm_contra                                              0.05464
fertile:includedhorm_contra                                                                      0.06859
partner_attractiveness_shortterm:includedhorm_contra                                             0.05145
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                         0.03896
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.06671
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra             0.04924
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.06114
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.06033
                                                                                                      df
(Intercept)                                                                                   1372.47362
menstruationpre                                                                              25979.10617
menstruationyes                                                                              26085.27703
fertile_mean                                                                                  1509.42625
partner_attractiveness_longterm                                                               1136.00956
fertile                                                                                      25967.73051
partner_attractiveness_shortterm                                                              1122.56478
includedhorm_contra                                                                           1319.67095
menstruationpre:includedhorm_contra                                                          25976.08250
menstruationyes:includedhorm_contra                                                          26062.88214
partner_attractiveness_longterm:fertile                                                      26189.64975
partner_attractiveness_longterm:partner_attractiveness_shortterm                              1129.28868
fertile:partner_attractiveness_shortterm                                                     26087.58705
partner_attractiveness_longterm:includedhorm_contra                                           1132.08573
fertile:includedhorm_contra                                                                  26084.30691
partner_attractiveness_shortterm:includedhorm_contra                                          1109.95495
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                     26094.83379
partner_attractiveness_longterm:fertile:includedhorm_contra                                  26144.71164
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra          1127.29641
fertile:partner_attractiveness_shortterm:includedhorm_contra                                 26042.75125
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra 26046.39827
                                                                                             t value
(Intercept)                                                                                    48.16
menstruationpre                                                                                -0.35
menstruationyes                                                                                 0.71
fertile_mean                                                                                   -0.24
partner_attractiveness_longterm                                                                 5.74
fertile                                                                                         1.12
partner_attractiveness_shortterm                                                                2.43
includedhorm_contra                                                                             3.23
menstruationpre:includedhorm_contra                                                            -0.99
menstruationyes:includedhorm_contra                                                            -0.72
partner_attractiveness_longterm:fertile                                                        -0.42
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.98
fertile:partner_attractiveness_shortterm                                                       -0.07
partner_attractiveness_longterm:includedhorm_contra                                            -1.26
fertile:includedhorm_contra                                                                    -3.64
partner_attractiveness_shortterm:includedhorm_contra                                           -0.40
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -1.19
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.67
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -1.93
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.19
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    2.58
                                                                                                Pr(>|t|)    
(Intercept)                                                                                      < 2e-16 ***
menstruationpre                                                                                  0.72880    
menstruationyes                                                                                  0.47514    
fertile_mean                                                                                     0.80722    
partner_attractiveness_longterm                                                              0.000000012 ***
fertile                                                                                          0.26335    
partner_attractiveness_shortterm                                                                 0.01517 *  
includedhorm_contra                                                                              0.00127 ** 
menstruationpre:includedhorm_contra                                                              0.32106    
menstruationyes:includedhorm_contra                                                              0.47352    
partner_attractiveness_longterm:fertile                                                          0.67568    
partner_attractiveness_longterm:partner_attractiveness_shortterm                                 0.32573    
fertile:partner_attractiveness_shortterm                                                         0.94152    
partner_attractiveness_longterm:includedhorm_contra                                              0.20646    
fertile:includedhorm_contra                                                                      0.00028 ***
partner_attractiveness_shortterm:includedhorm_contra                                             0.68810    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                         0.23315    
partner_attractiveness_longterm:fertile:includedhorm_contra                                      0.50262    
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra             0.05430 .  
fertile:partner_attractiveness_shortterm:includedhorm_contra                                     0.85044    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra     0.00998 ** 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
print_summary(with_mod_ranef)
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    fertile + partner_attractiveness_shortterm + included + (1 +  
    menstruation + fertile | person) + menstruation:included +  
    partner_attractiveness_longterm:fertile + partner_attractiveness_longterm:partner_attractiveness_shortterm +  
    fertile:partner_attractiveness_shortterm + partner_attractiveness_longterm:included +  
    fertile:included + partner_attractiveness_shortterm:included +  
    partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm +  
    partner_attractiveness_longterm:fertile:included + partner_attractiveness_longterm:partner_attractiveness_shortterm:included +  
    fertile:partner_attractiveness_shortterm:included + partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:included
   Data: diary

REML criterion at convergence: 69300

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.082 -0.616 -0.005  0.616  4.650 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.507    0.712                     
          menstruationpre 0.089    0.298    -0.09            
          menstruationyes 0.106    0.326    -0.11  0.43      
          fertile         0.409    0.639    -0.18  0.27  0.33
 Residual                 0.678    0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                                                Estimate
(Intercept)                                                                                     3.027232
menstruationpre                                                                                -0.004990
menstruationyes                                                                                 0.009092
fertile_mean                                                                                   -0.070800
partner_attractiveness_longterm                                                                 0.251256
fertile                                                                                         0.061765
partner_attractiveness_shortterm                                                                0.093665
includedhorm_contra                                                                             0.166258
menstruationpre:includedhorm_contra                                                            -0.030937
menstruationyes:includedhorm_contra                                                            -0.014986
partner_attractiveness_longterm:fertile                                                        -0.037909
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.029752
fertile:partner_attractiveness_shortterm                                                        0.000138
partner_attractiveness_longterm:includedhorm_contra                                            -0.078645
fertile:includedhorm_contra                                                                    -0.248545
partner_attractiveness_shortterm:includedhorm_contra                                           -0.015553
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -0.051571
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.074522
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -0.091411
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.002801
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.157189
                                                                                              Std. Error
(Intercept)                                                                                     0.063432
menstruationpre                                                                                 0.030749
menstruationyes                                                                                 0.030277
fertile_mean                                                                                    0.282895
partner_attractiveness_longterm                                                                 0.043569
fertile                                                                                         0.065915
partner_attractiveness_shortterm                                                                0.040045
includedhorm_contra                                                                             0.053422
menstruationpre:includedhorm_contra                                                             0.039469
menstruationyes:includedhorm_contra                                                             0.039431
partner_attractiveness_longterm:fertile                                                         0.065297
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.032017
fertile:partner_attractiveness_shortterm                                                        0.060041
partner_attractiveness_longterm:includedhorm_contra                                             0.055486
fertile:includedhorm_contra                                                                     0.083300
partner_attractiveness_shortterm:includedhorm_contra                                            0.052152
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                        0.048807
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.083288
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra            0.049914
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.076987
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    0.075434
                                                                                                      df
(Intercept)                                                                                  1347.823631
menstruationpre                                                                               778.850243
menstruationyes                                                                               739.794615
fertile_mean                                                                                 1522.997325
partner_attractiveness_longterm                                                              1033.700213
fertile                                                                                       882.612033
partner_attractiveness_shortterm                                                             1028.099812
includedhorm_contra                                                                          1025.046240
menstruationpre:includedhorm_contra                                                           776.093030
menstruationyes:includedhorm_contra                                                           767.654867
partner_attractiveness_longterm:fertile                                                       897.557695
partner_attractiveness_longterm:partner_attractiveness_shortterm                             1026.414753
fertile:partner_attractiveness_shortterm                                                      817.967833
partner_attractiveness_longterm:includedhorm_contra                                          1031.908021
fertile:includedhorm_contra                                                                   854.207359
partner_attractiveness_shortterm:includedhorm_contra                                         1015.845411
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                      891.943936
partner_attractiveness_longterm:fertile:includedhorm_contra                                   867.372887
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra         1029.272925
fertile:partner_attractiveness_shortterm:includedhorm_contra                                  811.308580
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra  873.909142
                                                                                             t value
(Intercept)                                                                                    47.72
menstruationpre                                                                                -0.16
menstruationyes                                                                                 0.30
fertile_mean                                                                                   -0.25
partner_attractiveness_longterm                                                                 5.77
fertile                                                                                         0.94
partner_attractiveness_shortterm                                                                2.34
includedhorm_contra                                                                             3.11
menstruationpre:includedhorm_contra                                                            -0.78
menstruationyes:includedhorm_contra                                                            -0.38
partner_attractiveness_longterm:fertile                                                        -0.58
partner_attractiveness_longterm:partner_attractiveness_shortterm                                0.93
fertile:partner_attractiveness_shortterm                                                        0.00
partner_attractiveness_longterm:includedhorm_contra                                            -1.42
fertile:includedhorm_contra                                                                    -2.98
partner_attractiveness_shortterm:includedhorm_contra                                           -0.30
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                       -1.06
partner_attractiveness_longterm:fertile:includedhorm_contra                                     0.89
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra           -1.83
fertile:partner_attractiveness_shortterm:includedhorm_contra                                    0.04
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra    2.08
                                                                                                Pr(>|t|)    
(Intercept)                                                                                      < 2e-16 ***
menstruationpre                                                                                   0.8711    
menstruationyes                                                                                   0.7640    
fertile_mean                                                                                      0.8024    
partner_attractiveness_longterm                                                              0.000000011 ***
fertile                                                                                           0.3490    
partner_attractiveness_shortterm                                                                  0.0195 *  
includedhorm_contra                                                                               0.0019 ** 
menstruationpre:includedhorm_contra                                                               0.4334    
menstruationyes:includedhorm_contra                                                               0.7040    
partner_attractiveness_longterm:fertile                                                           0.5617    
partner_attractiveness_longterm:partner_attractiveness_shortterm                                  0.3530    
fertile:partner_attractiveness_shortterm                                                          0.9982    
partner_attractiveness_longterm:includedhorm_contra                                               0.1567    
fertile:includedhorm_contra                                                                       0.0029 ** 
partner_attractiveness_shortterm:includedhorm_contra                                              0.7656    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm                          0.2910    
partner_attractiveness_longterm:fertile:includedhorm_contra                                       0.3712    
partner_attractiveness_longterm:partner_attractiveness_shortterm:includedhorm_contra              0.0673 .  
fertile:partner_attractiveness_shortterm:includedhorm_contra                                      0.9710    
partner_attractiveness_longterm:fertile:partner_attractiveness_shortterm:includedhorm_contra      0.0375 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Relative attractiveness to self

whole MV and MV_P scale

Predicted fertile phase effect sizes (in red): biggest (EP desire, partner mate retention)/smallest (IP desire) when partner’s relative attractiveness is low.

model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69586 69692 -34780 69560 NA NA NA
with_mod 15 69577 69700 -34774 69547 12.56 2 0.001875
with_mod_ranef 24 69354 69550 -34653 69306 241.8 9 5.432e-47

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_rel_to_self + included + fertile +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 69609

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.164 -0.627 -0.002  0.629  4.511 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.542    0.736   
 Residual             0.711    0.843   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                  Estimate  Std. Error          df t value
(Intercept)                                                        3.04486     0.06355  1368.07752   47.91
menstruationpre                                                   -0.00758     0.02576 25957.88148   -0.29
menstruationyes                                                    0.01784     0.02427 26059.80633    0.73
fertile_mean                                                      -0.13138     0.29029  1485.35046   -0.45
partner_attractiveness_rel_to_self                                 0.09107     0.03766  1116.73862    2.42
includedhorm_contra                                                0.16477     0.05211  1321.40200    3.16
fertile                                                            0.03024     0.05214 25944.02116    0.58
menstruationpre:includedhorm_contra                               -0.03486     0.03307 25954.05719   -1.05
menstruationyes:includedhorm_contra                               -0.02350     0.03182 26038.89757   -0.74
partner_attractiveness_rel_to_self:includedhorm_contra            -0.11402     0.04985  1114.99279   -2.29
partner_attractiveness_rel_to_self:fertile                        -0.13045     0.04374 26022.45591   -2.98
includedhorm_contra:fertile                                       -0.19627     0.06601 26063.32515   -2.97
partner_attractiveness_rel_to_self:includedhorm_contra:fertile     0.20177     0.05746 26011.57379    3.51
                                                               Pr(>|t|)    
(Intercept)                                                     < 2e-16 ***
menstruationpre                                                 0.76851    
menstruationyes                                                 0.46240    
fertile_mean                                                    0.65093    
partner_attractiveness_rel_to_self                              0.01576 *  
includedhorm_contra                                             0.00160 ** 
fertile                                                         0.56200    
menstruationpre:includedhorm_contra                             0.29188    
menstruationyes:includedhorm_contra                             0.46021    
partner_attractiveness_rel_to_self:includedhorm_contra          0.02238 *  
partner_attractiveness_rel_to_self:fertile                      0.00287 ** 
includedhorm_contra:fertile                                     0.00295 ** 
partner_attractiveness_rel_to_self:includedhorm_contra:fertile  0.00045 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self:included +  
    partner_attractiveness_rel_to_self:fertile + included:fertile +  
    partner_attractiveness_rel_to_self:included:fertile
   Data: diary

REML criterion at convergence: 69364

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.058 -0.616 -0.005  0.615  4.663 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5607   0.749                     
          menstruationpre 0.0886   0.298    -0.10            
          menstruationyes 0.1058   0.325    -0.13  0.43      
          fertile         0.4031   0.635    -0.17  0.27  0.34
 Residual                 0.6777   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                 Estimate Std. Error         df t value
(Intercept)                                                       3.04664    0.06420 1343.74429   47.45
menstruationpre                                                  -0.00358    0.03073  778.60720   -0.12
menstruationyes                                                   0.01016    0.03025  735.51598    0.34
fertile_mean                                                     -0.13113    0.29315 1495.13485   -0.45
partner_attractiveness_rel_to_self                                0.08822    0.03811 1025.10257    2.31
includedhorm_contra                                               0.16200    0.05300 1013.38445    3.06
fertile                                                           0.02939    0.06300  849.20514    0.47
menstruationpre:includedhorm_contra                              -0.03272    0.03945  775.85883   -0.83
menstruationyes:includedhorm_contra                              -0.01587    0.03940  763.83675   -0.40
partner_attractiveness_rel_to_self:includedhorm_contra           -0.11177    0.05043 1024.17865   -2.22
partner_attractiveness_rel_to_self:fertile                       -0.11494    0.05457  858.83031   -2.11
includedhorm_contra:fertile                                      -0.19338    0.07991  825.80111   -2.42
partner_attractiveness_rel_to_self:includedhorm_contra:fertile    0.18789    0.07182  843.30631    2.62
                                                               Pr(>|t|)    
(Intercept)                                                      <2e-16 ***
menstruationpre                                                  0.9073    
menstruationyes                                                  0.7371    
fertile_mean                                                     0.6547    
partner_attractiveness_rel_to_self                               0.0208 *  
includedhorm_contra                                              0.0023 ** 
fertile                                                          0.6410    
menstruationpre:includedhorm_contra                              0.4072    
menstruationyes:includedhorm_contra                              0.6873    
partner_attractiveness_rel_to_self:includedhorm_contra           0.0269 *  
partner_attractiveness_rel_to_self:fertile                       0.0355 *  
includedhorm_contra:fertile                                      0.0157 *  
partner_attractiveness_rel_to_self:includedhorm_contra:fertile   0.0091 ** 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0112077 (tol = 0.002, component 1)
three item subsets of the MV scales
model %>%
  test_moderator_correction("partner_attractiveness_rel_to_self_MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69587 69693 -34780 69561 NA NA NA
with_mod 15 69576 69699 -34773 69546 14.84 2 0.0005994
with_mod_ranef 24 69353 69550 -34653 69305 240.6 9 9.808e-47

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_rel_to_self_MV_short + included +  
    fertile + menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 69608

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.158 -0.627 -0.001  0.629  4.501 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.542    0.736   
 Residual             0.711    0.843   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                           Estimate  Std. Error          df
(Intercept)                                                                 3.04214     0.06352  1368.01478
menstruationpre                                                            -0.00755     0.02576 25957.43408
menstruationyes                                                             0.01795     0.02427 26059.84428
fertile_mean                                                               -0.12801     0.29036  1484.84585
partner_attractiveness_rel_to_self_MV_short                                 0.08576     0.03768  1118.20004
includedhorm_contra                                                         0.16666     0.05207  1321.59504
fertile                                                                     0.03066     0.05210 25944.99480
menstruationpre:includedhorm_contra                                        -0.03485     0.03307 25953.58049
menstruationyes:includedhorm_contra                                        -0.02364     0.03182 26038.66463
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra            -0.10917     0.04974  1113.65139
partner_attractiveness_rel_to_self_MV_short:fertile                        -0.14297     0.04371 26011.10193
includedhorm_contra:fertile                                                -0.19611     0.06597 26063.83535
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile     0.21848     0.05734 26002.83012
                                                                        t value Pr(>|t|)    
(Intercept)                                                               47.90  < 2e-16 ***
menstruationpre                                                           -0.29  0.76946    
menstruationyes                                                            0.74  0.45964    
fertile_mean                                                              -0.44  0.65939    
partner_attractiveness_rel_to_self_MV_short                                2.28  0.02303 *  
includedhorm_contra                                                        3.20  0.00140 ** 
fertile                                                                    0.59  0.55628    
menstruationpre:includedhorm_contra                                       -1.05  0.29189    
menstruationyes:includedhorm_contra                                       -0.74  0.45751    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -2.19  0.02838 *  
partner_attractiveness_rel_to_self_MV_short:fertile                       -3.27  0.00107 ** 
includedhorm_contra:fertile                                               -2.97  0.00295 ** 
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    3.81  0.00014 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_rel_to_self_MV_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_rel_to_self_MV_short:included +  
    partner_attractiveness_rel_to_self_MV_short:fertile + included:fertile +  
    partner_attractiveness_rel_to_self_MV_short:included:fertile
   Data: diary

REML criterion at convergence: 69364

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.054 -0.616 -0.005  0.616  4.659 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5612   0.749                     
          menstruationpre 0.0885   0.297    -0.10            
          menstruationyes 0.1057   0.325    -0.13  0.43      
          fertile         0.4035   0.635    -0.17  0.27  0.34
 Residual                 0.6777   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                          Estimate Std. Error         df
(Intercept)                                                                3.04399    0.06417 1344.31979
menstruationpre                                                           -0.00355    0.03073  778.23890
menstruationyes                                                            0.01012    0.03025  735.52036
fertile_mean                                                              -0.12817    0.29316 1495.68915
partner_attractiveness_rel_to_self_MV_short                                0.08222    0.03811 1028.07196
includedhorm_contra                                                        0.16386    0.05296 1012.93566
fertile                                                                    0.02987    0.06295  849.28519
menstruationpre:includedhorm_contra                                       -0.03273    0.03944  775.50033
menstruationyes:includedhorm_contra                                       -0.01584    0.03940  763.85383
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -0.10566    0.05029 1024.40293
partner_attractiveness_rel_to_self_MV_short:fertile                       -0.12634    0.05457  855.28172
includedhorm_contra:fertile                                               -0.19322    0.07986  825.71430
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    0.20207    0.07165  843.50566
                                                                        t value Pr(>|t|)    
(Intercept)                                                               47.44   <2e-16 ***
menstruationpre                                                           -0.12   0.9081    
menstruationyes                                                            0.33   0.7381    
fertile_mean                                                              -0.44   0.6620    
partner_attractiveness_rel_to_self_MV_short                                2.16   0.0312 *  
includedhorm_contra                                                        3.09   0.0020 ** 
fertile                                                                    0.47   0.6352    
menstruationpre:includedhorm_contra                                       -0.83   0.4069    
menstruationyes:includedhorm_contra                                       -0.40   0.6878    
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra           -2.10   0.0359 *  
partner_attractiveness_rel_to_self_MV_short:fertile                       -2.32   0.0208 *  
includedhorm_contra:fertile                                               -2.42   0.0158 *  
partner_attractiveness_rel_to_self_MV_short:includedhorm_contra:fertile    2.82   0.0049 ** 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00444314 (tol = 0.002, component 1)

Partner’s shortterm attractiveness, alternative specification

model %>%
  test_moderator_correction("partner_attractiveness_shortterm_v2", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69557 69663 -34765 69531 NA NA NA
with_mod 15 69561 69684 -34765 69531 0.2636 2 0.8765
with_mod_ranef 24 69332 69528 -34642 69284 247 9 4.349e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_shortterm_v2 + included + fertile +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 69593

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.164 -0.627 -0.003  0.631  4.526 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.527    0.726   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                   Estimate  Std. Error          df t value
(Intercept)                                                         3.05506     0.06282  1377.18857   48.63
menstruationpre                                                    -0.00936     0.02576 25964.77657   -0.36
menstruationyes                                                     0.01653     0.02428 26067.14627    0.68
fertile_mean                                                       -0.17332     0.28730  1496.95683   -0.60
partner_attractiveness_shortterm_v2                                 0.18894     0.03678  1135.45367    5.14
includedhorm_contra                                                 0.15760     0.05147  1333.69189    3.06
fertile                                                             0.04114     0.05202 25953.73248    0.79
menstruationpre:includedhorm_contra                                -0.03287     0.03307 25961.82165   -0.99
menstruationyes:includedhorm_contra                                -0.02227     0.03183 26045.97838   -0.70
partner_attractiveness_shortterm_v2:includedhorm_contra            -0.12014     0.04885  1119.52811   -2.46
partner_attractiveness_shortterm_v2:fertile                         0.00205     0.04350 26074.06764    0.05
includedhorm_contra:fertile                                        -0.20570     0.06596 26074.03462   -3.12
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.01646     0.05660 26034.28645    0.29
                                                                  Pr(>|t|)    
(Intercept)                                                        < 2e-16 ***
menstruationpre                                                     0.7163    
menstruationyes                                                     0.4959    
fertile_mean                                                        0.5464    
partner_attractiveness_shortterm_v2                             0.00000033 ***
includedhorm_contra                                                 0.0022 ** 
fertile                                                             0.4290    
menstruationpre:includedhorm_contra                                 0.3203    
menstruationyes:includedhorm_contra                                 0.4841    
partner_attractiveness_shortterm_v2:includedhorm_contra             0.0141 *  
partner_attractiveness_shortterm_v2:fertile                         0.9624    
includedhorm_contra:fertile                                         0.0018 ** 
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.7712    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_shortterm_v2 +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_shortterm_v2:included +  
    partner_attractiveness_shortterm_v2:fertile + included:fertile +  
    partner_attractiveness_shortterm_v2:included:fertile
   Data: diary

REML criterion at convergence: 69342

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.054 -0.615 -0.005  0.616  4.664 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5459   0.739                     
          menstruationpre 0.0886   0.298    -0.10            
          menstruationyes 0.1057   0.325    -0.13  0.43      
          fertile         0.4109   0.641    -0.18  0.27  0.33
 Residual                 0.6776   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                  Estimate Std. Error         df t value
(Intercept)                                                        3.05742    0.06347 1351.85129   48.17
menstruationpre                                                   -0.00522    0.03074  778.18683   -0.17
menstruationyes                                                    0.00851    0.03025  735.51291    0.28
fertile_mean                                                      -0.17373    0.29011 1509.39149   -0.60
partner_attractiveness_shortterm_v2                                0.18787    0.03729 1043.52717    5.04
includedhorm_contra                                                0.15435    0.05237 1013.88331    2.95
fertile                                                            0.03862    0.06302  848.13991    0.61
menstruationpre:includedhorm_contra                               -0.03102    0.03945  775.42915   -0.79
menstruationyes:includedhorm_contra                               -0.01456    0.03940  763.74196   -0.37
partner_attractiveness_shortterm_v2:includedhorm_contra           -0.11871    0.04949 1028.51432   -2.40
partner_attractiveness_shortterm_v2:fertile                        0.00203    0.05473  852.54480    0.04
includedhorm_contra:fertile                                       -0.20070    0.08006  826.27548   -2.51
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile    0.01360    0.07133  827.99752    0.19
                                                                  Pr(>|t|)    
(Intercept)                                                        < 2e-16 ***
menstruationpre                                                     0.8651    
menstruationyes                                                     0.7785    
fertile_mean                                                        0.5494    
partner_attractiveness_shortterm_v2                             0.00000055 ***
includedhorm_contra                                                 0.0033 ** 
fertile                                                             0.5401    
menstruationpre:includedhorm_contra                                 0.4319    
menstruationyes:includedhorm_contra                                 0.7119    
partner_attractiveness_shortterm_v2:includedhorm_contra             0.0166 *  
partner_attractiveness_shortterm_v2:fertile                         0.9705    
includedhorm_contra:fertile                                         0.0124 *  
partner_attractiveness_shortterm_v2:includedhorm_contra:fertile     0.8488    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0031064 (tol = 0.002, component 1)

Partner’s global attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_global", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69583 69690 -34779 69557 NA NA NA
with_mod 15 69585 69707 -34777 69555 2.825 2 0.2436
with_mod_ranef 24 69356 69553 -34654 69308 246.4 9 5.714e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_global + included + fertile + menstruation:included +  
    partner_attractiveness_global:included + partner_attractiveness_global:fertile +  
    included:fertile + partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 69617

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.160 -0.627 -0.003  0.630  4.528 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.541    0.735   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                             Estimate  Std. Error          df t value
(Intercept)                                                   3.03853     0.06338  1369.23473   47.94
menstruationpre                                              -0.00894     0.02576 25957.77088   -0.35
menstruationyes                                               0.01706     0.02428 26059.86681    0.70
fertile_mean                                                 -0.14408     0.29017  1486.96362   -0.50
partner_attractiveness_global                                 0.10217     0.03752  1107.44851    2.72
includedhorm_contra                                           0.17198     0.05192  1322.75458    3.31
fertile                                                       0.04088     0.05199 25946.43169    0.79
menstruationpre:includedhorm_contra                          -0.03325     0.03308 25954.37091   -1.01
menstruationyes:includedhorm_contra                          -0.02255     0.03183 26039.06267   -0.71
partner_attractiveness_global:includedhorm_contra            -0.11498     0.04924  1094.47335   -2.34
partner_attractiveness_global:fertile                        -0.06627     0.04311 25964.94218   -1.54
includedhorm_contra:fertile                                  -0.20375     0.06588 26064.65969   -3.09
partner_attractiveness_global:includedhorm_contra:fertile     0.08990     0.05540 25948.59806    1.62
                                                          Pr(>|t|)    
(Intercept)                                                < 2e-16 ***
menstruationpre                                            0.72847    
menstruationyes                                            0.48215    
fertile_mean                                               0.61959    
partner_attractiveness_global                              0.00657 ** 
includedhorm_contra                                        0.00095 ***
fertile                                                    0.43167    
menstruationpre:includedhorm_contra                        0.31478    
menstruationyes:includedhorm_contra                        0.47864    
partner_attractiveness_global:includedhorm_contra          0.01971 *  
partner_attractiveness_global:fertile                      0.12428    
includedhorm_contra:fertile                                0.00198 ** 
partner_attractiveness_global:includedhorm_contra:fertile  0.10461    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_global +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_global:included +  
    partner_attractiveness_global:fertile + included:fertile +  
    partner_attractiveness_global:included:fertile
   Data: diary

REML criterion at convergence: 69367

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.054 -0.616 -0.006  0.614  4.665 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5602   0.748                     
          menstruationpre 0.0886   0.298    -0.11            
          menstruationyes 0.1059   0.325    -0.13  0.43      
          fertile         0.4120   0.642    -0.18  0.27  0.33
 Residual                 0.6776   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                            Estimate Std. Error         df t value Pr(>|t|)
(Intercept)                                                  3.04047    0.06404 1345.11491   47.48   <2e-16
menstruationpre                                             -0.00453    0.03073  778.38455   -0.15   0.8829
menstruationyes                                              0.00943    0.03026  735.66066    0.31   0.7553
fertile_mean                                                -0.14327    0.29301 1498.88696   -0.49   0.6249
partner_attractiveness_global                                0.10150    0.03798 1023.13197    2.67   0.0077
includedhorm_contra                                          0.16892    0.05284 1010.50927    3.20   0.0014
fertile                                                      0.03886    0.06301  848.57707    0.62   0.5376
menstruationpre:includedhorm_contra                         -0.03154    0.03945  775.64506   -0.80   0.4243
menstruationyes:includedhorm_contra                         -0.01505    0.03942  763.96435   -0.38   0.7027
partner_attractiveness_global:includedhorm_contra           -0.11468    0.04981 1010.45288   -2.30   0.0215
partner_attractiveness_global:fertile                       -0.06535    0.05400  859.77399   -1.21   0.2265
includedhorm_contra:fertile                                 -0.19955    0.08001  825.48575   -2.49   0.0128
partner_attractiveness_global:includedhorm_contra:fertile    0.09278    0.06976  822.58311    1.33   0.1839
                                                             
(Intercept)                                               ***
menstruationpre                                              
menstruationyes                                              
fertile_mean                                                 
partner_attractiveness_global                             ** 
includedhorm_contra                                       ** 
fertile                                                      
menstruationpre:includedhorm_contra                          
menstruationyes:includedhorm_contra                          
partner_attractiveness_global:includedhorm_contra         *  
partner_attractiveness_global:fertile                        
includedhorm_contra:fertile                               *  
partner_attractiveness_global:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00332281 (tol = 0.002, component 1)

Partner’s longterm attractiveness

model %>%
  test_moderator_correction("partner_attractiveness_longterm", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69497 69604 -34736 69471 NA NA NA
with_mod 15 69501 69624 -34735 69471 0.3241 2 0.8504
with_mod_ranef 24 69271 69467 -34611 69223 248.1 9 2.529e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_longterm + included + fertile + menstruation:included +  
    partner_attractiveness_longterm:included + partner_attractiveness_longterm:fertile +  
    included:fertile + partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 69533

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.157 -0.630 -0.004  0.631  4.555 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.496    0.704   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                                 Estimate    Std. Error            df t value
(Intercept)                                                     3.0221401     0.0612475  1395.4269838   49.34
menstruationpre                                                -0.0093041     0.0257575 25981.0615996   -0.36
menstruationyes                                                 0.0169538     0.0242930 26087.1629638    0.70
fertile_mean                                                   -0.0395791     0.2808397  1513.4678746   -0.14
partner_attractiveness_longterm                                 0.2706685     0.0368020  1167.6041039    7.35
includedhorm_contra                                             0.1610066     0.0501722  1353.6508909    3.21
fertile                                                         0.0426155     0.0519922 25970.1401509    0.82
menstruationpre:includedhorm_contra                            -0.0326821     0.0330668 25978.2602716   -0.99
menstruationyes:includedhorm_contra                            -0.0222080     0.0318348 26065.3054066   -0.70
partner_attractiveness_longterm:includedhorm_contra            -0.0729381     0.0494321  1153.3537910   -1.48
partner_attractiveness_longterm:fertile                        -0.0000796     0.0460683 26221.2167809    0.00
includedhorm_contra:fertile                                    -0.2083287     0.0659408 26094.7600656   -3.16
partner_attractiveness_longterm:includedhorm_contra:fertile     0.0228037     0.0609405 26156.9638736    0.37
                                                            Pr(>|t|)    
(Intercept)                                                  < 2e-16 ***
menstruationpre                                               0.7179    
menstruationyes                                               0.4853    
fertile_mean                                                  0.8879    
partner_attractiveness_longterm                              3.6e-13 ***
includedhorm_contra                                           0.0014 ** 
fertile                                                       0.4124    
menstruationpre:includedhorm_contra                           0.3230    
menstruationyes:includedhorm_contra                           0.4854    
partner_attractiveness_longterm:includedhorm_contra           0.1403    
partner_attractiveness_longterm:fertile                       0.9986    
includedhorm_contra:fertile                                   0.0016 ** 
partner_attractiveness_longterm:includedhorm_contra:fertile   0.7083    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_longterm +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_longterm:included +  
    partner_attractiveness_longterm:fertile + included:fertile +  
    partner_attractiveness_longterm:included:fertile
   Data: diary

REML criterion at convergence: 69281

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.053 -0.615 -0.005  0.616  4.653 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5132   0.716                     
          menstruationpre 0.0888   0.298    -0.10            
          menstruationyes 0.1059   0.325    -0.12  0.43      
          fertile         0.4056   0.637    -0.18  0.26  0.32
 Residual                 0.6775   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                              Estimate Std. Error         df t value Pr(>|t|)
(Intercept)                                                    3.02454    0.06187 1367.53463   48.89  < 2e-16
menstruationpre                                               -0.00521    0.03074  779.09857   -0.17   0.8654
menstruationyes                                                0.00908    0.03026  739.19397    0.30   0.7642
fertile_mean                                                  -0.04289    0.28356 1526.10554   -0.15   0.8798
partner_attractiveness_longterm                                0.27570    0.03739 1061.16711    7.37  3.3e-13
includedhorm_contra                                            0.15851    0.05103 1017.14328    3.11   0.0019
fertile                                                        0.04149    0.06285  852.92469    0.66   0.5094
menstruationpre:includedhorm_contra                           -0.03071    0.03946  776.32411   -0.78   0.4366
menstruationyes:includedhorm_contra                           -0.01458    0.03941  767.20290   -0.37   0.7115
partner_attractiveness_longterm:includedhorm_contra           -0.08151    0.05017 1051.15564   -1.62   0.1045
partner_attractiveness_longterm:fertile                       -0.01302    0.05720  925.94180   -0.23   0.8200
includedhorm_contra:fertile                                   -0.20626    0.07987  831.24083   -2.58   0.0100
partner_attractiveness_longterm:includedhorm_contra:fertile    0.04767    0.07614  882.24193    0.63   0.5314
                                                               
(Intercept)                                                 ***
menstruationpre                                                
menstruationyes                                                
fertile_mean                                                   
partner_attractiveness_longterm                             ***
includedhorm_contra                                         ** 
fertile                                                        
menstruationpre:includedhorm_contra                            
menstruationyes:includedhorm_contra                            
partner_attractiveness_longterm:includedhorm_contra            
partner_attractiveness_longterm:fertile                        
includedhorm_contra:fertile                                 ** 
partner_attractiveness_longterm:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.0055124 (tol = 0.002, component 1)

Partner’s short-term vs long-term attractiveness

We also test this specification of the short-term vs. long-term moderator prediction, but we think this is a suboptimal way to test it.

model %>%
  test_moderator_correction("partner_st_vs_lt", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69583 69689 -34778 69557 NA NA NA
with_mod 15 69587 69710 -34778 69557 0.009146 2 0.9954
with_mod_ranef 24 69357 69554 -34655 69309 247.6 9 3.237e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_st_vs_lt + included + fertile + menstruation:included +  
    partner_st_vs_lt:included + partner_st_vs_lt:fertile + included:fertile +  
    partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 69620

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.148 -0.627 -0.004  0.631  4.547 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.540    0.735   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                 Estimate   Std. Error           df t value Pr(>|t|)    
(Intercept)                                      3.023442     0.063655  1364.811915   47.50  < 2e-16 ***
menstruationpre                                 -0.008523     0.025764 25957.856725   -0.33  0.74078    
menstruationyes                                  0.017769     0.024284 26060.510662    0.73  0.46433    
fertile_mean                                    -0.097711     0.290280  1484.241774   -0.34  0.73646    
partner_st_vs_lt                                -0.062515     0.034806  1110.941080   -1.80  0.07275 .  
includedhorm_contra                              0.182220     0.052081  1322.793226    3.50  0.00048 ***
fertile                                          0.043056     0.052278 25955.434042    0.82  0.41017    
menstruationpre:includedhorm_contra             -0.033428     0.033077 25954.498888   -1.01  0.31221    
menstruationyes:includedhorm_contra             -0.023006     0.031832 26039.190398   -0.72  0.46985    
partner_st_vs_lt:includedhorm_contra             0.012132     0.044309  1103.215236    0.27  0.78428    
partner_st_vs_lt:fertile                         0.001752     0.040271 26073.884622    0.04  0.96531    
includedhorm_contra:fertile                     -0.206401     0.066136 26070.519146   -3.12  0.00181 ** 
partner_st_vs_lt:includedhorm_contra:fertile     0.000886     0.050763 26043.198165    0.02  0.98607    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_st_vs_lt +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_st_vs_lt:included + partner_st_vs_lt:fertile +  
    included:fertile + partner_st_vs_lt:included:fertile
   Data: diary

REML criterion at convergence: 69369

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.043 -0.615 -0.005  0.615  4.664 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5599   0.748                     
          menstruationpre 0.0886   0.298    -0.10            
          menstruationyes 0.1056   0.325    -0.13  0.43      
          fertile         0.4078   0.639    -0.18  0.26  0.32
 Residual                 0.6777   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                               Estimate Std. Error         df t value Pr(>|t|)    
(Intercept)                                     3.02498    0.06431 1339.70900   47.04  < 2e-16 ***
menstruationpre                                -0.00418    0.03074  778.19918   -0.14  0.89183    
menstruationyes                                 0.01012    0.03025  736.34308    0.33  0.73817    
fertile_mean                                   -0.09712    0.29301 1495.39395   -0.33  0.74034    
partner_st_vs_lt                               -0.06552    0.03529 1020.80858   -1.86  0.06364 .  
includedhorm_contra                             0.17944    0.05301 1010.13919    3.39  0.00074 ***
fertile                                         0.04207    0.06323  850.98934    0.67  0.50601    
menstruationpre:includedhorm_contra            -0.03159    0.03946  775.47866   -0.80  0.42357    
menstruationyes:includedhorm_contra            -0.01539    0.03940  764.67496   -0.39  0.69611    
partner_st_vs_lt:includedhorm_contra            0.01783    0.04489 1014.31395    0.40  0.69125    
partner_st_vs_lt:fertile                        0.00989    0.05047  847.16617    0.20  0.84467    
includedhorm_contra:fertile                    -0.20280    0.08016  826.14069   -2.53  0.01159 *  
partner_st_vs_lt:includedhorm_contra:fertile   -0.01703    0.06381  829.64346   -0.27  0.78965    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00607917 (tol = 0.002, component 1)

Partner’s mate value

long scale
model %>%
  test_moderator_correction("MV_P", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69585 69692 -34780 69559 NA NA NA
with_mod 15 69586 69709 -34778 69556 3.142 2 0.2078
with_mod_ranef 24 69358 69555 -34655 69310 246.1 9 6.707e-48

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_P_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69569 69676 -34772 69543 NA NA NA
with_mod 15 69570 69693 -34770 69540 3.013 2 0.2217
with_mod_ranef 24 69342 69539 -34647 69294 246.2 9 6.435e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    MV_P_short + included + fertile + menstruation:included +  
    MV_P_short:included + MV_P_short:fertile + included:fertile +      MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 69601

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.145 -0.628 -0.003  0.629  4.516 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.532    0.730   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                          Estimate  Std. Error          df t value  Pr(>|t|)    
(Intercept)                                2.32322     0.16568  1155.17778   14.02   < 2e-16 ***
menstruationpre                           -0.00948     0.02576 25960.80006   -0.37   0.71302    
menstruationyes                            0.01687     0.02428 26064.30989    0.69   0.48713    
fertile_mean                              -0.14728     0.28832  1490.21714   -0.51   0.60956    
MV_P_short                                 0.21219     0.04557  1129.25717    4.66 0.0000036 ***
includedhorm_contra                        0.75951     0.21006  1113.48064    3.62   0.00031 ***
fertile                                    0.34960     0.18816 26006.22159    1.86   0.06318 .  
menstruationpre:includedhorm_contra       -0.03248     0.03307 25957.50688   -0.98   0.32617    
menstruationyes:includedhorm_contra       -0.02231     0.03183 26043.11330   -0.70   0.48325    
MV_P_short:includedhorm_contra            -0.17366     0.06064  1101.97808   -2.86   0.00427 ** 
MV_P_short:fertile                        -0.09155     0.05381 26023.44087   -1.70   0.08892 .  
includedhorm_contra:fertile               -0.46168     0.24309 25979.43535   -1.90   0.05755 .  
MV_P_short:includedhorm_contra:fertile     0.07627     0.06982 25987.12278    1.09   0.27469    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + MV_P_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + MV_P_short:included + MV_P_short:fertile +  
    included:fertile + MV_P_short:included:fertile
   Data: diary

REML criterion at convergence: 69351

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.047 -0.617 -0.005  0.616  4.668 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5502   0.742                     
          menstruationpre 0.0884   0.297    -0.11            
          menstruationyes 0.1060   0.326    -0.12  0.43      
          fertile         0.4109   0.641    -0.17  0.27  0.33
 Residual                 0.6777   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                         Estimate Std. Error         df t value  Pr(>|t|)    
(Intercept)                               2.32971    0.16760 1083.78850   13.90   < 2e-16 ***
menstruationpre                          -0.00502    0.03072  778.27181   -0.16   0.87014    
menstruationyes                           0.00927    0.03027  735.20148    0.31   0.75952    
fertile_mean                             -0.14748    0.29124 1502.28377   -0.51   0.61267    
MV_P_short                                0.21089    0.04613 1040.31959    4.57 0.0000054 ***
includedhorm_contra                       0.75037    0.21246 1025.69678    3.53   0.00043 ***
fertile                                   0.34929    0.23473  889.25877    1.49   0.13709    
menstruationpre:includedhorm_contra      -0.03095    0.03943  775.50088   -0.78   0.43270    
menstruationyes:includedhorm_contra      -0.01497    0.03942  763.43491   -0.38   0.70429    
MV_P_short:includedhorm_contra           -0.17184    0.06133 1016.04022   -2.80   0.00518 ** 
MV_P_short:fertile                       -0.09204    0.06723  873.51308   -1.37   0.17138    
includedhorm_contra:fertile              -0.48746    0.30446  862.35209   -1.60   0.10973    
MV_P_short:includedhorm_contra:fertile    0.08519    0.08761  845.24081    0.97   0.33117    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00216536 (tol = 0.002, component 1)

Partner’s job and income

model %>%
  test_moderator_correction("partner_attractiveness_money", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69589 69695 -34781 69563 NA NA NA
with_mod 15 69593 69715 -34781 69563 0.0559 2 0.9724
with_mod_ranef 24 69363 69559 -34657 69315 247.7 9 3.038e-48

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    partner_attractiveness_money + included + fertile + menstruation:included +  
    partner_attractiveness_money:included + partner_attractiveness_money:fertile +  
    included:fertile + partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 69623

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.152 -0.628 -0.004  0.632  4.539 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.543    0.737   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                            Estimate  Std. Error          df t value Pr(>|t|)
(Intercept)                                                  3.02783     0.15024  1138.67284   20.15   <2e-16
menstruationpre                                             -0.00849     0.02576 25956.29863   -0.33     0.74
menstruationyes                                              0.01774     0.02428 26058.97356    0.73     0.47
fertile_mean                                                -0.13971     0.29076  1482.20534   -0.48     0.63
partner_attractiveness_money                                 0.00309     0.04279  1105.02800    0.07     0.94
includedhorm_contra                                          0.07052     0.18839  1116.49042    0.37     0.71
fertile                                                      0.07243     0.16541 26017.88363    0.44     0.66
menstruationpre:includedhorm_contra                         -0.03347     0.03308 25952.71492   -1.01     0.31
menstruationyes:includedhorm_contra                         -0.02312     0.03183 26037.85922   -0.73     0.47
partner_attractiveness_money:includedhorm_contra             0.03417     0.05877  1103.16276    0.58     0.56
partner_attractiveness_money:fertile                        -0.00939     0.04950 26017.74779   -0.19     0.85
includedhorm_contra:fertile                                 -0.25477     0.21709 26014.69037   -1.17     0.24
partner_attractiveness_money:includedhorm_contra:fertile     0.01584     0.06708 26011.81028    0.24     0.81
                                                            
(Intercept)                                              ***
menstruationpre                                             
menstruationyes                                             
fertile_mean                                                
partner_attractiveness_money                                
includedhorm_contra                                         
fertile                                                     
menstruationpre:includedhorm_contra                         
menstruationyes:includedhorm_contra                         
partner_attractiveness_money:includedhorm_contra            
partner_attractiveness_money:fertile                        
includedhorm_contra:fertile                                 
partner_attractiveness_money:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + partner_attractiveness_money +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + partner_attractiveness_money:included +  
    partner_attractiveness_money:fertile + included:fertile +  
    partner_attractiveness_money:included:fertile
   Data: diary

REML criterion at convergence: 69372

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.044 -0.614 -0.004  0.615  4.669 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5612   0.749                     
          menstruationpre 0.0886   0.298    -0.10            
          menstruationyes 0.1058   0.325    -0.12  0.43      
          fertile         0.4104   0.641    -0.17  0.26  0.32
 Residual                 0.6777   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                                           Estimate Std. Error         df t value Pr(>|t|)
(Intercept)                                                 3.02575    0.15207 1081.56709   19.90   <2e-16
menstruationpre                                            -0.00411    0.03074  778.07137   -0.13     0.89
menstruationyes                                             0.01010    0.03026  735.51802    0.33     0.74
fertile_mean                                               -0.13882    0.29350 1493.98137   -0.47     0.64
partner_attractiveness_money                                0.00433    0.04333 1020.58796    0.10     0.92
includedhorm_contra                                         0.05703    0.19075 1029.56479    0.30     0.77
fertile                                                     0.11185    0.20672  897.99872    0.54     0.59
menstruationpre:includedhorm_contra                        -0.03182    0.03946  775.31695   -0.81     0.42
menstruationyes:includedhorm_contra                        -0.01575    0.03941  763.84030   -0.40     0.69
partner_attractiveness_money:includedhorm_contra            0.03782    0.05947 1017.61233    0.64     0.52
partner_attractiveness_money:fertile                       -0.02252    0.06221  864.80627   -0.36     0.72
includedhorm_contra:fertile                                -0.22713    0.27291  853.10187   -0.83     0.41
partner_attractiveness_money:includedhorm_contra:fertile    0.00712    0.08472  822.69214    0.08     0.93
                                                            
(Intercept)                                              ***
menstruationpre                                             
menstruationyes                                             
fertile_mean                                                
partner_attractiveness_money                                
includedhorm_contra                                         
fertile                                                     
menstruationpre:includedhorm_contra                         
menstruationyes:includedhorm_contra                         
partner_attractiveness_money:includedhorm_contra            
partner_attractiveness_money:fertile                        
includedhorm_contra:fertile                                 
partner_attractiveness_money:includedhorm_contra:fertile    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00552573 (tol = 0.002, component 1)

Own mate value

long scale
model %>%
  test_moderator_correction("MV", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69586 69693 -34780 69560 NA NA NA
with_mod 15 69585 69708 -34778 69555 5.406 2 0.06701
with_mod_ranef 24 69358 69555 -34655 69310 244.8 9 1.219e-47

Error: Error in plot.eff(x[[(i - 1) * cols + j]], lattice = lattice, …): x.var = ‘fertile’ is not in the effect.

short scale
model %>%
  test_moderator_correction("MV_short", diary)
Data: diary
  Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
with_main 13 69584 69690 -34779 69558 NA NA NA
with_mod 15 69579 69702 -34774 69549 8.759 2 0.01253
with_mod_ranef 24 69354 69551 -34653 69306 242.9 9 3.186e-47

Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + (1 | person) +  
    MV_short + included + fertile + menstruation:included + MV_short:included +  
    MV_short:fertile + included:fertile + MV_short:included:fertile
   Data: diary

REML criterion at convergence: 69610

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.156 -0.630 -0.003  0.630  4.528 

Random effects:
 Groups   Name        Variance Std.Dev.
 person   (Intercept) 0.541    0.735   
 Residual             0.712    0.844   
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                        Estimate  Std. Error          df t value Pr(>|t|)    
(Intercept)                              2.81246     0.17891  1156.07563   15.72   <2e-16 ***
menstruationpre                         -0.00747     0.02576 25957.87738   -0.29   0.7720    
menstruationyes                          0.01850     0.02428 26061.19221    0.76   0.4461    
fertile_mean                            -0.13084     0.29000  1485.32425   -0.45   0.6519    
MV_short                                 0.06031     0.04521  1124.99412    1.33   0.1825    
includedhorm_contra                      0.13494     0.21902  1120.94892    0.62   0.5379    
fertile                                 -0.37576     0.19910 26069.28642   -1.89   0.0591 .  
menstruationpre:includedhorm_contra     -0.03474     0.03307 25954.19638   -1.05   0.2935    
menstruationyes:includedhorm_contra     -0.02432     0.03182 26040.06234   -0.76   0.4447    
MV_short:includedhorm_contra             0.01252     0.05819  1108.86913    0.22   0.8297    
MV_short:fertile                         0.11314     0.05199 26084.93655    2.18   0.0295 *  
includedhorm_contra:fertile              0.51017     0.25160 26027.36262    2.03   0.0426 *  
MV_short:includedhorm_contra:fertile    -0.19634     0.06651 26040.72551   -2.95   0.0032 ** 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Linear mixed model fit by REML. t-tests use Satterthwaite's method ['lmerModLmerTest']
Formula: female_mate_retention ~ menstruation + fertile_mean + MV_short +  
    included + fertile + (1 + menstruation + fertile | person) +  
    menstruation:included + MV_short:included + MV_short:fertile +  
    included:fertile + MV_short:included:fertile
   Data: diary

REML criterion at convergence: 69363

Scaled residuals: 
   Min     1Q Median     3Q    Max 
-4.051 -0.616 -0.005  0.615  4.664 

Random effects:
 Groups   Name            Variance Std.Dev. Corr             
 person   (Intercept)     0.5589   0.748                     
          menstruationpre 0.0887   0.298    -0.10            
          menstruationyes 0.1056   0.325    -0.12  0.43      
          fertile         0.4025   0.634    -0.18  0.27  0.32
 Residual                 0.6777   0.823                     
Number of obs: 26681, groups:  person, 1054

Fixed effects:
                                       Estimate Std. Error         df t value Pr(>|t|)    
(Intercept)                             2.79966    0.18125 1085.18381   15.45   <2e-16 ***
menstruationpre                        -0.00352    0.03074  778.48580   -0.11    0.909    
menstruationyes                         0.01045    0.03025  735.07503    0.35    0.730    
fertile_mean                           -0.13057    0.29267 1496.29735   -0.45    0.656    
MV_short                                0.06435    0.04581 1035.85215    1.40    0.160    
includedhorm_contra                     0.15086    0.22181 1032.51685    0.68    0.497    
fertile                                -0.29695    0.24971  850.20817   -1.19    0.235    
menstruationpre:includedhorm_contra    -0.03271    0.03946  775.62009   -0.83    0.407    
menstruationyes:includedhorm_contra    -0.01625    0.03939  763.40376   -0.41    0.680    
MV_short:includedhorm_contra            0.00732    0.05892 1021.60520    0.12    0.901    
MV_short:fertile                        0.09116    0.06529  837.52524    1.40    0.163    
includedhorm_contra:fertile             0.40993    0.31520  850.16519    1.30    0.194    
MV_short:includedhorm_contra:fertile   -0.16780    0.08346  835.90860   -2.01    0.045 *  
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
convergence code: 0
Model failed to converge with max|grad| = 0.00262519 (tol = 0.002, component 1)