Part I: Conceptual Foundations
| Time | Focus |
|---|---|
| 11:00–12:45 | Introduction and types of dyadic models |
| 12:45–14:00 | Lunch break |
| 14:00–15:30 | Estimating cross-sectional models in R |
| 15:30–15:45 | Short break |
| 15:45–16:45 | Intensive longitudinal extensions |
| 16:45–17:00 | Short break |
| 17:00–18:00 | Exercises in R |
Relevance and todays’ example dataset
“Much of what we think, do, and feel is determined not by who we are but by whom we are with.” (Kenny & Cook, 1999, p. 446)
RQ1: In romantic couples, how is provided health-related social support linked to physical activity?
Rough English translation of the original German item
“How much did you emotionally support your partner today so that they would be physically active with greater enjoyment?”Adapted from Bolger et al. (2000)
0 = not at all today
5 = very much today
Rough English translation of the original German item
“How many minutes did you spend engaging in moderate-to-vigorous physical activity today?” Adapted from Amireault & Godin (2015)
Total MVPA = solo MVPA + joint MVPA.
To show simple dyadic models we aggregate the daily diary data to obtain a “cross-sectional” dataset.
The variables now represent person-level daily averages across the study:
provided_emotional_support: average daily support providedmvpa_total: average daily total MVPA (minutes)support_distribution_plot <- ggplot(
pilot_aggregated,
aes(provided_emotional_support, y = after_stat(density))
) +
geom_histogram(
bins = 15, boundary = 0,
fill = "steelblue", color = "white", alpha = 0.75
) +
geom_density(
bounds = c(0, Inf), color = "navy", linewidth = 1.1
) +
facet_wrap(~role, nrow = 1) +
labs(x = "Average provided support", y = "Density") +
see::theme_modern(base_size = 16)Preliminary results from an ongoing systematic review (APIM use coded for \(n = 998\) eligible articles)
Various dyadic models can be used, each answering different questions!
Other approaches include the mutual-influence model, for reciprocal influence between partners (Iida et al., 2018, p. 61), and the Truth and Bias model, for separating mean-level bias from correlational accuracy in judgments of a partner (Kenny & Acitelli, 2001; West & Kenny, 2011).
Various dyadic models can be used, each answering different questions!
Other approaches include the mutual-influence model, for reciprocal influence between partners (Iida et al., 2018, p. 61), and the Truth and Bias model, for separating mean-level bias from correlational accuracy in judgments of a partner (Kenny & Acitelli, 2001; West & Kenny, 2011).
Actor and partner effects together explain some of the covariance between partners’ outcomes.
Actor and partner effects together explain some of the covariance between partners’ outcomes. \(\rightarrow\) But some covariance may remain!
Conceptually, we are esimating these two equations in a single model:
\[
\begin{gathered}
\\[0.5em]
Y_{\mathrm{male},i}
= b_{0,\mathrm{M}} + b_{1,\mathrm{M}} \times X_{\mathrm{male},i}
+ b_{2,\mathrm{M}} \times X_{\mathrm{female},i} + \epsilon_{\mathrm{male},i}
\\[2em]
Y_{\mathrm{female},i}
= b_{0,\mathrm{F}} + b_{1,\mathrm{F}} \times X_{\mathrm{female},i}
+ b_{2,\mathrm{F}} \times X_{\mathrm{male},i} + \epsilon_{\mathrm{female},i}
\end{gathered}
\]
Could we just use two separate models?
Yes, we could! But then we:
One linked set of dyads: changing a variance rescales one partner's residuals while preserving ρεF εM; changing ρεF εM preserves both residual variances. The correlation guide is scale-free, not a fitted regression line.
Sometimes:
\(\rightarrow\) Then, we may fit an exchangeable model that imposes symmetry
Likelihood-ratio test for nested models fitted to equivalent interdep data
Assumes mathematical nesting and an appropriate chi-squared reference distribution.
Df AIC BIC logLik deviance Chisq Chi Df Pr(>Chisq)
exchangeable_apim 5 617.55 628.94 -303.78 607.55
distinguishable_apim 9 611.59 632.08 -296.80 593.59 13.962 4 0.007418
exchangeable_apim
distinguishable_apim **
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Conclusion (5% level): The likelihood-ratio test provides evidence that `distinguishable_apim` fits better than `exchangeable_apim` (p = 0.00742).
In other words, these predictors express:
Drag the dot or move either set of sliders. Both equations give the same fitted change in MVPA.
Swap the arbitrary member labels: \(r_{\mathrm{M}} \mapsto r_{\mathrm{M}} \qquad r_{\mathrm{D}} \mapsto -r_{\mathrm{D}}\)
Exchangeability requires the same covariance after relabelling:
\[ \operatorname{Cov}(r_{\mathrm{M}},r_{\mathrm{D}}) = \operatorname{Cov}(r_{\mathrm{M}},-r_{\mathrm{D}}) = -\operatorname{Cov}(r_{\mathrm{M}},r_{\mathrm{D}}) \quad\Longrightarrow\quad \operatorname{Cov}(r_{\mathrm{M}},r_{\mathrm{D}})=0 \]
Zero does not mean independent partners: \(\operatorname{Cov}(e_1,e_2) =\operatorname{Var}(r_{\mathrm{M}})-\operatorname{Var}(r_{\mathrm{D}})\)
Their residual association is encoded by the relative elevator and seesaw variances.
Once we fit an APIM, we have already fitted a DIM—and vice versa.
We can transform values from a fitted APIM into DIM values.
Suppose \(X_i=1\) and \(X_j=1\),
then our DIM coordinates are:
\[ X_{\mathrm{mean}}=1,\qquad X_{\mathrm{dev},i}=0. \]
So,
\[ \hat Y_i=1\times a+1\times p \]
implies
\[ \hat Y_i=1\times b_{\mathrm{mean}}+0\times b_{\mathrm{dev}} =b_{\mathrm{mean}}. \]
Therefore,
\[ b_{\mathrm{mean}}=a+p. \]
Now suppose \(X_i=1\) and \(X_j=-1\) (imagine centered values),
then the DIM coordinates are:
\[ X_{\mathrm{mean}}=0,\qquad X_{\mathrm{dev},i}=1 \]
(\(i\) is 1 higher than the mean and 2 higher than partner \(j\)).
So,
\[ \hat Y_i=1\times a+(-1)\times p \]
implies for the higher partner:
\[ \hat Y_i=0\times b_{\mathrm{mean}}+1\times b_{\mathrm{dev}} =b_{\mathrm{dev}}. \]
Therefore,
\[ b_{\mathrm{dev}}=a-p. \]
Drag the dot or move either set of sliders. Both equations give the same fitted change in MVPA.
the unconstrained distinguishable version of the DIM
a re-parametrization of the distinguishable APIM
Just like the DIM, it estimates how predictor dyad mean and differences
While the DIM uses deviation from the couple mean which is opposite for each partners \(X_i - \bar{X}\), the DSM uses meaningful directed differences, e.g., \(X_\mathrm{female} - X_\mathrm{male}\).
\[ D_Y=Y_{\mathrm{F}}-Y_{\mathrm{M}} \qquad\text{and}\qquad \operatorname{Cov}(r_{\mathrm{M}},r_{\mathrm{D}})\ \text{may be non-zero.} \]
A positive \(\rho_{r_m r_d}\) means: couples whose outcomes are higher than predicted on average also tend to have a larger female–male difference than predicted.
The correlation describes a pattern across couples—not two residuals varying within one couple.
RQ2: In romantic couples, how is collaborative planning linked to physical activity?
Rough english translation of the original German item
“We have already planned precisely for tomorrow when, where, and how we will be physically active together.” Adapted from Scholz et al. (2008)
0 = not at all true today
to 5 = completely true today
We aggregate each person’s ratings into their average daily collaborative planning across the 55 days.
Constraint: \(\sigma^2_{\epsilon_{Y_F}} = \sigma^2_{\epsilon_{Y_M}}\). Without it, the estimated male outcome residual variance was negative.
Positions 1 and 2 are arbitrary. The model must be unchanged when they are swapped (Ledermann & Macho, 2009; Peugh et al., 2013).
\[ \begin{aligned} \nu_{X_1} &= \nu_{X_2}, & \nu_{Y_1} &= \nu_{Y_2} \\ \sigma^2_{\epsilon_{X_1}} &= \sigma^2_{\epsilon_{X_2}}, & \sigma^2_{\epsilon_{Y_1}} &= \sigma^2_{\epsilon_{Y_2}} \\ \operatorname{Cov}(\epsilon_{X_1},\epsilon_{Y_1}) &= \operatorname{Cov}(\epsilon_{X_2},\epsilon_{Y_2}) \end{aligned} \]
No detectable loss of fit: \(\Delta\chi^2(4) = 0.65\), \(p = .958\). Parsimony favours the exchangeable model: AIC 632.60 \(\rightarrow\) 625.25; BIC 651.60 \(\rightarrow\) 637.91.
Thank you for your attention!
\[ \operatorname{Cov} \begin{pmatrix} \epsilon_{Fi} \\ \epsilon_{Mi} \end{pmatrix} = \boldsymbol{\Sigma}_{\epsilon} = \begin{bmatrix} \sigma_{\epsilon_F}^{2} & \rho_{\epsilon_F\epsilon_M}\sigma_{\epsilon_F}\sigma_{\epsilon_M} \\ \rho_{\epsilon_F\epsilon_M}\sigma_{\epsilon_F}\sigma_{\epsilon_M} & \sigma_{\epsilon_M}^{2} \end{bmatrix} \]
\[ \boldsymbol{\Sigma}_{\mathrm{model}} = \begin{bmatrix} \boldsymbol{\Sigma}_{\epsilon} & \boldsymbol{0} & \boldsymbol{0} & \cdots \\ \boldsymbol{0} & \boldsymbol{\Sigma}_{\epsilon} & \boldsymbol{0} & \cdots \\ \boldsymbol{0} & \boldsymbol{0} & \boldsymbol{\Sigma}_{\epsilon} & \cdots \\ \vdots & \vdots & \vdots & \ddots \end{bmatrix} \]
For arbitrary member positions 1 and 2, the residual variances must be equal:
\[ \operatorname{Cov} \begin{pmatrix} \epsilon_{1i} \\ \epsilon_{2i} \end{pmatrix} = \boldsymbol{\Sigma}_{\epsilon,\mathrm{exch}} = \begin{bmatrix} \sigma_{\epsilon}^{2} & \rho_{\epsilon_1\epsilon_2}\sigma_{\epsilon}^{2} \\ \rho_{\epsilon_1\epsilon_2}\sigma_{\epsilon}^{2} & \sigma_{\epsilon}^{2} \end{bmatrix} \]
\[ \begin{aligned} r_{\mathrm{M}i} &= \bar{\epsilon}_i = \frac{\epsilon_{1i}+\epsilon_{2i}}{2}, \\ r_{\mathrm{D},mi} &= \epsilon_{mi}-r_{\mathrm{M}i} \quad (m=1,2), \qquad r_{\mathrm{D},1i} = \frac{\epsilon_{1i}-\epsilon_{2i}}{2} = -r_{\mathrm{D},2i}. \end{aligned} \]
Using the arbitrary orientation \(r_{\mathrm{D}i}=r_{\mathrm{D},1i}\), exchangeability gives:
\[ \operatorname{Cov} \begin{pmatrix} r_{\mathrm{M}i} \\ r_{\mathrm{D}i} \end{pmatrix} = \begin{bmatrix} \sigma_{r_\mathrm{M}}^{2} & 0 \\ 0 & \sigma_{r_\mathrm{D}}^{2} \end{bmatrix}. \]
Back-transform to the exchangeable APIM: partner covariance need not be zero.
\[ \begin{bmatrix} \color{#1769AA}{\sigma_{r_\mathrm{M}}^{2}+\sigma_{r_\mathrm{D}}^{2}} & \color{#7B3FA1}{\sigma_{r_\mathrm{M}}^{2}-\sigma_{r_\mathrm{D}}^{2}} \\[0.35em] \color{#7B3FA1}{\sigma_{r_\mathrm{M}}^{2}-\sigma_{r_\mathrm{D}}^{2}} & \color{#1769AA}{\sigma_{r_\mathrm{M}}^{2}+\sigma_{r_\mathrm{D}}^{2}} \end{bmatrix} = \begin{bmatrix} \color{#1769AA}{\sigma_{\epsilon}^{2}} & \color{#7B3FA1}{\rho_{\epsilon_1\epsilon_2}\sigma_{\epsilon}^{2}} \\[0.35em] \color{#7B3FA1}{\rho_{\epsilon_1\epsilon_2}\sigma_{\epsilon}^{2}} & \color{#1769AA}{\sigma_{\epsilon}^{2}} \end{bmatrix}. \]
With distinguishable roles, the directed difference may covary with the mean:
\[ r_{\mathrm{M}i}=\frac{\epsilon_{Fi}+\epsilon_{Mi}}{2}, \qquad r_{\mathrm{D}i}=\epsilon_{Fi}-\epsilon_{Mi}. \]
\[ \operatorname{Cov} \begin{pmatrix} r_{\mathrm{M}i} \\ r_{\mathrm{D}i} \end{pmatrix} = \begin{bmatrix} \sigma_{r_\mathrm{M}}^{2} & \rho_{r_\mathrm{M}r_\mathrm{D}} \sigma_{r_\mathrm{M}}\sigma_{r_\mathrm{D}} \\ \rho_{r_\mathrm{M}r_\mathrm{D}} \sigma_{r_\mathrm{M}}\sigma_{r_\mathrm{D}} & \sigma_{r_\mathrm{D}}^{2} \end{bmatrix}. \]
Back-transform to the distinguishable APIM, with \(c_{\mathrm{MD}} =\rho_{r_\mathrm{M}r_\mathrm{D}} \sigma_{r_\mathrm{M}}\sigma_{r_\mathrm{D}}\).
\[ \begin{bmatrix} \color{#1769AA}{ \sigma_{r_\mathrm{M}}^{2}+\frac{1}{4}\sigma_{r_\mathrm{D}}^{2}+c_{\mathrm{MD}}} & \color{#7B3FA1}{ \sigma_{r_\mathrm{M}}^{2}-\frac{1}{4}\sigma_{r_\mathrm{D}}^{2}} \\[0.35em] \color{#7B3FA1}{ \sigma_{r_\mathrm{M}}^{2}-\frac{1}{4}\sigma_{r_\mathrm{D}}^{2}} & \color{#B45309}{ \sigma_{r_\mathrm{M}}^{2}+\frac{1}{4}\sigma_{r_\mathrm{D}}^{2}-c_{\mathrm{MD}}} \end{bmatrix} = \begin{bmatrix} \color{#1769AA}{\sigma_{\epsilon_F}^{2}} & \color{#7B3FA1}{ \rho_{\epsilon_F\epsilon_M}\sigma_{\epsilon_F}\sigma_{\epsilon_M}} \\[0.35em] \color{#7B3FA1}{ \rho_{\epsilon_F\epsilon_M}\sigma_{\epsilon_F}\sigma_{\epsilon_M}} & \color{#B45309}{\sigma_{\epsilon_M}^{2}} \end{bmatrix}. \]
Dyadic Data Analysis