# Did people engage more with monkeypox over time relative to will smith?
monkeypox engagement over time
![[s20220623_011038.png]]
monkeypox dwell over time
![[s20220623_011214.png]]
![[s20220623_011701.png]]
# People engaged with the first headline quite bit
```r
r
gt; d0_feed[item_order == 0, .N, keyby = .(condition, engage)]
condition engage N
1: -0.5 0 260
2: -0.5 1 173
3: -0.5 2 27
4: -0.5 3 7
5: -0.5 5 1
6: 0.5 0 259
7: 0.5 1 182
8: 0.5 2 25
9: 0.5 3 5
```
Controlling for first headline engagement makes treatment effect much stronger!
```r
# importance
# no control
rgt; summaryh(m1_imp)
term results
1: (Intercept) b = 3.91, SE = 0.04, t(874) = 88.81, p < .001, r = 0.95
2: condition b = 0.27, SE = 0.09, t(874) = 3.06, p = .002, r = 0.10
# stronger
rgt; summaryh(m1_imp)
term results
1: (Intercept) b = 3.91, SE = 0.04, t(872) = 91.82, p < .001, r = 0.95
2: condition b = 0.29, SE = 0.09, t(872) = 3.45, p < .001, r = 0.12
3: engage_firstheadline b = 0.51, SE = 0.06, t(872) = 7.94, p < .001, r = 0.26
4: condition:engage_firstheadline b = 0.09, SE = 0.13, t(872) = 0.73, p = .468, r = 0.03
# newsworthiness
rgt; summaryh(m1_imp)
term results
1: (Intercept) b = 4.01, SE = 0.04, t(874) = 89.44, p < .001, r = 0.95
2: condition b = 0.23, SE = 0.09, t(874) = 2.54, p = .011, r = 0.09
rgt; summaryh(m1_imp)
term results
1: (Intercept) b = 4.02, SE = 0.04, t(872) = 92.87, p < .001, r = 0.95
2: condition b = 0.25, SE = 0.09, t(872) = 2.94, p = .003, r = 0.10
3: engage_firstheadline b = 0.55, SE = 0.06, t(872) = 8.43, p < .001, r = 0.28
4: condition:engage_firstheadline b = 0.08, SE = 0.13, t(872) = 0.59, p = .555, r = 0.02
# rating combined
rgt; summaryh(m1_imp)
term results
1: (Intercept) b = 3.96, SE = 0.04, t(874) = 92.30, p < .001, r = 0.95
2: condition b = 0.25, SE = 0.09, t(874) = 2.89, p = .004, r = 0.10
rgt; m1_imp <- lm(rating_combined ~ condition * engage_firstheadline, temp2)
rgt; summaryh(m1_imp)
term results
1: (Intercept) b = 3.96, SE = 0.04, t(872) = 95.90, p < .001, r = 0.96
2: condition b = 0.27, SE = 0.08, t(872) = 3.32, p < .001, r = 0.11
3: engage_firstheadline b = 0.53, SE = 0.06, t(872) = 8.50, p < .001, r = 0.28
4: condition:engage_firstheadline b = 0.08, SE = 0.12, t(872) = 0.68, p = .494, r = 0.02
```