I found no evidence of mediation in any models

quick summary of significant findings of moderation:

ANALYTIC

whiteVother * analytic_w1 non-significant

whiteVother * analytic_w1 + partyID b = 0.47, p = .076

whiteVother * analytic_w2 b = 1.03, p = 0.001

whiteVother * analytic_w2 + partyID b = 1.06, p = 0.0008

blackVother * analytic_w2 b = -0.74 p = .069

blackVother * analytic_w2 + partyID b = -0.81, p = .044

ruralVother * analytic_w3 b = 0.69, p = .077

ruralVother * analytic_w3 + partyID b = 0.66, p = 0.081

AFFECT

whiteVother * affect_w1 non-significant

whiteVother * affect_w1 b = -0.57, p = .022

ruralVother * affect_w3 b = -0.88, p = .019

ruralVother * affect_w3 + partyID b = -0.80, p = .027

THREAT

whiteVother * threat_w1 non-significant

whiteVother * threat_w1 + partyID b = 0.55, p = .055

whiteVother * threat_w2 b = 0.65, p = .061

whiteVother * threat_w2 + partyID b = 0.73, p = .036

ANALYTIC - AFFECT

whiteVother * (analytic-affect)_w1 non-significant

whiteVother * (analytic-affect)_w1 + partyID b = 0.35, p = .017

whiteVother * (analytic-affect)_w2 b = 0.46, p = .013

whiteVother * (analytic-affect)_w2 + partyID b = 0.49, p = .008

ruralVother * (analytic-affect)_w3 b = 0.52, p = .020

ruralVother * (analytic-affect)_w3 + partyID b = 0.48, p = .024

edu.c * (analytic-affect)_w2 b = 0.06, p = .088

edu.c * (analytic-affect)_w2 + partyID b = 0.06, p = .072

ANALYTIC - THREAT

whiteVother * (analytic - threat)_w2 b = 1.47, p = .008

whiteVother * (analytic - threat)_w2 + partyID b = 1.42, p = .009

0. set up

libraries and data sets

LIWC set up

data set up

wide merged data

I. descriptives + visualizations

- means & SDs

##                      M    SD Min Max
## age              48.59 15.55   0  89
## education        14.33  2.83   1  17
## SESladder         5.67  1.92   1  10
## vaxxAttitudes_w1  0.61  2.15  -3   3
## vaxxAttitudes_w2  0.38  2.10  -3   3
## vaxxBehavior      3.23  1.17   1   4

- white vs. other

## 
## other white 
##  1050  2186
## 
## other white 
## 0.324 0.676
describeBy(x[1:4], x[6])
## 
##  Descriptive statistics by group 
## race_factor_w: other
##                  vars    n mean   sd median trimmed  mad min max range  skew
## vaxxAttitudes_w1    1 1050 0.57 2.06    1.0    0.71 2.97  -3   3     6 -0.43
## vaxxAttitudes_w2    2  739 0.28 2.03    0.0    0.35 2.97  -3   3     6 -0.24
## vaxxBehavior        3  281 3.44 1.03    4.0    3.67 0.00   1   4     3 -1.68
## SESladder           4 1050 5.72 1.96    5.5    5.69 2.22   1  10     9  0.11
##                  kurtosis   se
## vaxxAttitudes_w1    -1.00 0.06
## vaxxAttitudes_w2    -1.02 0.07
## vaxxBehavior         1.26 0.06
## SESladder           -0.22 0.06
## ------------------------------------------------------------ 
## race_factor_w: white
##                  vars    n mean   sd median trimmed  mad min max range  skew
## vaxxAttitudes_w1    1 2186 0.65 2.18      1    0.82 2.97  -3   3     6 -0.50
## vaxxAttitudes_w2    2 1684 0.45 2.12      0    0.56 2.97  -3   3     6 -0.36
## vaxxBehavior        3  738 3.16 1.21      4    3.33 0.00   1   4     3 -1.06
## SESladder           4 2183 5.62 1.90      5    5.57 1.48   1  10     9  0.26
##                  kurtosis   se
## vaxxAttitudes_w1    -1.13 0.05
## vaxxAttitudes_w2    -1.11 0.05
## vaxxBehavior        -0.60 0.04
## SESladder           -0.38 0.04

- black vs. other

## 
## black other 
##   440  2796
## 
## black other 
## 0.136 0.864
describeBy(x[1:4], x[7])
## 
##  Descriptive statistics by group 
## race_factor_b: black
##                  vars   n  mean   sd median trimmed  mad min max range  skew
## vaxxAttitudes_w1    1 440  0.00 2.15      0    0.00 2.97  -3   3     6 -0.10
## vaxxAttitudes_w2    2 299 -0.26 2.06      0   -0.32 2.97  -3   3     6  0.09
## vaxxBehavior        3 112  3.27 1.16      4    3.46 0.00   1   4     3 -1.24
## SESladder           4 440  5.88 2.01      6    5.88 1.48   1  10     9  0.00
##                  kurtosis   se
## vaxxAttitudes_w1    -1.29 0.10
## vaxxAttitudes_w2    -1.09 0.12
## vaxxBehavior        -0.17 0.11
## SESladder           -0.20 0.10
## ------------------------------------------------------------ 
## race_factor_b: other
##                  vars    n mean   sd median trimmed  mad min max range  skew
## vaxxAttitudes_w1    1 2796 0.73 2.13      1    0.91 2.97  -3   3     6 -0.55
## vaxxAttitudes_w2    2 2124 0.49 2.08      0    0.61 2.97  -3   3     6 -0.39
## vaxxBehavior        3  907 3.23 1.17      4    3.42 0.00   1   4     3 -1.20
## SESladder           4 2793 5.62 1.90      5    5.57 1.48   1  10     9  0.24
##                  kurtosis   se
## vaxxAttitudes_w1    -1.02 0.04
## vaxxAttitudes_w2    -1.04 0.05
## vaxxBehavior        -0.25 0.04
## SESladder           -0.34 0.04

- rural vs. other

## 
## other rural 
##  2603   678
## 
## other rural 
## 0.793 0.207
describeBy(x[1:4], x[5])
## 
##  Descriptive statistics by group 
## area_factor: other
##                  vars    n mean   sd median trimmed  mad min max range  skew
## vaxxAttitudes_w1    1 2603 0.71 2.11      1    0.88 2.97  -3   3     6 -0.53
## vaxxAttitudes_w2    2 1946 0.46 2.08      0    0.57 2.97  -3   3     6 -0.36
## vaxxBehavior        3  803 3.32 1.11      4    3.52 0.00   1   4     3 -1.38
## SESladder           4 2600 5.60 1.92      5    5.55 1.48   1  10     9  0.21
##                  kurtosis   se
## vaxxAttitudes_w1    -1.01 0.04
## vaxxAttitudes_w2    -1.05 0.05
## vaxxBehavior         0.27 0.04
## SESladder           -0.31 0.04
## ------------------------------------------------------------ 
## area_factor: rural
##                  vars   n mean   sd median trimmed  mad min max range  skew
## vaxxAttitudes_w1    1 678 0.26 2.26      0    0.32 2.97  -3   3     6 -0.23
## vaxxAttitudes_w2    2 506 0.09 2.16      0    0.12 2.97  -3   3     6 -0.16
## vaxxBehavior        3 225 2.91 1.32      4    3.01 0.00   1   4     3 -0.63
## SESladder           4 678 5.93 1.89      6    5.88 1.48   1  10     9  0.23
##                  kurtosis   se
## vaxxAttitudes_w1    -1.38 0.09
## vaxxAttitudes_w2    -1.25 0.10
## vaxxBehavior        -1.41 0.09
## SESladder           -0.43 0.07

- which races live in what areas? (1 black + rural : 10 white + rural)

table(dw$area_factor, dw$race_factor_w)
##        
##         other white
##   other   929  1638
##   rural   121   548
table(dw$area_factor, dw$race_factor_b) 
##        
##         black other
##   other   386  2181
##   rural    54   615

- w1 LIWC ratings for media

##    mediaOutlet analytic affect threat
## 1          ABC   -0.156  0.061  0.876
## 2          AOL    1.291 -0.332  1.445
## 3          CBS   -0.187  0.033  0.428
## 4          CNN   -0.644 -0.053 -0.866
## 5          Fox   -1.813  0.506 -1.122
## 6        MSNBC   -0.918  0.023 -0.767
## 7          NBC   -0.029  2.590 -1.748
## 8          NPR   -0.802 -0.408 -0.575
## 9          NYT    1.120 -0.301  1.149
## 10         PBS   -0.178 -0.024  0.342
## 11    USAToday    0.923 -0.192  0.726
## 12         WSJ    1.395 -1.903  0.112

- w2 LIWC ratings for media

##    mediaOutlet analytic affect threat
## 1          ABC   -0.317  0.093  0.876
## 2          AOL    1.260 -0.075  1.445
## 3          CBS    0.342 -0.018  0.428
## 4          CNN   -1.236 -0.102 -0.866
## 5          Fox   -1.531  0.362 -1.122
## 6        MSNBC   -0.841 -0.120 -0.767
## 7          NBC   -0.142  2.448 -1.748
## 8          NPR   -0.738 -0.186 -0.575
## 9          NYT    1.101 -0.173  1.149
## 10         PBS   -0.229 -0.100  0.342
## 11    USAToday    0.978  0.053  0.726
## 12         WSJ    1.352 -2.182  0.112

- analytic

w1

w2

- affect

w1

w2

- threat

w1

w2

correlations

- LIWC ratings

x1 <- cbind.data.frame(w1$affect, 
                       w1$analytic, 
                       w1$threat,
                       w2$affect,
                       w2$analytic,
                       w2$threat)

cor1 <- cor(x1, use = "complete.obs")

ggcorrplot(cor1, type = "lower",
   lab = TRUE, title = "", show.legend = F)

- vaxx attitudes/behavior

- media index scores

- media index difference scores

II. Analyses

A. Analytic

i. Wave 1 (excluding partyID)

a1. vaxxAttitudes ~ ANALYTIC + ruralVother

m1.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_ANexp_w1, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9228 -1.6152  0.2759  2.2069  2.9996 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.52431    0.05083  10.316  < 2e-16 ***
## ruralVother     0.44555    0.09244   4.820  1.5e-06 ***
## index_ANexp_w1  0.26017    0.12799   2.033   0.0422 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.143 on 3278 degrees of freedom
## Multiple R-squared:  0.008494,   Adjusted R-squared:  0.007889 
## F-statistic: 14.04 on 2 and 3278 DF,  p-value: 8.48e-07

a2. vaxxAttitudes ~ ANALYTIC * ruralVother

m2.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_ANexp_w1, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9149 -1.6186  0.2765  2.2100  3.0386 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.52713    0.05410   9.744  < 2e-16 ***
## ruralVother                 0.43698    0.10820   4.039  5.5e-05 ***
## index_ANexp_w1              0.27533    0.16207   1.699   0.0894 .  
## ruralVother:index_ANexp_w1 -0.04943    0.32414  -0.153   0.8788    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.143 on 3277 degrees of freedom
## Multiple R-squared:  0.008501,   Adjusted R-squared:  0.007593 
## F-statistic: 9.365 on 3 and 3277 DF,  p-value: 3.668e-06

b1. vaxxAttitudes ~ ANALYTIC + whiteVother

m3.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8799 -1.5697  0.3564  2.2620  2.7905 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.63835    0.04460  14.311   <2e-16 ***
## whiteVother    -0.12284    0.07958  -1.544    0.123    
## index_ANexp_w1  0.28394    0.12832   2.213    0.027 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.149 on 3278 degrees of freedom
## Multiple R-squared:  0.002192,   Adjusted R-squared:  0.001583 
## F-statistic: 3.601 on 2 and 3278 DF,  p-value: 0.02741
- mediation analysis - NO MEDIATION
summary(m.ac <- lm(vaxxAttitudes_w1 ~ whiteVother, data = dw)) #NS
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6542 -1.5333  0.3458  2.3458  2.4667 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.59375    0.03981  14.914   <2e-16 ***
## whiteVother -0.12083    0.07963  -1.517    0.129    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.151 on 3279 degrees of freedom
## Multiple R-squared:  0.0007018,  Adjusted R-squared:  0.000397 
## F-statistic: 2.303 on 1 and 3279 DF,  p-value: 0.1292
summary(m.ab <- lm(vaxxAttitudes_w1 ~  index_ANexp_w1, data = dw)) #sig
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ index_ANexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8486 -1.5986  0.3561  2.2847  2.7061 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.65842    0.04268  15.428   <2e-16 ***
## index_ANexp_w1  0.28168    0.12834   2.195   0.0283 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.15 on 3279 degrees of freedom
## Multiple R-squared:  0.001467,   Adjusted R-squared:  0.001162 
## F-statistic: 4.817 on 1 and 3279 DF,  p-value: 0.02825
summary(m.abc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1, data = dw))
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8799 -1.5697  0.3564  2.2620  2.7905 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.63835    0.04460  14.311   <2e-16 ***
## whiteVother    -0.12284    0.07958  -1.544    0.123    
## index_ANexp_w1  0.28394    0.12832   2.213    0.027 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.149 on 3278 degrees of freedom
## Multiple R-squared:  0.002192,   Adjusted R-squared:  0.001583 
## F-statistic: 3.601 on 2 and 3278 DF,  p-value: 0.02741

b2. vaxxAttitudes ~ ANALYTIC * whiteVother

m4.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_ANexp_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8643 -1.5885  0.3478  2.2761  2.9221 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.64213    0.04497  14.280   <2e-16 ***
## whiteVother                -0.09498    0.08994  -1.056   0.2910    
## index_ANexp_w1              0.31002    0.13419   2.310   0.0209 *  
## whiteVother:index_ANexp_w1  0.17853    0.26837   0.665   0.5059    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.15 on 3277 degrees of freedom
## Multiple R-squared:  0.002327,   Adjusted R-squared:  0.001414 
## F-statistic: 2.548 on 3 and 3277 DF,  p-value: 0.05419

c1. vaxxAttitudes ~ ANALYTIC + blackVother

m5.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_ANexp_w1, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8818 -1.6843  0.2755  2.2165  3.2363 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.39561    0.05949   6.650 3.43e-11 ***
## blackVother     0.69200    0.10981   6.302 3.34e-10 ***
## index_ANexp_w1  0.22093    0.12795   1.727   0.0843 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.137 on 3278 degrees of freedom
## Multiple R-squared:  0.01342,    Adjusted R-squared:  0.01282 
## F-statistic: 22.29 on 2 and 3278 DF,  p-value: 2.418e-10

c2. vaxxAttitudes ~ ANALYTIC * blackVother

m6.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_ANexp_w1, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8941 -1.6826  0.2744  2.2112  3.1452 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.38774    0.06559   5.911 3.74e-09 ***
## blackVother                 0.71244    0.13119   5.431 6.02e-08 ***
## index_ANexp_w1              0.18660    0.17578   1.062    0.289    
## blackVother:index_ANexp_w1  0.10015    0.35156   0.285    0.776    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.138 on 3277 degrees of freedom
## Multiple R-squared:  0.01344,    Adjusted R-squared:  0.01254 
## F-statistic: 14.88 on 3 and 3277 DF,  p-value: 1.266e-09

d1. vaxxAttitudes ~ ANALYTIC + education.c

m7.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_ANexp_w1, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_ANexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0376 -1.4974  0.2672  2.1165  3.6030 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.65340    0.04240  15.412  < 2e-16 ***
## edu.c           0.08902    0.01318   6.753  1.7e-11 ***
## index_ANexp_w1  0.24999    0.12756   1.960   0.0501 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.135 on 3278 degrees of freedom
## Multiple R-squared:  0.01517,    Adjusted R-squared:  0.01457 
## F-statistic: 25.25 on 2 and 3278 DF,  p-value: 1.317e-11

d2. vaxxAttitudes ~ ANALYTIC * education.c

m8.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_ANexp_w1, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_ANexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0082 -1.5042  0.2612  2.1220  3.6997 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.65368    0.04241  15.414  < 2e-16 ***
## edu.c                 0.08718    0.01423   6.125 1.01e-09 ***
## index_ANexp_w1        0.24878    0.12763   1.949   0.0513 .  
## edu.c:index_ANexp_w1 -0.01537    0.04476  -0.343   0.7314    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.136 on 3277 degrees of freedom
## Multiple R-squared:  0.0152, Adjusted R-squared:  0.0143 
## F-statistic: 16.87 on 3 and 3277 DF,  p-value: 7.183e-11

e1. vaxxAttitudes ~ ANALYTIC + (black vs. white)

m9.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) + index_ANexp_w1, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0387 -1.6519  0.3135  2.1201  3.2152 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.54824    0.05091  10.770  < 2e-16 ***
## bVw             0.64109    0.11181   5.734 1.07e-08 ***
## bwVo            0.36455    0.06723   5.423 6.30e-08 ***
## index_ANexp_w1  0.20137    0.12813   1.572    0.116    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.136 on 3277 degrees of freedom
## Multiple R-squared:  0.01511,    Adjusted R-squared:  0.01421 
## F-statistic: 16.76 on 3 and 3277 DF,  p-value: 8.357e-11

e2. vaxxAttitudes ~ ANALYTIC * (black vs. white)

m10.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) * index_ANexp_w1, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) * index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0294 -1.6517  0.3104  2.1194  3.1452 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          0.54417    0.05370  10.133  < 2e-16 ***
## bVw                  0.65810    0.13375   4.921 9.06e-07 ***
## bwVo                 0.36719    0.07466   4.918 9.16e-07 ***
## index_ANexp_w1       0.18199    0.15485   1.175    0.240    
## bVw:index_ANexp_w1   0.08422    0.35949   0.234    0.815    
## bwVo:index_ANexp_w1  0.00669    0.22985   0.029    0.977    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.136 on 3275 degrees of freedom
## Multiple R-squared:  0.01513,    Adjusted R-squared:  0.01363 
## F-statistic: 10.06 on 5 and 3275 DF,  p-value: 1.419e-09

f1. vaxxAttitudes ~ ANALYTIC + (black + hispanic vs. white)

m11.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_ANexp_w1, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1560 -1.6132  0.3208  2.1235  2.9708 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.68245    0.05179  13.177  < 2e-16 ***
## bhVw            0.34062    0.09184   3.709 0.000212 ***
## bhwVo           0.31659    0.08044   3.936 8.47e-05 ***
## index_ANexp_w1  0.25088    0.12810   1.958 0.050267 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.143 on 3277 degrees of freedom
## Multiple R-squared:  0.008891,   Adjusted R-squared:  0.007984 
## F-statistic: 9.799 on 3 and 3277 DF,  p-value: 1.965e-06

f2. vaxxAttitudes ~ ANALYTIC * (black + hispanic vs. white)

m12.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_ANexp_w1, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2959 -1.6182  0.3238  2.1706  2.9740 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.68823    0.05336  12.897  < 2e-16 ***
## bhVw                  0.33529    0.10509   3.190 0.001434 ** 
## bhwVo                 0.33250    0.08780   3.787 0.000155 ***
## index_ANexp_w1        0.30481    0.16848   1.809 0.070511 .  
## bhVw:index_ANexp_w1  -0.03298    0.30059  -0.110 0.912649    
## bhwVo:index_ANexp_w1  0.13515    0.28883   0.468 0.639874    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.143 on 3275 degrees of freedom
## Multiple R-squared:  0.008967,   Adjusted R-squared:  0.007454 
## F-statistic: 5.927 on 5 and 3275 DF,  p-value: 1.838e-05

ii. Wave 2 (excluding partyID)

a1. vaxxAttitudes ~ ANALYTIC + ruralVother

m9.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_ANexp_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5061 -1.4543 -0.0968  1.8951  2.9692 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.28177    0.05738   4.911 9.67e-07 ***
## ruralVother     0.36990    0.10450   3.540 0.000408 ***
## index_ANexp_w2  0.06546    0.15369   0.426 0.670182    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005157,   Adjusted R-squared:  0.004343 
## F-statistic:  6.33 on 2 and 2442 DF,  p-value: 0.001812

a2. vaxxAttitudes ~ ANALYTIC * ruralVother

m10.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_ANexp_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5753 -1.4518 -0.0982  1.8006  3.0851 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.26286    0.05961   4.409 1.08e-05 ***
## ruralVother                 0.43692    0.11923   3.665 0.000253 ***
## index_ANexp_w2             -0.06622    0.19065  -0.347 0.728392    
## ruralVother:index_ANexp_w2  0.44499    0.38131   1.167 0.243320    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005712,   Adjusted R-squared:  0.00449 
## F-statistic: 4.674 on 3 and 2441 DF,  p-value: 0.002924

b1. vaxxAttitudes ~ ANALYTIC + whiteVother

m11.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_ANexp_w2, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4979 -1.4331 -0.2287  1.7577  2.8158 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.34875    0.05177   6.737 2.01e-11 ***
## whiteVother    -0.21291    0.09132  -2.332   0.0198 *  
## index_ANexp_w2  0.05403    0.15389   0.351   0.7256    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.094 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.002274,   Adjusted R-squared:  0.001456 
## F-statistic: 2.782 on 2 and 2442 DF,  p-value: 0.06209

b2. vaxxAttitudes ~ ANALYTIC * whiteVother

m12.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_ANexp_w2, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7711 -1.3962 -0.1661  1.6960  3.4132 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.37126    0.05214   7.120 1.41e-12 ***
## whiteVother                -0.04988    0.10428  -0.478  0.63249    
## index_ANexp_w2              0.19290    0.15954   1.209  0.22674    
## whiteVother:index_ANexp_w2  1.02667    0.31908   3.218  0.00131 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.09 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.006487,   Adjusted R-squared:  0.005266 
## F-statistic: 5.313 on 3 and 2441 DF,  p-value: 0.001194
- plot
m12.cc <- lm(vaxxAttitudes_w1 ~ race_factor_w * index_ANexp_w2, data = dw)

plot_model(m12.cc, type = "pred", terms = c("index_ANexp_w2", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1.5) +
  theme_minimal()+ 
  labs(color ='race grouping')

- mediation analysis - NO MEDIATION
summary(m.ac <- lm(vaxxAttitudes_w2 ~ whiteVother, data = dw)) #sig
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4507 -1.4507 -0.2318  1.7682  2.7682 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.34124    0.04563   7.478 1.04e-13 ***
## whiteVother -0.21894    0.09127  -2.399   0.0165 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.096 on 2450 degrees of freedom
##   (829 observations deleted due to missingness)
## Multiple R-squared:  0.002343,   Adjusted R-squared:  0.001936 
## F-statistic: 5.755 on 1 and 2450 DF,  p-value: 0.01652
summary(m.ab <- lm(vaxxAttitudes_w2 ~  index_ANexp_w2, data = dw)) #NS
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ index_ANexp_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4322 -1.3821 -0.3629  1.6360  2.6706 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.38869    0.04890   7.949 2.84e-15 ***
## index_ANexp_w2  0.05518    0.15403   0.358     0.72    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.096 on 2443 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  5.252e-05,  Adjusted R-squared:  -0.0003568 
## F-statistic: 0.1283 on 1 and 2443 DF,  p-value: 0.7202
summary(m.abc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_ANexp_w2, data = dw))
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4979 -1.4331 -0.2287  1.7577  2.8158 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.34875    0.05177   6.737 2.01e-11 ***
## whiteVother    -0.21291    0.09132  -2.332   0.0198 *  
## index_ANexp_w2  0.05403    0.15389   0.351   0.7256    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.094 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.002274,   Adjusted R-squared:  0.001456 
## F-statistic: 2.782 on 2 and 2442 DF,  p-value: 0.06209

c1. vaxxAttitudes ~ ANALYTIC + blackVother

m13.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_ANexp_w2, data = dw)
summary(m13.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4814 -1.4654  0.2489  1.5384  3.2671 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.10299    0.07045   1.462    0.144    
## blackVother     0.72491    0.12942   5.601 2.37e-08 ***
## index_ANexp_w2 -0.01628    0.15361  -0.106    0.916    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01274,    Adjusted R-squared:  0.01193 
## F-statistic: 15.75 on 2 and 2442 DF,  p-value: 1.597e-07

c2. vaxxAttitudes ~ ANALYTIC * blackVother

m13.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_ANexp_w2, data = dw)
summary(m13.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5858 -1.4466  0.0895  1.5870  3.7705 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.16140    0.07741   2.085 0.037188 *  
## blackVother                 0.57039    0.15483   3.684 0.000235 ***
## index_ANexp_w2              0.22957    0.20468   1.122 0.262144    
## blackVother:index_ANexp_w2 -0.74353    0.40936  -1.816 0.069443 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.082 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01407,    Adjusted R-squared:  0.01286 
## F-statistic: 11.61 on 3 and 2441 DF,  p-value: 1.486e-07
- plot
m13.cc <- lm(vaxxAttitudes_w2 ~ race_factor_b * index_ANexp_w2, data = dw)

plot_model(m13.cc, type = "pred", terms = c("index_ANexp_w2", "race_factor_b"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1.5) +
  theme_minimal()+ 
  labs(color ='race grouping')

d1. vaxxAttitudes ~ ANALYTIC + education.c

m14.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_ANexp_w2, data = dw)
summary(m14.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_ANexp_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0981 -1.4073  0.3064  2.0767  3.6862 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.63901    0.04984  12.820  < 2e-16 ***
## edu.c           0.09986    0.01666   5.994 2.36e-09 ***
## index_ANexp_w2 -0.20878    0.15666  -1.333    0.183    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.133 on 2444 degrees of freedom
##   (834 observations deleted due to missingness)
## Multiple R-squared:  0.01522,    Adjusted R-squared:  0.01442 
## F-statistic: 18.89 on 2 and 2444 DF,  p-value: 7.234e-09

d2. vaxxAttitudes ~ ANALYTIC * education.c

m15.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_ANexp_w2, data = dw)
summary(m15.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_ANexp_w2, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.106 -1.408  0.307  2.077  3.639 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.63905    0.04986  12.817  < 2e-16 ***
## edu.c                 0.09939    0.01797   5.532 3.51e-08 ***
## index_ANexp_w2       -0.20824    0.15688  -1.327    0.185    
## edu.c:index_ANexp_w2 -0.00390    0.05580  -0.070    0.944    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.133 on 2443 degrees of freedom
##   (834 observations deleted due to missingness)
## Multiple R-squared:  0.01522,    Adjusted R-squared:  0.01401 
## F-statistic: 12.59 on 3 and 2443 DF,  p-value: 3.631e-08

e1. vaxxAttitudes ~ ANALYTIC + (black vs. white)

m9.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) + index_ANexp_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) + index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5622 -1.4457  0.2458  1.5596  3.2719 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.24096    0.05994   4.020 6.00e-05 ***
## bVw             0.70404    0.13150   5.354 9.41e-08 ***
## bwVo            0.29992    0.07792   3.849 0.000122 ***
## index_ANexp_w2 -0.02334    0.15381  -0.152 0.879404    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01306,    Adjusted R-squared:  0.01185 
## F-statistic: 10.77 on 3 and 2441 DF,  p-value: 4.984e-07

e2. vaxxAttitudes ~ ANALYTIC * (black vs. white)

m10.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) * index_ANexp_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) * index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8502 -1.4292  0.0895  1.6509  3.7705 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          0.28919    0.06313   4.581 4.87e-06 ***
## bVw                  0.52000    0.15745   3.303 0.000972 ***
## bwVo                 0.30598    0.08763   3.492 0.000488 ***
## index_ANexp_w2       0.23495    0.18285   1.285 0.198939    
## bVw:index_ANexp_w2  -0.92176    0.41938  -2.198 0.028049 *  
## bwVo:index_ANexp_w2  0.18900    0.27406   0.690 0.490499    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.081 on 2439 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01581,    Adjusted R-squared:  0.01379 
## F-statistic: 7.835 on 5 and 2439 DF,  p-value: 2.504e-07
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_bw * index_ANexp_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w2", "race_bw"), 
           color = c("blue", "green", "purple")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1.5, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

f1. vaxxAttitudes ~ ANALYTIC + (black + hispanic vs. white)

m11.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_ANexp_w2, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5571 -1.4465 -0.0496  1.5564  2.9551 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.350647   0.059640   5.879 4.68e-09 ***
## bhVw           0.397113   0.107844   3.682 0.000236 ***
## bhwVo          0.203410   0.091080   2.233 0.025618 *  
## index_ANexp_w2 0.005101   0.154358   0.033 0.973641    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.09 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.00643,    Adjusted R-squared:  0.005209 
## F-statistic: 5.266 on 3 and 2441 DF,  p-value: 0.001276

f2. vaxxAttitudes ~ ANALYTIC * (black + hispanic vs. white)

m12.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_ANexp_w2, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_ANexp_w2, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.741 -1.400 -0.080  1.687  3.581 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.38860    0.06122   6.348 2.59e-10 ***
## bhVw                  0.20579    0.12683   1.623  0.10481    
## bhwVo                 0.19059    0.09812   1.942  0.05221 .  
## index_ANexp_w2        0.22209    0.19984   1.111  0.26653    
## bhVw:index_ANexp_w2  -1.03807    0.36102  -2.875  0.00407 ** 
## bhwVo:index_ANexp_w2  0.04697    0.34102   0.138  0.89046    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2439 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.009924,   Adjusted R-squared:  0.007894 
## F-statistic: 4.889 on 5 and 2439 DF,  p-value: 0.0001867
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_wbh * index_ANexp_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w2", "race_wbh"), 
           color = c("blue", "green", "purple", "orange")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1.5, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

iii. Wave 3 (excluding partyID)

a1. vaxxBehavior ~ ANALYTIC + ruralVother

m16.cc <- lm(vaxxBehavior ~ ruralVother + index_ANexp_w3, data = dw)
summary(m16.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4164 -0.3268  0.6434  0.6954  1.2133 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.10180    0.04854  63.897  < 2e-16 ***
## ruralVother     0.40568    0.08859   4.579 5.25e-06 ***
## index_ANexp_w3 -0.20338    0.15732  -1.293    0.196    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.158 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02182,    Adjusted R-squared:  0.01986 
## F-statistic: 11.11 on 2 and 996 DF,  p-value: 1.692e-05

a2. vaxxBehavior ~ ANALYTIC * ruralVother

m17.cc <- lm(vaxxBehavior ~ ruralVother * index_ANexp_w3, data = dw)
summary(m17.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3551 -0.3279  0.6630  0.6790  1.5918 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.07221    0.05128  59.907  < 2e-16 ***
## ruralVother                 0.49761    0.10257   4.852 1.42e-06 ***
## index_ANexp_w3             -0.40727    0.19474  -2.091   0.0367 *  
## ruralVother:index_ANexp_w3  0.69048    0.38947   1.773   0.0766 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.156 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0249, Adjusted R-squared:  0.02196 
## F-statistic:  8.47 on 3 and 995 DF,  p-value: 1.469e-05
- plot
m17.cc <- lm(vaxxBehavior ~ area_factor * index_ANexp_w3, data = dw)

plot_model(m17.cc, type = "pred", terms = c("index_ANexp_w3", "area_factor"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("vaxx behavior") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='living area grouping')

b1. vaxxBehavior ~ ANALYTIC + whiteVother

m1.cc <- lm(vaxxBehavior ~ whiteVother + index_ANexp_w3, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4728 -0.2270  0.6130  0.8227  1.0075 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.26908    0.04499  72.660  < 2e-16 ***
## whiteVother     0.23577    0.08190   2.879  0.00408 ** 
## index_ANexp_w3 -0.18646    0.15824  -1.178  0.23892    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.009467,   Adjusted R-squared:  0.007478 
## F-statistic: 4.759 on 2 and 996 DF,  p-value: 0.008766

b2. vaxxBehavior ~ ANALYTIC * whiteVother

m2.cc <- lm(vaxxBehavior ~ whiteVother * index_ANexp_w3, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5023 -0.2168  0.6225  0.8232  0.9725 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.26658    0.04558  71.667   <2e-16 ***
## whiteVother                 0.22187    0.09116   2.434   0.0151 *  
## index_ANexp_w3             -0.21078    0.17306  -1.218   0.2235    
## whiteVother:index_ANexp_w3 -0.12037    0.34612  -0.348   0.7281    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.009587,   Adjusted R-squared:  0.006601 
## F-statistic:  3.21 on 3 and 995 DF,  p-value: 0.02239

c1. vaxxBehavior ~ ANALYTIC + blackVother

m1.cc <- lm(vaxxBehavior ~ blackVother + index_ANexp_w3, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3158 -0.2551  0.7222  0.7783  0.9370 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.24117    0.06271  51.686   <2e-16 ***
## blackVother    -0.05645    0.11966  -0.472    0.637    
## index_ANexp_w3 -0.17618    0.15883  -1.109    0.268    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.17 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.001449,   Adjusted R-squared:  -0.0005566 
## F-statistic: 0.7224 on 2 and 996 DF,  p-value: 0.4858

c2. vaxxBehavior ~ ANALYTIC * blackVother

m2.cc <- lm(vaxxBehavior ~ blackVother * index_ANexp_w3, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3660 -0.2445  0.7369  0.7752  1.0609 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.22520    0.06519  49.470   <2e-16 ***
## blackVother                -0.01003    0.13039  -0.077    0.939    
## index_ANexp_w3             -0.31607    0.22267  -1.419    0.156    
## blackVother:index_ANexp_w3  0.39924    0.44535   0.896    0.370    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.17 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.002254,   Adjusted R-squared:  -0.0007539 
## F-statistic: 0.7494 on 3 and 995 DF,  p-value: 0.5228

d1. vaxxBehavior ~ ANALYTIC + education.c

m1.cc <- lm(vaxxBehavior ~ edu.c + index_ANexp_w3, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4422 -0.3137  0.6392  0.7408  1.5539 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.19951    0.04162  76.870  < 2e-16 ***
## edu.c           0.05652    0.01405   4.024 6.16e-05 ***
## index_ANexp_w3 -0.17966    0.15757  -1.140    0.255    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.16 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0172, Adjusted R-squared:  0.01523 
## F-statistic: 8.717 on 2 and 996 DF,  p-value: 0.0001766

d2. vaxxBehavior ~ ANALYTIC * education.c

m2.cc <- lm(vaxxBehavior ~ edu.c * index_ANexp_w3, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4318 -0.3137  0.6389  0.7388  1.5719 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.19893    0.04177  76.586  < 2e-16 ***
## edu.c                 0.05783    0.01587   3.645 0.000281 ***
## index_ANexp_w3       -0.18429    0.15978  -1.153 0.249041    
## edu.c:index_ANexp_w3  0.01148    0.06448   0.178 0.858711    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.161 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01723,    Adjusted R-squared:  0.01427 
## F-statistic: 5.816 on 3 and 995 DF,  p-value: 0.0006112

e1. vaxxBehavior ~ ANALYTIC + (black vs. white)

m9.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + index_ANexp_w3, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5459 -0.2248  0.6328  0.8227  1.0089 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.29283    0.05308  62.036   <2e-16 ***
## bVw            -0.11702    0.12068  -0.970   0.3324    
## bwVo            0.16659    0.07115   2.341   0.0194 *  
## index_ANexp_w3 -0.18783    0.15818  -1.187   0.2353    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.164 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01125,    Adjusted R-squared:  0.008268 
## F-statistic: 3.773 on 3 and 995 DF,  p-value: 0.01039

e2. vaxxBehavior ~ ANALYTIC * (black vs. white)

m10.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * index_ANexp_w3, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * index_ANexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4916 -0.2072  0.5369  0.8254  1.0609 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          3.28741    0.05491  59.864   <2e-16 ***
## bVw                 -0.07457    0.13174  -0.566   0.5715    
## bwVo                 0.18896    0.07923   2.385   0.0173 *  
## index_ANexp_w3      -0.23314    0.20330  -1.147   0.2517    
## bVw:index_ANexp_w3   0.36509    0.45058   0.810   0.4180    
## bwVo:index_ANexp_w3  0.20000    0.31249   0.640   0.5223    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 993 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01207,    Adjusted R-squared:  0.007093 
## F-statistic: 2.426 on 5 and 993 DF,  p-value: 0.03378

f1. vaxxBehavior ~ ANALYTIC + (black + hispanic vs. white)

m11.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) + index_ANexp_w3, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) + index_ANexp_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5847 -0.2271  0.6687  0.8225  1.0183 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.33023    0.05364  62.090   <2e-16 ***
## bhVw           -0.15680    0.09619  -1.630   0.1034    
## bhwVo           0.20402    0.08480   2.406   0.0163 *  
## index_ANexp_w3 -0.19752    0.15828  -1.248   0.2124    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.164 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01189,    Adjusted R-squared:  0.008911 
## F-statistic: 3.991 on 3 and 995 DF,  p-value: 0.007706

f2. vaxxBehavior ~ ANALYTIC * (black + hispanic vs. white)

m12.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) * index_ANexp_w3, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) * index_ANexp_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5924 -0.2116  0.6688  0.8241  0.9725 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.325542   0.056241  59.130   <2e-16 ***
## bhVw                 -0.134931   0.107192  -1.259   0.2084    
## bhwVo                 0.204857   0.093926   2.181   0.0294 *  
## index_ANexp_w3       -0.239424   0.252687  -0.948   0.3436    
## bhVw:index_ANexp_w3   0.174193   0.375248   0.464   0.6426    
## bhwVo:index_ANexp_w3 -0.003464   0.456579  -0.008   0.9939    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 993 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01211,    Adjusted R-squared:  0.007135 
## F-statistic: 2.434 on 5 and 993 DF,  p-value: 0.03323

i. Wave 1

a1. vaxxAttitudes ~ ANALYTIC + ruralVother + partyID

m1.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3414 -1.2726  0.0812  1.7796  3.1685 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.43425    0.05079   8.550  < 2e-16 ***
## ruralVother     0.30239    0.09090   3.327 0.000888 ***
## index_ANexp_w1  0.16110    0.12607   1.278 0.201379    
## DvR            -0.96681    0.08288 -11.665  < 2e-16 ***
## IvDR            0.51622    0.09336   5.530 3.46e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.09 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.05863,    Adjusted R-squared:  0.05748 
## F-statistic: 50.85 on 4 and 3266 DF,  p-value: < 2.2e-16

a2. vaxxAttitudes ~ ANALYTIC * ruralVother + partyID

m2.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3218 -1.2685  0.0865  1.7798  3.2402 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.44158    0.05381   8.206 3.24e-16 ***
## ruralVother                 0.27968    0.10628   2.632  0.00854 ** 
## index_ANexp_w1              0.20113    0.15909   1.264  0.20623    
## DvR                        -0.96711    0.08289 -11.667  < 2e-16 ***
## IvDR                        0.51712    0.09339   5.537 3.32e-08 ***
## ruralVother:index_ANexp_w1 -0.13055    0.31641  -0.413  0.67993    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.05868,    Adjusted R-squared:  0.05724 
## F-statistic: 40.71 on 5 and 3265 DF,  p-value: < 2.2e-16

b1. vaxxAttitudes ~ ANALYTIC + whiteVother + partyID

m11.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4738 -1.3787  0.1302  1.7181  3.3284 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.45040    0.04564   9.868  < 2e-16 ***
## whiteVother    -0.40375    0.08095  -4.988 6.43e-07 ***
## index_ANexp_w1  0.15459    0.12581   1.229    0.219    
## DvR            -1.12242    0.08575 -13.089  < 2e-16 ***
## IvDR            0.49178    0.09335   5.268 1.47e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.086 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06258,    Adjusted R-squared:  0.06143 
## F-statistic: 54.51 on 4 and 3266 DF,  p-value: < 2.2e-16

b2. vaxxAttitudes ~ ANALYTIC * whiteVother + partyID

m22.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m22.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3672 -1.3590  0.1725  1.6976  3.6362 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.45922    0.04590  10.005  < 2e-16 ***
## whiteVother                -0.33452    0.08981  -3.725 0.000199 ***
## index_ANexp_w1              0.22048    0.13112   1.682 0.092760 .  
## DvR                        -1.13563    0.08605 -13.198  < 2e-16 ***
## IvDR                        0.48888    0.09333   5.238 1.73e-07 ***
## whiteVother:index_ANexp_w1  0.46522    0.26171   1.778 0.075565 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.085 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06349,    Adjusted R-squared:  0.06205 
## F-statistic: 44.27 on 5 and 3265 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w1 ~ race_factor_w * index_ANexp_w1 + + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w1", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1.5) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ ANALYTIC + blackVother + partyID

m1.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4673 -1.4505  0.5434  1.5629  4.0171 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.04879    0.06136   0.795    0.427    
## blackVother     1.18960    0.11069  10.747   <2e-16 ***
## index_ANexp_w1  0.02771    0.12479   0.222    0.824    
## DvR            -1.25439    0.08442 -14.859   <2e-16 ***
## IvDR            0.54220    0.09190   5.900    4e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.058 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08771,    Adjusted R-squared:  0.08659 
## F-statistic:  78.5 on 4 and 3266 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ ANALYTIC * blackVother + partyID

m2.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4563 -1.4491  0.5495  1.5567  4.1435 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.06681    0.06651   1.005    0.315    
## blackVother                 1.14236    0.12951   8.821  < 2e-16 ***
## index_ANexp_w1              0.10859    0.16977   0.640    0.522    
## DvR                        -1.25896    0.08468 -14.867  < 2e-16 ***
## IvDR                        0.54086    0.09192   5.884 4.41e-09 ***
## blackVother:index_ANexp_w1 -0.23887    0.33993  -0.703    0.482    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.058 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08784,    Adjusted R-squared:  0.08645 
## F-statistic: 62.89 on 5 and 3265 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ ANALYTIC + education.c + partyID

m1.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_ANexp_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4294 -1.3700  0.0813  1.7050  3.9487 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.52213    0.04322  12.080  < 2e-16 ***
## edu.c           0.08414    0.01288   6.532 7.52e-11 ***
## index_ANexp_w1  0.13667    0.12554   1.089    0.276    
## DvR            -0.99901    0.08191 -12.197  < 2e-16 ***
## IvDR            0.48308    0.09309   5.189 2.24e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.08 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06762,    Adjusted R-squared:  0.06648 
## F-statistic: 59.22 on 4 and 3266 DF,  p-value: < 2.2e-16

d2. vaxxAttitudes ~ ANALYTIC * education.c + partyID

m2.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_ANexp_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3998 -1.3736  0.1114  1.6980  3.9600 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.52241    0.04322  12.086  < 2e-16 ***
## edu.c                 0.07934    0.01392   5.701  1.3e-08 ***
## index_ANexp_w1        0.13334    0.12560   1.062    0.288    
## DvR                  -1.00148    0.08195 -12.220  < 2e-16 ***
## IvDR                  0.48524    0.09312   5.211  2.0e-07 ***
## edu.c:index_ANexp_w1 -0.03984    0.04365  -0.913    0.361    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.08 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06786,    Adjusted R-squared:  0.06643 
## F-statistic: 47.54 on 5 and 3265 DF,  p-value: < 2.2e-16

e1. vaxxAttitudes ~ ANALYTIC + (black vs. white) + partyID

m9.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) + index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) + index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4930 -1.4853  0.5072  1.5780  4.0067 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.25787    0.05249   4.913 9.41e-07 ***
## bVw             1.17269    0.11368  10.316  < 2e-16 ***
## bwVo            0.43175    0.06525   6.616 4.29e-11 ***
## index_ANexp_w1  0.02484    0.12487   0.199    0.842    
## DvR            -1.24522    0.08558 -14.550  < 2e-16 ***
## IvDR            0.54770    0.09229   5.935 3.25e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.058 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08783,    Adjusted R-squared:  0.08643 
## F-statistic: 62.87 on 5 and 3265 DF,  p-value: < 2.2e-16

e2. vaxxAttitudes ~ ANALYTIC * (black vs. white) + partyID

m10.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) * index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) * index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4977 -1.4810  0.5027  1.5812  4.1353 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          0.26978    0.05478   4.925 8.85e-07 ***
## bVw                  1.12162    0.13272   8.451  < 2e-16 ***
## bwVo                 0.42256    0.07246   5.832 6.02e-09 ***
## index_ANexp_w1       0.08249    0.14989   0.550    0.582    
## DvR                 -1.25042    0.08587 -14.561  < 2e-16 ***
## IvDR                 0.54599    0.09234   5.913 3.71e-09 ***
## bVw:index_ANexp_w1  -0.26204    0.34787  -0.753    0.451    
## bwVo:index_ANexp_w1 -0.02841    0.22190  -0.128    0.898    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.058 on 3263 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08799,    Adjusted R-squared:  0.08603 
## F-statistic: 44.97 on 7 and 3263 DF,  p-value: < 2.2e-16

f1. vaxxAttitudes ~ ANALYTIC + (black + hispanic vs. white) + partyID

m11.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.609 -1.449  0.385  1.619  3.607 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.46240    0.05233   8.837  < 2e-16 ***
## bhVw            0.74290    0.09354   7.942 2.72e-15 ***
## bhwVo           0.38644    0.07830   4.935 8.41e-07 ***
## index_ANexp_w1  0.09939    0.12512   0.794    0.427    
## DvR            -1.19680    0.08576 -13.955  < 2e-16 ***
## IvDR            0.53165    0.09283   5.727 1.11e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.07676,    Adjusted R-squared:  0.07535 
## F-statistic: 54.29 on 5 and 3265 DF,  p-value: < 2.2e-16

f2. vaxxAttitudes ~ ANALYTIC * (black + hispanic vs. white) + partyID

m12.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_ANexp_w1 + DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_ANexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6147 -1.4177  0.3892  1.6025  3.8276 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.47214    0.05377   8.780  < 2e-16 ***
## bhVw                  0.67173    0.10453   6.426 1.50e-10 ***
## bhwVo                 0.37316    0.08551   4.364 1.32e-05 ***
## index_ANexp_w1        0.15782    0.16395   0.963    0.336    
## DvR                  -1.21100    0.08631 -14.030  < 2e-16 ***
## IvDR                  0.52899    0.09284   5.698 1.32e-08 ***
## bhVw:index_ANexp_w1  -0.44611    0.29235  -1.526    0.127    
## bhwVo:index_ANexp_w1 -0.07765    0.28035  -0.277    0.782    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 3263 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.07742,    Adjusted R-squared:  0.07544 
## F-statistic: 39.12 on 7 and 3263 DF,  p-value: < 2.2e-16

ii. Wave 2

a1. vaxxAttitudes ~ ANALYTIC + ruralVother + partyID

m1.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8498 -1.2434  0.0378  1.9512  3.3737 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.22493    0.05849   3.846 0.000123 ***
## ruralVother     0.28844    0.10413   2.770 0.005648 ** 
## index_ANexp_w2  0.14925    0.15348   0.972 0.330924    
## DvR            -0.56715    0.09301  -6.098 1.25e-09 ***
## IvDR            0.47815    0.11198   4.270 2.03e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02794,    Adjusted R-squared:  0.02634 
## F-statistic: 17.48 on 4 and 2433 DF,  p-value: 3.747e-14

a2. vaxxAttitudes ~ ANALYTIC * ruralVother + partyID

m2.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.891 -1.261  0.041  1.940  3.331 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.20428    0.06080   3.360 0.000792 ***
## ruralVother                 0.35927    0.11872   3.026 0.002502 ** 
## index_ANexp_w2              0.01158    0.18932   0.061 0.951245    
## DvR                        -0.56478    0.09302  -6.072 1.46e-09 ***
## IvDR                        0.48413    0.11207   4.320 1.62e-05 ***
## ruralVother:index_ANexp_w2  0.46934    0.37796   1.242 0.214436    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02855,    Adjusted R-squared:  0.02656 
## F-statistic:  14.3 on 5 and 2432 DF,  p-value: 8.075e-14

b1. vaxxAttitudes ~ ANALYTIC + whiteVother + partyID

m1.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0353 -1.2236  0.0056  1.8647  3.3599 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.23491    0.05350   4.391 1.18e-05 ***
## whiteVother    -0.38041    0.09425  -4.036 5.60e-05 ***
## index_ANexp_w2  0.13682    0.15320   0.893    0.372    
## DvR            -0.70361    0.09613  -7.319 3.36e-13 ***
## IvDR            0.45550    0.11200   4.067 4.92e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03136,    Adjusted R-squared:  0.02977 
## F-statistic: 19.69 on 4 and 2433 DF,  p-value: 5.758e-16

b2. vaxxAttitudes ~ ANALYTIC * whiteVother + partyID

m2.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1075 -1.2080 -0.0382  1.8852  3.7547 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.25911    0.05387   4.810 1.60e-06 ***
## whiteVother                -0.21577    0.10616  -2.033 0.042209 *  
## index_ANexp_w2              0.27881    0.15866   1.757 0.079002 .  
## DvR                        -0.71243    0.09596  -7.424 1.56e-13 ***
## IvDR                        0.44229    0.11184   3.955 7.88e-05 ***
## whiteVother:index_ANexp_w2  1.05575    0.31567   3.344 0.000837 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.062 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03579,    Adjusted R-squared:  0.03381 
## F-statistic: 18.06 on 5 and 2432 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_ANexp_w2 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w2", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1.5) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ ANALYTIC + blackVother + partyID

m1.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0081 -1.1636  0.0218  1.9100  3.9658 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    -0.11287    0.07316  -1.543    0.123    
## blackVother     1.04316    0.13283   7.853 6.04e-15 ***
## index_ANexp_w2  0.04639    0.15229   0.305    0.761    
## DvR            -0.79896    0.09506  -8.405  < 2e-16 ***
## IvDR            0.49474    0.11074   4.468 8.27e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.048 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04898,    Adjusted R-squared:  0.04742 
## F-statistic: 31.33 on 4 and 2433 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ ANALYTIC * blackVother + partyID

m2.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0397 -1.1490 -0.0425  1.8795  3.8617 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                -0.04960    0.07958  -0.623   0.5331    
## blackVother                 0.87660    0.15642   5.604 2.33e-08 ***
## index_ANexp_w2              0.31539    0.20251   1.557   0.1195    
## DvR                        -0.80351    0.09503  -8.455  < 2e-16 ***
## IvDR                        0.49110    0.11068   4.437 9.53e-06 ***
## blackVother:index_ANexp_w2 -0.81310    0.40384  -2.013   0.0442 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.046 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.05056,    Adjusted R-squared:  0.04861 
## F-statistic:  25.9 on 5 and 2432 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_b * index_ANexp_w2 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w2", "race_factor_b"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1.5) +
  theme_minimal()+ 
  labs(color ='race grouping')

d1. vaxxAttitudes ~ ANALYTIC + education.c + partyID

m1.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_ANexp_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5497 -1.4111  0.4787  1.6538  3.9332 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.55331    0.05070  10.913  < 2e-16 ***
## edu.c           0.09663    0.01622   5.956 2.96e-09 ***
## index_ANexp_w2 -0.12641    0.15365  -0.823 0.410746    
## DvR            -1.06520    0.09256 -11.508  < 2e-16 ***
## IvDR            0.39996    0.11203   3.570 0.000364 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.073 on 2435 degrees of freedom
##   (841 observations deleted due to missingness)
## Multiple R-squared:  0.07175,    Adjusted R-squared:  0.07022 
## F-statistic: 47.05 on 4 and 2435 DF,  p-value: < 2.2e-16

d2. vaxxAttitudes ~ ANALYTIC * education.c + partyID

m2.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_ANexp_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5440 -1.4114  0.4779  1.6546  3.9361 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.553268   0.050715  10.909  < 2e-16 ***
## edu.c                 0.097220   0.017498   5.556 3.06e-08 ***
## index_ANexp_w2       -0.127093   0.153867  -0.826 0.408891    
## DvR                  -1.065328   0.092592 -11.506  < 2e-16 ***
## IvDR                  0.399819   0.112066   3.568 0.000367 ***
## edu.c:index_ANexp_w2  0.004903   0.054275   0.090 0.928029    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.073 on 2434 degrees of freedom
##   (841 observations deleted due to missingness)
## Multiple R-squared:  0.07175,    Adjusted R-squared:  0.06984 
## F-statistic: 37.63 on 5 and 2434 DF,  p-value: < 2.2e-16

e1. vaxxAttitudes ~ ANALYTIC + (black vs. white) + partyID

m9.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) + index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) + index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0086 -1.1623  0.0222  1.9107  3.9658 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.06066    0.06222   0.975     0.33    
## bVw             1.04363    0.13597   7.676 2.37e-14 ***
## bwVo            0.34669    0.07710   4.496 7.23e-06 ***
## index_ANexp_w2  0.04648    0.15242   0.305     0.76    
## DvR            -0.79921    0.09633  -8.297  < 2e-16 ***
## IvDR            0.49459    0.11115   4.450 8.99e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.048 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04898,    Adjusted R-squared:  0.04702 
## F-statistic: 25.05 on 5 and 2432 DF,  p-value: < 2.2e-16

e2. vaxxAttitudes ~ ANALYTIC * (black vs. white) + partyID

m10.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) * index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) * index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.159 -1.156 -0.035  1.887  3.862 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          0.11085    0.06525   1.699   0.0895 .  
## bVw                  0.85191    0.15996   5.326 1.10e-07 ***
## bwVo                 0.34240    0.08658   3.955 7.89e-05 ***
## index_ANexp_w2       0.29857    0.18069   1.652   0.0986 .  
## DvR                 -0.80243    0.09625  -8.337  < 2e-16 ***
## IvDR                 0.48355    0.11115   4.350 1.42e-05 ***
## bVw:index_ANexp_w2  -0.96357    0.41380  -2.329   0.0200 *  
## bwVo:index_ANexp_w2  0.11877    0.26990   0.440   0.6599    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.046 on 2430 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.05165,    Adjusted R-squared:  0.04891 
## F-statistic:  18.9 on 7 and 2430 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_bw * index_ANexp_w2 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w2", "race_bw"), 
           color = c("purple", "red", "blue")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1) +
  theme_minimal()+ 
  labs(color ='race grouping')

f1. vaxxAttitudes ~ ANALYTIC + (black + hispanic vs. white) + partyID

m11.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0072 -1.2000 -0.0921  1.8430  3.6020 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.21372    0.06109   3.499 0.000476 ***
## bhVw            0.64262    0.11159   5.759 9.54e-09 ***
## bhwVo           0.24117    0.09020   2.674 0.007552 ** 
## index_ANexp_w2  0.07551    0.15329   0.493 0.622313    
## DvR            -0.75204    0.09642  -7.799 9.15e-15 ***
## IvDR            0.47604    0.11169   4.262 2.10e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.059 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03884,    Adjusted R-squared:  0.03686 
## F-statistic: 19.65 on 5 and 2432 DF,  p-value: < 2.2e-16

f2. vaxxAttitudes ~ ANALYTIC * (black + hispanic vs. white) + partyID

m12.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_ANexp_w2 + DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_ANexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1345 -1.1902 -0.0461  1.8788  4.0050 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.25045    0.06270   3.995 6.67e-05 ***
## bhVw                  0.44373    0.12900   3.440 0.000592 ***
## bhwVo                 0.21260    0.09711   2.189 0.028671 *  
## index_ANexp_w2        0.25425    0.19746   1.288 0.198018    
## DvR                  -0.76015    0.09636  -7.889 4.58e-15 ***
## IvDR                  0.46585    0.11164   4.173 3.11e-05 ***
## bhVw:index_ANexp_w2  -1.09227    0.35666  -3.062 0.002219 ** 
## bhwVo:index_ANexp_w2 -0.09319    0.33645  -0.277 0.781822    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.056 on 2430 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04255,    Adjusted R-squared:  0.03979 
## F-statistic: 15.43 on 7 and 2430 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_wbh * index_ANexp_w2 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w2", "race_wbh"), 
           color = c("purple", "red", "blue", "green")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("willingness to obtain the Covid-19 vaccine") + 
  xlim(-1.5, 1) +
  theme_minimal()+ 
  labs(color ='race grouping')

iii. Wave 3

a1. vaxxBehavior ~ ANALYTIC + ruralVother + partyID

m1.cc <- lm(vaxxBehavior ~ ruralVother + index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7200 -0.5513  0.3598  0.8278  1.4218 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.07817    0.04841  63.586  < 2e-16 ***
## ruralVother     0.32672    0.08595   3.801 0.000153 ***
## index_ANexp_w3 -0.20455    0.15276  -1.339 0.180868    
## DvR            -0.68587    0.07817  -8.774  < 2e-16 ***
## IvDR            0.10641    0.09570   1.112 0.266450    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.116 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09384,    Adjusted R-squared:  0.09018 
## F-statistic: 25.66 on 4 and 991 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ ANALYTIC * ruralVother + partyID

m2.cc <- lm(vaxxBehavior ~ ruralVother * index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6690 -0.6257  0.3576  0.8148  1.5662 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.04995    0.05098  59.826  < 2e-16 ***
## ruralVother                 0.41431    0.09940   4.168 3.34e-05 ***
## index_ANexp_w3             -0.39827    0.18857  -2.112   0.0349 *  
## DvR                        -0.68449    0.07809  -8.765  < 2e-16 ***
## IvDR                        0.10727    0.09560   1.122   0.2621    
## ruralVother:index_ANexp_w3  0.65693    0.37563   1.749   0.0806 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.115 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09663,    Adjusted R-squared:  0.09207 
## F-statistic: 21.18 on 5 and 990 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ area_factor * index_ANexp_w3 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_ANexp_w3", "area_factor"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media analytic thinking") + 
  ylab("vaccine behavior") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='area grouping')

b1. vaxxBehavior ~ ANALYTIC + whiteVother + partyID

m1.cc <- lm(vaxxBehavior ~ whiteVother + index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6830 -0.5457  0.3984  0.8806  1.3076 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.17997    0.04586  69.341   <2e-16 ***
## whiteVother     0.05394    0.08251   0.654    0.513    
## index_ANexp_w3 -0.18092    0.15371  -1.177    0.239    
## DvR            -0.69940    0.08126  -8.607   <2e-16 ***
## IvDR            0.13043    0.09667   1.349    0.178    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08103,    Adjusted R-squared:  0.07732 
## F-statistic: 21.84 on 4 and 991 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ ANALYTIC * whiteVother + partyID

m2.cc <- lm(vaxxBehavior ~ whiteVother * index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6829 -0.5457  0.3983  0.8805  1.3078 
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.1799784  0.0464699  68.431   <2e-16 ***
## whiteVother                 0.0539884  0.0905498   0.596    0.551    
## index_ANexp_w3             -0.1808252  0.1676205  -1.079    0.281    
## DvR                        -0.6994091  0.0814349  -8.589   <2e-16 ***
## IvDR                        0.1304184  0.0969149   1.346    0.179    
## whiteVother:index_ANexp_w3  0.0004698  0.3353870   0.001    0.999    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.125 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08103,    Adjusted R-squared:  0.07638 
## F-statistic: 17.46 on 5 and 990 DF,  p-value: < 2.2e-16

c1. vaxxBehavior ~ ANALYTIC + blackVother + partyID

m1.cc <- lm(vaxxBehavior ~ blackVother + index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6936 -0.5144  0.3731  0.8819  1.4502 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.08750    0.06328  48.792   <2e-16 ***
## blackVother     0.20511    0.11876   1.727   0.0844 .  
## index_ANexp_w3 -0.17971    0.15351  -1.171   0.2420    
## DvR            -0.74636    0.08057  -9.263   <2e-16 ***
## IvDR            0.11964    0.09617   1.244   0.2138    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.123 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08339,    Adjusted R-squared:  0.07969 
## F-statistic: 22.54 on 4 and 991 DF,  p-value: < 2.2e-16

c2. vaxxBehavior ~ ANALYTIC * blackVother + partyID

m2.cc <- lm(vaxxBehavior ~ blackVother * index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6758 -0.5424  0.3738  0.8772  1.6212 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.07571    0.06551  46.952   <2e-16 ***
## blackVother                 0.23920    0.12841   1.863   0.0628 .  
## index_ANexp_w3             -0.28415    0.21430  -1.326   0.1852    
## DvR                        -0.74486    0.08062  -9.239   <2e-16 ***
## IvDR                        0.12098    0.09622   1.257   0.2089    
## blackVother:index_ANexp_w3  0.29891    0.42786   0.699   0.4850    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.123 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08384,    Adjusted R-squared:  0.07921 
## F-statistic: 18.12 on 5 and 990 DF,  p-value: < 2.2e-16

d1. vaxxBehavior ~ ANALYTIC + education.c + partyID

m1.cc <- lm(vaxxBehavior ~ edu.c + index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m1.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_ANexp_w3 + DvR + IvDR, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7361 -0.4415  0.3331  0.8296  1.9285 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.15063    0.04230  74.475  < 2e-16 ***
## edu.c           0.05688    0.01351   4.210 2.79e-05 ***
## index_ANexp_w3 -0.18655    0.15239  -1.224    0.221    
## DvR            -0.71600    0.07771  -9.214  < 2e-16 ***
## IvDR            0.11229    0.09547   1.176    0.240    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09678,    Adjusted R-squared:  0.09314 
## F-statistic: 26.55 on 4 and 991 DF,  p-value: < 2.2e-16

d2. vaxxBehavior ~ ANALYTIC * education.c + partyID

m2.cc <- lm(vaxxBehavior ~ edu.c * index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m2.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_ANexp_w3 + DvR + IvDR, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7347 -0.4422  0.3323  0.8290  1.9385 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.150258   0.042481  74.157  < 2e-16 ***
## edu.c                 0.057617   0.015259   3.776 0.000169 ***
## index_ANexp_w3       -0.189064   0.154382  -1.225 0.220997    
## DvR                  -0.715865   0.077760  -9.206  < 2e-16 ***
## IvDR                  0.112691   0.095598   1.179 0.238761    
## edu.c:index_ANexp_w3  0.006421   0.062004   0.104 0.917541    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.115 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09679,    Adjusted R-squared:  0.09223 
## F-statistic: 21.22 on 5 and 990 DF,  p-value: < 2.2e-16

e1. vaxxBehavior ~ ANALYTIC + (black vs. white) + partyID

m9.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8194 -0.4944  0.3928  0.8808  1.4281 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.15783    0.05403  58.446   <2e-16 ***
## bVw             0.16174    0.12095   1.337   0.1815    
## bwVo            0.17201    0.06899   2.493   0.0128 *  
## index_ANexp_w3 -0.18220    0.15333  -1.188   0.2350    
## DvR            -0.72185    0.08158  -8.848   <2e-16 ***
## IvDR            0.13562    0.09645   1.406   0.1600    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.121 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08649,    Adjusted R-squared:  0.08188 
## F-statistic: 18.75 on 5 and 990 DF,  p-value: < 2.2e-16

e2. vaxxBehavior ~ ANALYTIC * (black vs. white) + partyID

m10.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * index_ANexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7719 -0.5130  0.3888  0.8771  1.6006 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          3.15770    0.05574  56.654  < 2e-16 ***
## bVw                  0.19115    0.13072   1.462  0.14398    
## bwVo                 0.20027    0.07679   2.608  0.00924 ** 
## index_ANexp_w3      -0.18186    0.19620  -0.927  0.35420    
## DvR                 -0.72289    0.08177  -8.840  < 2e-16 ***
## IvDR                 0.13319    0.09675   1.377  0.16893    
## bVw:index_ANexp_w3   0.25172    0.43442   0.579  0.56242    
## bwVo:index_ANexp_w3  0.25294    0.30179   0.838  0.40216    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 988 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08724,    Adjusted R-squared:  0.08078 
## F-statistic: 13.49 on 7 and 988 DF,  p-value: < 2.2e-16

f1. vaxxBehavior ~ ANALYTIC + (black + hispanic vs. white) + partyID

m11.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) + index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) + index_ANexp_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8775 -0.4899  0.4107  0.8598  1.3696 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.22186    0.05375  59.947  < 2e-16 ***
## bhVw            0.09066    0.09712   0.933  0.35080    
## bhwVo           0.23500    0.08227   2.857  0.00437 ** 
## index_ANexp_w3 -0.19839    0.15331  -1.294  0.19594    
## DvR            -0.72702    0.08158  -8.912  < 2e-16 ***
## IvDR            0.14210    0.09643   1.474  0.14089    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.12 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08823,    Adjusted R-squared:  0.08363 
## F-statistic: 19.16 on 5 and 990 DF,  p-value: < 2.2e-16

f2. vaxxBehavior ~ ANALYTIC * (black + hispanic vs. white) + partyID

m12.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) * index_ANexp_w3 + DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) * index_ANexp_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8742 -0.4907  0.4109  0.8675  1.3881 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.21843    0.05642  57.041   <2e-16 ***
## bhVw                  0.09617    0.10673   0.901   0.3678    
## bhwVo                 0.22980    0.09104   2.524   0.0117 *  
## index_ANexp_w3       -0.23504    0.24345  -0.965   0.3346    
## DvR                  -0.72639    0.08177  -8.884   <2e-16 ***
## IvDR                  0.14379    0.09688   1.484   0.1381    
## bhVw:index_ANexp_w3   0.04615    0.36205   0.127   0.8986    
## bhwVo:index_ANexp_w3 -0.06343    0.44100  -0.144   0.8857    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.121 on 988 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08827,    Adjusted R-squared:  0.08181 
## F-statistic: 13.67 on 7 and 988 DF,  p-value: < 2.2e-16

B. Affect

i. Wave 1 (excluding partyID)

a1. vaxxAttitudes_w1 ~ AFFECT + ruralVother

m3.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_AFexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.196 -1.527  0.312  2.048  3.232 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.38879    0.05051   7.698 1.82e-14 ***
## ruralVother     0.45655    0.09217   4.954 7.66e-07 ***
## index_AFexp_w1  0.54411    0.12172   4.470 8.08e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.137 on 3278 degrees of freedom
## Multiple R-squared:  0.01326,    Adjusted R-squared:  0.01266 
## F-statistic: 22.02 on 2 and 3278 DF,  p-value: 3.155e-10

a2. vaxxAttitudes_w1 ~ AFFECT * ruralVother

m4.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_AFexp_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1507 -1.5561  0.3077  2.0715  3.4213 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.37450    0.05326   7.032 2.47e-12 ***
## ruralVother                 0.50174    0.10651   4.711 2.57e-06 ***
## index_AFexp_w1              0.62510    0.15481   4.038 5.52e-05 ***
## ruralVother:index_AFexp_w1 -0.26213    0.30963  -0.847    0.397    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.138 on 3277 degrees of freedom
## Multiple R-squared:  0.01347,    Adjusted R-squared:  0.01257 
## F-statistic: 14.92 on 3 and 3277 DF,  p-value: 1.203e-09

b1. vaxxAttitudes_w1 ~ AFFECT + whiteVother

m33.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_AFexp_w1, data = dw)
summary(m33.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1172 -1.5129  0.3561  2.0957  2.8889 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.50068    0.04486  11.161  < 2e-16 ***
## whiteVother    -0.13243    0.07944  -1.667   0.0956 .  
## index_AFexp_w1  0.54427    0.12218   4.455 8.68e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.145 on 3278 degrees of freedom
## Multiple R-squared:  0.006715,   Adjusted R-squared:  0.006109 
## F-statistic: 11.08 on 2 and 3278 DF,  p-value: 1.601e-05
- mediation analysis - NO MEDIATION
summary(m.ac <- lm(vaxxAttitudes_w1 ~ whiteVother, data = dw)) #NS
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6542 -1.5333  0.3458  2.3458  2.4667 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.59375    0.03981  14.914   <2e-16 ***
## whiteVother -0.12083    0.07963  -1.517    0.129    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.151 on 3279 degrees of freedom
## Multiple R-squared:  0.0007018,  Adjusted R-squared:  0.000397 
## F-statistic: 2.303 on 1 and 3279 DF,  p-value: 0.1292
summary(m.ab <- lm(vaxxAttitudes_w1 ~  index_ANexp_w1, data = dw)) #sig
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ index_ANexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8486 -1.5986  0.3561  2.2847  2.7061 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.65842    0.04268  15.428   <2e-16 ***
## index_ANexp_w1  0.28168    0.12834   2.195   0.0283 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.15 on 3279 degrees of freedom
## Multiple R-squared:  0.001467,   Adjusted R-squared:  0.001162 
## F-statistic: 4.817 on 1 and 3279 DF,  p-value: 0.02825
summary(m.abc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1, data = dw)) #analytic more sig
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_ANexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8799 -1.5697  0.3564  2.2620  2.7905 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.63835    0.04460  14.311   <2e-16 ***
## whiteVother    -0.12284    0.07958  -1.544    0.123    
## index_ANexp_w1  0.28394    0.12832   2.213    0.027 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.149 on 3278 degrees of freedom
## Multiple R-squared:  0.002192,   Adjusted R-squared:  0.001583 
## F-statistic: 3.601 on 2 and 3278 DF,  p-value: 0.02741

b2. vaxxAttitudes_w1 ~ AFFECT * whiteVother

m44.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_AFexp_w1, data = dw)
summary(m44.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2426 -1.5186  0.3905  2.0905  2.9896 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.51321    0.04551  11.278  < 2e-16 ***
## whiteVother                -0.06011    0.09101  -0.660 0.508988    
## index_AFexp_w1              0.48395    0.12765   3.791 0.000153 ***
## whiteVother:index_AFexp_w1 -0.41539    0.25530  -1.627 0.103822    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3277 degrees of freedom
## Multiple R-squared:  0.007517,   Adjusted R-squared:  0.006608 
## F-statistic: 8.273 on 3 and 3277 DF,  p-value: 1.76e-05

c1. vaxxAttitudes ~ AFFECT + blackVother

m3.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2681 -1.5979  0.3192  2.0383  3.3072 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)      0.2184     0.0603   3.621 0.000297 ***
## blackVother      0.7828     0.1100   7.115 1.37e-12 ***
## index_AFexp_w1   0.6512     0.1223   5.325 1.08e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3278 degrees of freedom
## Multiple R-squared:  0.02099,    Adjusted R-squared:  0.02039 
## F-statistic: 35.14 on 2 and 3278 DF,  p-value: 7.934e-16

c2. vaxxAttitudes ~ AFFECT * blackVother

m3.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_AFexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2531 -1.5965  0.3243  2.0450  3.3489 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.20789    0.06863   3.029  0.00247 ** 
## blackVother                 0.80905    0.13725   5.895 4.14e-09 ***
## index_AFexp_w1              0.68634    0.16431   4.177 3.03e-05 ***
## blackVother:index_AFexp_w1 -0.10534    0.32863  -0.321  0.74858    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3277 degrees of freedom
## Multiple R-squared:  0.02102,    Adjusted R-squared:  0.02013 
## F-statistic: 23.46 on 3 and 3277 DF,  p-value: 5.116e-15

d1. vaxxAttitudes ~ AFFECT + education.c

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_AFexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_AFexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3113 -1.4730  0.2927  2.0174  3.8604 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.51609    0.04237  12.181  < 2e-16 ***
## edu.c           0.09335    0.01315   7.097 1.55e-12 ***
## index_AFexp_w1  0.58368    0.12141   4.807 1.60e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3278 degrees of freedom
## Multiple R-squared:  0.02092,    Adjusted R-squared:  0.02032 
## F-statistic: 35.02 on 2 and 3278 DF,  p-value: 8.954e-16

d2. vaxxAttitudes ~ AFFECT * education.c

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_AFexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_AFexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3770 -1.4666  0.3089  1.9974  3.7250 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.51719    0.04240  12.196  < 2e-16 ***
## edu.c                 0.08983    0.01422   6.318 3.01e-10 ***
## index_AFexp_w1        0.58523    0.12145   4.819 1.51e-06 ***
## edu.c:index_AFexp_w1  0.02907    0.04462   0.652    0.515    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3277 degrees of freedom
## Multiple R-squared:  0.02105,    Adjusted R-squared:  0.02015 
## F-statistic: 23.48 on 3 and 3277 DF,  p-value: 4.918e-15

ii. Wave 2 (excluding partyID)

a1. vaxxAttitudes_w2 ~ AFFECT + ruralVother

m3.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_AFexp_w2, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_AFexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6512 -1.4222 -0.1027  1.8221  3.0557 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.24052    0.05602   4.294 1.83e-05 ***
## ruralVother     0.37135    0.10444   3.556 0.000384 ***
## index_AFexp_w2  0.23398    0.15243   1.535 0.124914    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.09 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.006042,   Adjusted R-squared:  0.005228 
## F-statistic: 7.423 on 2 and 2442 DF,  p-value: 0.0006111

a2. vaxxAttitudes_w2 ~ AFFECT * ruralVother

m4.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_AFexp_w2, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_AFexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5699 -1.4375 -0.1292  1.6673  3.2991 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.21926    0.05837   3.756 0.000176 ***
## ruralVother                 0.43888    0.11674   3.759 0.000174 ***
## index_AFexp_w2              0.38465    0.19179   2.006 0.045011 *  
## ruralVother:index_AFexp_w2 -0.49640    0.38358  -1.294 0.195740    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.09 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.006724,   Adjusted R-squared:  0.005503 
## F-statistic: 5.508 on 3 and 2441 DF,  p-value: 0.0009073

b1. vaxxAttitudes_w2 ~ AFFECT + whiteVother

m3.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_AFexp_w2, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_AFexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6286 -1.4058 -0.1984  1.8030  2.9434 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.30708    0.05012   6.127 1.04e-09 ***
## whiteVother    -0.22010    0.09138  -2.409   0.0161 *  
## index_AFexp_w2  0.24411    0.15281   1.597   0.1103    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.093 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.003265,   Adjusted R-squared:  0.002448 
## F-statistic: 3.999 on 2 and 2442 DF,  p-value: 0.01845

b2. vaxxAttitudes_w2 ~ AFFECT * whiteVother

m4.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_AFexp_w2, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_AFexp_w2, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.712 -1.387 -0.228  1.772  2.869 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.31582    0.05089   6.206 6.35e-10 ***
## whiteVother                -0.17554    0.10177  -1.725   0.0847 .  
## index_AFexp_w2              0.19672    0.16007   1.229   0.2192    
## whiteVother:index_AFexp_w2 -0.31838    0.32013  -0.995   0.3201    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.093 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.003668,   Adjusted R-squared:  0.002444 
## F-statistic: 2.996 on 3 and 2441 DF,  p-value: 0.02965

c1. vaxxAttitudes_w2 ~ AFFECT + blackVother

m3.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_AFexp_w2, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_AFexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7107 -1.4293  0.1363  1.6367  3.4345 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.05212    0.06923   0.753   0.4516    
## blackVother     0.75436    0.12966   5.818 6.73e-09 ***
## index_AFexp_w2  0.32481    0.15271   2.127   0.0335 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.081 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01456,    Adjusted R-squared:  0.01375 
## F-statistic: 18.04 on 2 and 2442 DF,  p-value: 1.675e-08

c2. vaxxAttitudes_w2 ~ AFFECT * blackVother

m4.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_AFexp_w2, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_AFexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7202 -1.4278  0.1616  1.6408  3.3967 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.05867    0.07708   0.761    0.447    
## blackVother                 0.73824    0.15416   4.789 1.78e-06 ***
## index_AFexp_w2              0.29686    0.21026   1.412    0.158    
## blackVother:index_AFexp_w2  0.08135    0.42052   0.193    0.847    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.082 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01457,    Adjusted R-squared:  0.01336 
## F-statistic: 12.03 on 3 and 2441 DF,  p-value: 8.097e-08

d1. vaxxAttitudes_w2 ~ AFFECT + education.c

m3.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_AFexp_w2, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_AFexp_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7496 -1.4398 -0.1695  1.7311  3.6000 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.33112    0.04687   7.065 2.09e-12 ***
## edu.c           0.06985    0.01641   4.258 2.14e-05 ***
## index_AFexp_w2  0.25890    0.15244   1.698   0.0896 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.00826,    Adjusted R-squared:  0.007447 
## F-statistic: 10.17 on 2 and 2442 DF,  p-value: 3.999e-05

d2. vaxxAttitudes_w2 ~ AFFECT * education.c

m4.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_AFexp_w2, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_AFexp_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5964 -1.4547 -0.1501  1.7401  3.7096 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.32612    0.04702   6.936 5.15e-12 ***
## edu.c                 0.07770    0.01747   4.448 9.04e-06 ***
## index_AFexp_w2        0.27957    0.15324   1.824   0.0682 .  
## edu.c:index_AFexp_w2 -0.07846    0.06001  -1.307   0.1912    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.008954,   Adjusted R-squared:  0.007736 
## F-statistic: 7.351 on 3 and 2441 DF,  p-value: 6.653e-05

iii. Wave 3 (excluding partyID)

a1. vaxxBehavior ~ AFFECT + ruralVother

m3.cc <- lm(vaxxBehavior ~ ruralVother + index_AFexp_w3, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6628 -0.3289  0.6212  0.7199  1.2631 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.08566    0.04710  65.517  < 2e-16 ***
## ruralVother     0.40422    0.08832   4.577 5.31e-06 ***
## index_AFexp_w3  0.39007    0.15252   2.557   0.0107 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.155 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02657,    Adjusted R-squared:  0.02462 
## F-statistic: 13.59 on 2 and 996 DF,  p-value: 1.497e-06

a2. vaxxBehavior ~ AFFECT * ruralVother

m4.cc <- lm(vaxxBehavior ~ ruralVother * index_AFexp_w3, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6509 -0.3308  0.6418  0.6951  1.6010 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.05660    0.04860  62.897  < 2e-16 ***
## ruralVother                 0.50042    0.09719   5.149 3.16e-07 ***
## index_AFexp_w3              0.64501    0.18701   3.449 0.000586 ***
## ruralVother:index_AFexp_w3 -0.87723    0.37403  -2.345 0.019204 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.152 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.03192,    Adjusted R-squared:  0.029 
## F-statistic: 10.94 on 3 and 995 DF,  p-value: 4.528e-07
- plot
m22.cc <- lm(vaxxBehavior ~ area_factor * index_AFexp_w3, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_AFexp_w3", "area_factor"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media affect") + 
  ylab("vaccine behavior") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='area grouping')

b1. vaxxBehavior ~ AFFECT + whiteVother

m3.cc <- lm(vaxxBehavior ~ whiteVother + index_AFexp_w3, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6669 -0.2904  0.6318  0.8278  1.1051 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.25094    0.04389  74.074  < 2e-16 ***
## whiteVother     0.23455    0.08168   2.872  0.00417 ** 
## index_AFexp_w3  0.38328    0.15347   2.497  0.01267 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.162 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01426,    Adjusted R-squared:  0.01228 
## F-statistic: 7.203 on 2 and 996 DF,  p-value: 0.0007834

b2. vaxxBehavior ~ AFFECT * whiteVother

m4.cc <- lm(vaxxBehavior ~ whiteVother * index_AFexp_w3, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5971 -0.3377  0.6042  0.8284  1.1859 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.25654    0.04423  73.634  < 2e-16 ***
## whiteVother                 0.26932    0.08845   3.045  0.00239 ** 
## index_AFexp_w3              0.32749    0.16285   2.011  0.04460 *  
## whiteVother:index_AFexp_w3 -0.33353    0.32570  -1.024  0.30606    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.162 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0153, Adjusted R-squared:  0.01233 
## F-statistic: 5.152 on 3 and 995 DF,  p-value: 0.001544

c1. vaxxBehavior ~ AFFECT + blackVother

m3.cc <- lm(vaxxBehavior ~ blackVother + index_AFexp_w3, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5602 -0.2575  0.6868  0.8028  1.0379 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.21245    0.06304  50.956   <2e-16 ***
## blackVother    -0.03050    0.11981  -0.255   0.7991    
## index_AFexp_w3  0.37757    0.15466   2.441   0.0148 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.167 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.006162,   Adjusted R-squared:  0.004166 
## F-statistic: 3.088 on 2 and 996 DF,  p-value: 0.04604

c2. vaxxBehavior ~ AFFECT * blackVother

m4.cc <- lm(vaxxBehavior ~ blackVother * index_AFexp_w3, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5755 -0.2566  0.6883  0.8013  1.0700 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.20608    0.06850  46.803   <2e-16 ***
## blackVother                -0.01467    0.13700  -0.107   0.9147    
## index_AFexp_w3              0.41323    0.21517   1.921   0.0551 .  
## blackVother:index_AFexp_w3 -0.10264    0.43034  -0.239   0.8115    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.167 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.006219,   Adjusted R-squared:  0.003222 
## F-statistic: 2.075 on 3 and 995 DF,  p-value: 0.1018
- mediation analysis - NO MEDIATION
summary(m.ac <- lm(vaxxBehavior ~ blackVother, data = dw)) #NS
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.2679 -0.2249  0.7751  0.7751  0.7751 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  3.24637    0.05875  55.258   <2e-16 ***
## blackVother -0.04297    0.11750  -0.366    0.715    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.174 on 1026 degrees of freedom
##   (2253 observations deleted due to missingness)
## Multiple R-squared:  0.0001303,  Adjusted R-squared:  -0.0008442 
## F-statistic: 0.1337 on 1 and 1026 DF,  p-value: 0.7147
summary(m.ab <- lm(vaxxBehavior ~  index_AFexp_w3, data = dw)) #sig
## 
## Call:
## lm(formula = vaxxBehavior ~ index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5663 -0.2584  0.6887  0.7999  1.0371 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.20012    0.04031  79.394   <2e-16 ***
## index_AFexp_w3  0.38093    0.15403   2.473   0.0136 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.166 on 997 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.006097,   Adjusted R-squared:  0.0051 
## F-statistic: 6.116 on 1 and 997 DF,  p-value: 0.01356
summary(m.abc <- lm(vaxxBehavior ~ blackVother + index_AFexp_w3, data = dw)) #AN sig, race NS
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5602 -0.2575  0.6868  0.8028  1.0379 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.21245    0.06304  50.956   <2e-16 ***
## blackVother    -0.03050    0.11981  -0.255   0.7991    
## index_AFexp_w3  0.37757    0.15466   2.441   0.0148 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.167 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.006162,   Adjusted R-squared:  0.004166 
## F-statistic: 3.088 on 2 and 996 DF,  p-value: 0.04604

d1. vaxxBehavior ~ AFFECT + education.c

m3.cc <- lm(vaxxBehavior ~ edu.c + index_AFexp_w3, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6015 -0.3124  0.6314  0.7438  1.6589 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.17622    0.04038  78.654  < 2e-16 ***
## edu.c           0.05875    0.01403   4.188 3.06e-05 ***
## index_AFexp_w3  0.41977    0.15305   2.743   0.0062 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.157 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0233, Adjusted R-squared:  0.02134 
## F-statistic: 11.88 on 2 and 996 DF,  p-value: 7.973e-06

d2. vaxxBehavior ~ AFFECT * education.c

m4.cc <- lm(vaxxBehavior ~ edu.c * index_AFexp_w3, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6144 -0.3100  0.6304  0.7467  1.5873 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.17728    0.04064  78.175  < 2e-16 ***
## edu.c                 0.05736    0.01517   3.781 0.000166 ***
## index_AFexp_w3        0.41442    0.15472   2.679 0.007517 ** 
## edu.c:index_AFexp_w3  0.01407    0.05852   0.240 0.810004    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.157 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02335,    Adjusted R-squared:  0.02041 
## F-statistic: 7.931 on 3 and 995 DF,  p-value: 3.139e-05

i. Wave 1

a1. vaxxAttitudes_w1 ~ AFFECT + ruralVother + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.534 -1.376  0.120  1.808  3.304 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.34757    0.05071   6.855 8.52e-12 ***
## ruralVother     0.31183    0.09079   3.435 0.000601 ***
## index_AFexp_w1  0.36836    0.11982   3.074 0.002127 ** 
## DvR            -0.95061    0.08279 -11.482  < 2e-16 ***
## IvDR            0.49588    0.09300   5.332 1.04e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06088,    Adjusted R-squared:  0.05973 
## F-statistic: 52.93 on 4 and 3266 DF,  p-value: < 2.2e-16

a2. vaxxAttitudes_w1 ~ AFFECT * ruralVother + partyID

m4.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4929 -1.3577  0.1539  1.7992  3.4342 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.33468    0.05326   6.284 3.75e-10 ***
## ruralVother                 0.35312    0.10474   3.371 0.000757 ***
## index_AFexp_w1              0.44222    0.15193   2.911 0.003632 ** 
## DvR                        -0.95068    0.08280 -11.482  < 2e-16 ***
## IvDR                        0.49484    0.09301   5.320 1.11e-07 ***
## ruralVother:index_AFexp_w1 -0.23921    0.30255  -0.791 0.429205    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06106,    Adjusted R-squared:  0.05962 
## F-statistic: 42.46 on 5 and 3265 DF,  p-value: < 2.2e-16

b1. vaxxAttitudes_w1 ~ AFFECT + whiteVother + partyID

m33.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m33.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6480 -1.4221  0.1737  1.7481  3.4501 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.36766    0.04544   8.091 8.27e-16 ***
## whiteVother    -0.40793    0.08083  -5.047 4.74e-07 ***
## index_AFexp_w1  0.36237    0.11954   3.031  0.00245 ** 
## DvR            -1.10848    0.08553 -12.960  < 2e-16 ***
## IvDR            0.47189    0.09299   5.075 4.09e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.084 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06478,    Adjusted R-squared:  0.06363 
## F-statistic: 56.56 on 4 and 3266 DF,  p-value: < 2.2e-16

b2. vaxxAttitudes_w1 ~ AFFECT * whiteVother + partyID

m44.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m44.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.8234 -1.4826  0.0925  1.7758  3.2186 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.38410    0.04597   8.355  < 2e-16 ***
## whiteVother                -0.30945    0.09144  -3.384 0.000723 ***
## index_AFexp_w1              0.27774    0.12501   2.222 0.026364 *  
## DvR                        -1.11500    0.08552 -13.037  < 2e-16 ***
## IvDR                        0.47725    0.09295   5.134    3e-07 ***
## whiteVother:index_AFexp_w1 -0.57115    0.24856  -2.298 0.021634 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.082 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06629,    Adjusted R-squared:  0.06486 
## F-statistic: 46.36 on 5 and 3265 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w1 ~ race_factor_w * index_AFexp_w1, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_AFexp_w1", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media affect") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ AFFECT + blackVother + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.860 -1.484  0.358  1.656  4.122 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    -0.05545    0.06115  -0.907    0.365    
## blackVother     1.24148    0.11038  11.248  < 2e-16 ***
## index_AFexp_w1  0.49934    0.11840   4.217 2.54e-05 ***
## DvR            -1.23083    0.08365 -14.713  < 2e-16 ***
## IvDR            0.52755    0.09141   5.771 8.62e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.052 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.09263,    Adjusted R-squared:  0.09152 
## F-statistic: 83.36 on 4 and 3266 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ AFFECT * blackVother + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.8571 -1.4840  0.3593  1.6563  4.1285 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                -0.05717    0.06876  -0.832  0.40572    
## blackVother                 1.24583    0.13588   9.169  < 2e-16 ***
## index_AFexp_w1              0.50517    0.15907   3.176  0.00151 ** 
## DvR                        -1.23077    0.08368 -14.709  < 2e-16 ***
## IvDR                        0.52746    0.09144   5.768 8.76e-09 ***
## blackVother:index_AFexp_w1 -0.01742    0.31732  -0.055  0.95622    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.053 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.09264,    Adjusted R-squared:  0.09125 
## F-statistic: 66.67 on 5 and 3265 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ AFFECT + education.c + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_AFexp_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6332 -1.3744  0.1229  1.7398  4.1274 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.43625    0.04312  10.117  < 2e-16 ***
## edu.c           0.08722    0.01287   6.776 1.46e-11 ***
## index_AFexp_w1  0.40463    0.11936   3.390 0.000707 ***
## DvR            -0.97936    0.08175 -11.981  < 2e-16 ***
## IvDR            0.46198    0.09269   4.984 6.55e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.077 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.07055,    Adjusted R-squared:  0.06941 
## F-statistic: 61.98 on 4 and 3266 DF,  p-value: < 2.2e-16

d2. vaxxAttitudes ~ AFFECT * education.c + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_AFexp_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6795 -1.3765  0.1154  1.7464  4.0082 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.43732    0.04315  10.134  < 2e-16 ***
## edu.c                 0.08366    0.01391   6.013 2.02e-09 ***
## index_AFexp_w1        0.40619    0.11939   3.402 0.000677 ***
## DvR                  -0.97935    0.08175 -11.979  < 2e-16 ***
## IvDR                  0.46221    0.09270   4.986 6.48e-07 ***
## edu.c:index_AFexp_w1  0.02934    0.04354   0.674 0.500440    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.077 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.07068,    Adjusted R-squared:  0.06926 
## F-statistic: 49.67 on 5 and 3265 DF,  p-value: < 2.2e-16

ii. Wave 2

a1. vaxxAttitudes_w2 ~ AFFECT + ruralVother + partyID

m3.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_AFexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.883 -1.209  0.010  1.969  3.272 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.18786    0.05784   3.248  0.00118 ** 
## ruralVother     0.28905    0.10416   2.775  0.00556 ** 
## index_AFexp_w2  0.12304    0.15190   0.810  0.41801    
## DvR            -0.55966    0.09347  -5.988 2.44e-09 ***
## IvDR            0.46226    0.11117   4.158 3.32e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02782,    Adjusted R-squared:  0.02622 
## F-statistic: 17.41 on 4 and 2433 DF,  p-value: 4.313e-14

a2. vaxxAttitudes_w2 ~ AFFECT * ruralVother + partyID

m4.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_AFexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8073 -1.2192 -0.0305  1.9588  3.3638 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.16590    0.06009   2.761  0.00581 ** 
## ruralVother                 0.35849    0.11625   3.084  0.00207 ** 
## index_AFexp_w2              0.27781    0.19059   1.458  0.14507    
## DvR                        -0.55986    0.09345  -5.991 2.40e-09 ***
## IvDR                        0.46304    0.11116   4.166 3.21e-05 ***
## ruralVother:index_AFexp_w2 -0.51069    0.37995  -1.344  0.17904    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02854,    Adjusted R-squared:  0.02655 
## F-statistic: 14.29 on 5 and 2432 DF,  p-value: 8.172e-14

b1. vaxxAttitudes_w2 ~ AFFECT + whiteVother + partyID

m3.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_AFexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9943 -1.2131  0.0089  1.8668  3.3194 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.19876    0.05240   3.793 0.000152 ***
## whiteVother    -0.38316    0.09428  -4.064 4.97e-05 ***
## index_AFexp_w2  0.12731    0.15162   0.840 0.401179    
## DvR            -0.69673    0.09649  -7.221 6.87e-13 ***
## IvDR            0.44045    0.11118   3.962 7.66e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.067 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03132,    Adjusted R-squared:  0.02973 
## F-statistic: 19.67 on 4 and 2433 DF,  p-value: 6.024e-16

b2. vaxxAttitudes_w2 ~ AFFECT * whiteVother + partyID

m4.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_AFexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0950 -1.2282 -0.0141  1.9051  3.3317 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.20933    0.05313   3.940 8.37e-05 ***
## whiteVother                -0.33071    0.10385  -3.184  0.00147 ** 
## index_AFexp_w2              0.06983    0.15895   0.439  0.66046    
## DvR                        -0.70004    0.09652  -7.253 5.46e-13 ***
## IvDR                        0.43870    0.11118   3.946 8.18e-05 ***
## whiteVother:index_AFexp_w2 -0.38104    0.31663  -1.203  0.22893    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.0319, Adjusted R-squared:  0.02991 
## F-statistic: 16.03 on 5 and 2432 DF,  p-value: 1.433e-15

c1. vaxxAttitudes_w2 ~ AFFECT + blackVother + partyID

m3.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_AFexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1214 -1.1426 -0.0153  1.9028  4.0110 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    -0.15469    0.07222  -2.142   0.0323 *  
## blackVother     1.06329    0.13286   8.003 1.86e-15 ***
## index_AFexp_w2  0.21804    0.15071   1.447   0.1481    
## DvR            -0.78997    0.09523  -8.295  < 2e-16 ***
## IvDR            0.48666    0.10989   4.429 9.90e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04976,    Adjusted R-squared:  0.0482 
## F-statistic: 31.85 on 4 and 2433 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes_w2 ~ AFFECT * blackVother + partyID

m4.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_AFexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1239 -1.1423 -0.0133  1.9013  4.0073 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                -0.15293    0.07977  -1.917   0.0553 .  
## blackVother                 1.05892    0.15702   6.744 1.92e-11 ***
## index_AFexp_w2              0.21058    0.20772   1.014   0.3108    
## DvR                        -0.78981    0.09530  -8.288  < 2e-16 ***
## IvDR                        0.48675    0.10993   4.428 9.93e-06 ***
## blackVother:index_AFexp_w2  0.02170    0.41534   0.052   0.9583    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04976,    Adjusted R-squared:  0.04781 
## F-statistic: 25.47 on 5 and 2432 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes_w2 ~ AFFECT + education.c + partyID

m3.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_AFexp_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9893 -1.2311  0.0415  1.9022  3.7817 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.25473    0.04940   5.157 2.72e-07 ***
## edu.c           0.06729    0.01626   4.138 3.62e-05 ***
## index_AFexp_w2  0.14518    0.15177   0.957    0.339    
## DvR            -0.58215    0.09273  -6.278 4.05e-10 ***
## IvDR            0.45949    0.11095   4.141 3.57e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03156,    Adjusted R-squared:  0.02997 
## F-statistic: 19.82 on 4 and 2433 DF,  p-value: 4.491e-16

d2. vaxxAttitudes_w2 ~ AFFECT * education.c + partyID

m4.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_AFexp_w2 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_AFexp_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9069 -1.2361  0.0618  1.9093  3.8964 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.24970    0.04953   5.042 4.95e-07 ***
## edu.c                 0.07545    0.01731   4.358 1.37e-05 ***
## index_AFexp_w2        0.16640    0.15252   1.091    0.275    
## DvR                  -0.58321    0.09272  -6.290 3.75e-10 ***
## IvDR                  0.45836    0.11094   4.132 3.72e-05 ***
## edu.c:index_AFexp_w2 -0.08145    0.05941  -1.371    0.170    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03231,    Adjusted R-squared:  0.03032 
## F-statistic: 16.24 on 5 and 2432 DF,  p-value: 8.713e-16

iii. Wave 3

a1. vaxxBehavior ~ AFFECT + ruralVother + partyID

m3.cc <- lm(vaxxBehavior ~ ruralVother + index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_AFexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7566 -0.5880  0.3701  0.8293  1.4487 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.07731    0.04776  64.429  < 2e-16 ***
## ruralVother     0.32519    0.08588   3.787 0.000162 ***
## index_AFexp_w3  0.22992    0.14874   1.546 0.122491    
## DvR            -0.66838    0.07879  -8.483  < 2e-16 ***
## IvDR            0.12114    0.09504   1.275 0.202745    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.116 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09438,    Adjusted R-squared:  0.09073 
## F-statistic: 25.82 on 4 and 991 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ AFFECT * ruralVother + partyID

m4.cc <- lm(vaxxBehavior ~ ruralVother * index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_AFexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8900 -0.6252  0.3657  0.8177  1.7111 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.05174    0.04904  62.232  < 2e-16 ***
## ruralVother                 0.41401    0.09457   4.378 1.33e-05 ***
## index_AFexp_w3              0.46406    0.18206   2.549   0.0110 *  
## DvR                        -0.66542    0.07864  -8.461  < 2e-16 ***
## IvDR                        0.11410    0.09491   1.202   0.2296    
## ruralVother:index_AFexp_w3 -0.80397    0.36188  -2.222   0.0265 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09888,    Adjusted R-squared:  0.09433 
## F-statistic: 21.73 on 5 and 990 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ area_factor * index_AFexp_w3 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_AFexp_w3", "area_factor"), 
           color = c("purple", "red")) + 
  ggtitle("") + 
  xlab("media affect") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race grouping')

b1. vaxxBehavior ~ AFFECT + whiteVother + partyID

m3.cc <- lm(vaxxBehavior ~ whiteVother + index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_AFexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7666 -0.5395  0.4047  0.8895  1.2813 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.17796    0.04517  70.352  < 2e-16 ***
## whiteVother     0.05784    0.08253   0.701    0.484    
## index_AFexp_w3  0.21992    0.14985   1.468    0.143    
## DvR            -0.68169    0.08193  -8.320 2.89e-16 ***
## IvDR            0.14383    0.09603   1.498    0.135    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08174,    Adjusted R-squared:  0.07803 
## F-statistic: 22.05 on 4 and 991 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ AFFECT * whiteVother + partyID

m4.cc <- lm(vaxxBehavior ~ whiteVother * index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_AFexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6890 -0.5290  0.3828  0.8637  1.3610 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.18412    0.04556  69.884  < 2e-16 ***
## whiteVother                 0.09147    0.08873   1.031    0.303    
## index_AFexp_w3              0.16486    0.15905   1.037    0.300    
## DvR                        -0.68250    0.08194  -8.330 2.68e-16 ***
## IvDR                        0.13963    0.09611   1.453    0.147    
## whiteVother:index_AFexp_w3 -0.32596    0.31575  -1.032    0.302    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08272,    Adjusted R-squared:  0.07809 
## F-statistic: 17.86 on 5 and 990 DF,  p-value: < 2.2e-16

c1. vaxxBehavior ~ AFFECT + blackVother + partyID

m3.cc <- lm(vaxxBehavior ~ blackVother + index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_AFexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7400 -0.4615  0.3794  0.8841  1.4716 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.07871    0.06367  48.350   <2e-16 ***
## blackVother     0.21656    0.11891   1.821   0.0689 .  
## index_AFexp_w3  0.23246    0.14980   1.552   0.1210    
## DvR            -0.73068    0.08100  -9.021   <2e-16 ***
## IvDR            0.13226    0.09551   1.385   0.1664    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08435,    Adjusted R-squared:  0.08065 
## F-statistic: 22.82 on 4 and 991 DF,  p-value: < 2.2e-16

c2. vaxxBehavior ~ AFFECT * blackVother + partyID

m4.cc <- lm(vaxxBehavior ~ blackVother * index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_AFexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7219 -0.4979  0.3780  0.8806  1.6091 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.06372    0.06902  44.391   <2e-16 ***
## blackVother                 0.25379    0.13604   1.866   0.0624 .  
## index_AFexp_w3              0.31403    0.20823   1.508   0.1318    
## DvR                        -0.73201    0.08106  -9.030   <2e-16 ***
## IvDR                        0.13157    0.09555   1.377   0.1688    
## blackVother:index_AFexp_w3 -0.23465    0.41592  -0.564   0.5728    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08464,    Adjusted R-squared:  0.08002 
## F-statistic: 18.31 on 5 and 990 DF,  p-value: < 2.2e-16

d1. vaxxBehavior ~ AFFECT + education.c + partyID

m3.cc <- lm(vaxxBehavior ~ edu.c + index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_AFexp_w3 + DvR + IvDR, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8290 -0.4303  0.3346  0.8424  1.9366 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.14461    0.04182  75.187  < 2e-16 ***
## edu.c           0.05807    0.01352   4.294 1.93e-05 ***
## index_AFexp_w3  0.25335    0.14865   1.704   0.0886 .  
## DvR            -0.69705    0.07827  -8.906  < 2e-16 ***
## IvDR            0.12544    0.09479   1.323   0.1860    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09806,    Adjusted R-squared:  0.09442 
## F-statistic: 26.94 on 4 and 991 DF,  p-value: < 2.2e-16

d2. vaxxBehavior ~ AFFECT * education.c + partyID

m4.cc <- lm(vaxxBehavior ~ edu.c * index_AFexp_w3 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_AFexp_w3 + DvR + IvDR, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8620 -0.4301  0.3385  0.8383  1.8885 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.14734    0.04206  74.828   <2e-16 ***
## edu.c                 0.05458    0.01462   3.732   0.0002 ***
## index_AFexp_w3        0.23942    0.15034   1.593   0.1116    
## DvR                  -0.69906    0.07835  -8.922   <2e-16 ***
## IvDR                  0.12481    0.09483   1.316   0.1884    
## edu.c:index_AFexp_w3  0.03546    0.05640   0.629   0.5297    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09842,    Adjusted R-squared:  0.09387 
## F-statistic: 21.61 on 5 and 990 DF,  p-value: < 2.2e-16

C. Threat

i. Wave 1 (excluding partyID)

a1. vaxxAttitudes ~ THREAT + ruralVother

m3.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_TRexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_TRexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8212 -1.6695  0.2942  2.2503  2.8588 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.46154    0.05063   9.115   <2e-16 ***
## ruralVother     0.45293    0.09243   4.900    1e-06 ***
## index_TRexp_w1 -0.13517    0.14216  -0.951    0.342    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3278 degrees of freedom
## Multiple R-squared:  0.007517,   Adjusted R-squared:  0.006912 
## F-statistic: 12.41 on 2 and 3278 DF,  p-value: 4.255e-06

a2. vaxxAttitudes ~ THREAT * ruralVother

m4.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_TRexp_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_TRexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8154 -1.6715  0.2941  2.2524  2.8823 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.45996    0.05317   8.650  < 2e-16 ***
## ruralVother                 0.45806    0.10634   4.307  1.7e-05 ***
## index_TRexp_w1             -0.14567    0.17830  -0.817    0.414    
## ruralVother:index_TRexp_w1  0.03479    0.35660   0.098    0.922    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3277 degrees of freedom
## Multiple R-squared:  0.00752,    Adjusted R-squared:  0.006612 
## F-statistic: 8.277 on 3 and 3277 DF,  p-value: 1.749e-05

b1. vaxxAttitudes ~ THREAT + whiteVother

m5.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_TRexp_w1, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_TRexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7492 -1.5940  0.3596  2.3093  2.5631 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.57495    0.04483  12.826   <2e-16 ***
## whiteVother    -0.12137    0.07963  -1.524    0.128    
## index_TRexp_w1 -0.13018    0.14262  -0.913    0.361    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.151 on 3278 degrees of freedom
## Multiple R-squared:  0.0009557,  Adjusted R-squared:  0.0003461 
## F-statistic: 1.568 on 2 and 3278 DF,  p-value: 0.2086

b2. vaxxAttitudes ~ THREAT * whiteVother

m6.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_TRexp_w1, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_TRexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8334 -1.5498  0.3718  2.2769  2.6007 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.58170    0.04526  12.852   <2e-16 ***
## whiteVother                -0.07508    0.09053  -0.829    0.407    
## index_TRexp_w1             -0.08570    0.14850  -0.577    0.564    
## whiteVother:index_TRexp_w1  0.31930    0.29700   1.075    0.282    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.151 on 3277 degrees of freedom
## Multiple R-squared:  0.001308,   Adjusted R-squared:  0.0003936 
## F-statistic: 1.431 on 3 and 3277 DF,  p-value: 0.2319

c1. vaxxAttitudes ~ THREAT + blackVother

m4.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2681 -1.5979  0.3192  2.0383  3.3072 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)      0.2184     0.0603   3.621 0.000297 ***
## blackVother      0.7828     0.1100   7.115 1.37e-12 ***
## index_AFexp_w1   0.6512     0.1223   5.325 1.08e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3278 degrees of freedom
## Multiple R-squared:  0.02099,    Adjusted R-squared:  0.02039 
## F-statistic: 35.14 on 2 and 3278 DF,  p-value: 7.934e-16

c2. vaxxAttitudes ~ THREAT * blackVother

m4.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_AFexp_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_AFexp_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2531 -1.5965  0.3243  2.0450  3.3489 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.20789    0.06863   3.029  0.00247 ** 
## blackVother                 0.80905    0.13725   5.895 4.14e-09 ***
## index_AFexp_w1              0.68634    0.16431   4.177 3.03e-05 ***
## blackVother:index_AFexp_w1 -0.10534    0.32863  -0.321  0.74858    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3277 degrees of freedom
## Multiple R-squared:  0.02102,    Adjusted R-squared:  0.02013 
## F-statistic: 23.46 on 3 and 3277 DF,  p-value: 5.116e-15

d1. vaxxAttitudes ~ AFFECT + education.c

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_AFexp_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_AFexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3113 -1.4730  0.2927  2.0174  3.8604 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.51609    0.04237  12.181  < 2e-16 ***
## edu.c           0.09335    0.01315   7.097 1.55e-12 ***
## index_AFexp_w1  0.58368    0.12141   4.807 1.60e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3278 degrees of freedom
## Multiple R-squared:  0.02092,    Adjusted R-squared:  0.02032 
## F-statistic: 35.02 on 2 and 3278 DF,  p-value: 8.954e-16

d2. vaxxAttitudes ~ AFFECT * education.c

m4.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_AFexp_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_AFexp_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3770 -1.4666  0.3089  1.9974  3.7250 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.51719    0.04240  12.196  < 2e-16 ***
## edu.c                 0.08983    0.01422   6.318 3.01e-10 ***
## index_AFexp_w1        0.58523    0.12145   4.819 1.51e-06 ***
## edu.c:index_AFexp_w1  0.02907    0.04462   0.652    0.515    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3277 degrees of freedom
## Multiple R-squared:  0.02105,    Adjusted R-squared:  0.02015 
## F-statistic: 23.48 on 3 and 3277 DF,  p-value: 4.918e-15

ii. Wave 2 (excluding partyID)

a1. vaxxAttitudes ~ THREAT + ruralVother

m5.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_TRexp_w2, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_TRexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4826 -1.4516 -0.0887  1.9038  2.9321 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.26710    0.05700   4.686 2.94e-06 ***
## ruralVother     0.36909    0.10448   3.533 0.000419 ***
## index_TRexp_w2 -0.03313    0.16563  -0.200 0.841490    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.0051, Adjusted R-squared:  0.004285 
## F-statistic: 6.259 on 2 and 2442 DF,  p-value: 0.001945

a2. vaxxAttitudes ~ THREAT * ruralVother

m6.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_TRexp_w2, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_TRexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4626 -1.4552 -0.0979  1.8528  3.0409 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.25746    0.05945   4.331 1.55e-05 ***
## ruralVother                 0.40152    0.11890   3.377 0.000744 ***
## index_TRexp_w2             -0.10269    0.20554  -0.500 0.617398    
## ruralVother:index_TRexp_w2  0.23501    0.41109   0.572 0.567594    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.092 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005233,   Adjusted R-squared:  0.00401 
## F-statistic:  4.28 on 3 and 2441 DF,  p-value: 0.005067

b1. vaxxAttitudes ~ THREAT + whiteVother

m5.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_TRexp_w2, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_TRexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4666 -1.4397 -0.2297  1.7698  2.7849 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.33615    0.05098   6.594 5.24e-11 ***
## whiteVother    -0.21290    0.09132  -2.331   0.0198 *  
## index_TRexp_w2 -0.02956    0.16587  -0.178   0.8586    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.094 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.002236,   Adjusted R-squared:  0.001419 
## F-statistic: 2.736 on 2 and 2442 DF,  p-value: 0.065

b2. vaxxAttitudes ~ THREAT * whiteVother

m6.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_TRexp_w2, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_TRexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6172 -1.3874 -0.2106  1.7280  3.1416 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.34973    0.05147   6.795 1.36e-11 ***
## whiteVother                -0.12388    0.10294  -1.203   0.2289    
## index_TRexp_w2              0.07434    0.17485   0.425   0.6707    
## whiteVother:index_TRexp_w2  0.65407    0.34970   1.870   0.0616 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.093 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.003664,   Adjusted R-squared:  0.00244 
## F-statistic: 2.992 on 3 and 2441 DF,  p-value: 0.0298
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_TRexp_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_TRexp_w2", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("wave 2") + 
  xlab("media threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race grouping') 
## Warning: Removed 2 row(s) containing missing values (geom_path).

c1. vaxxAttitudes ~ THREAT + blackVother

m5.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_TRexp_w2, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_TRexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5302 -1.4559  0.2225  1.5614  3.3123 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.09171    0.06946   1.320    0.187    
## blackVother     0.72831    0.12923   5.636 1.94e-08 ***
## index_TRexp_w2 -0.09142    0.16532  -0.553    0.580    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01285,    Adjusted R-squared:  0.01205 
## F-statistic:  15.9 on 2 and 2442 DF,  p-value: 1.378e-07

c2. vaxxAttitudes ~ THREAT * blackVother

m6.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_TRexp_w2, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_TRexp_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5927 -1.4438  0.1563  1.5908  3.5801 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.12699    0.07508   1.691   0.0909 .  
## blackVother                 0.63368    0.15017   4.220 2.53e-05 ***
## index_TRexp_w2              0.09086    0.22146   0.410   0.6816    
## blackVother:index_TRexp_w2 -0.54783    0.44292  -1.237   0.2163    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01347,    Adjusted R-squared:  0.01226 
## F-statistic: 11.11 on 3 and 2441 DF,  p-value: 3.041e-07

d1. vaxxAttitudes ~ AFFECT + education.c

m3.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_AFexp_w2, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_AFexp_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7496 -1.4398 -0.1695  1.7311  3.6000 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.33112    0.04687   7.065 2.09e-12 ***
## edu.c           0.06985    0.01641   4.258 2.14e-05 ***
## index_AFexp_w2  0.25890    0.15244   1.698   0.0896 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.00826,    Adjusted R-squared:  0.007447 
## F-statistic: 10.17 on 2 and 2442 DF,  p-value: 3.999e-05

d2. vaxxAttitudes ~ AFFECT * education.c

m4.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_AFexp_w2, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_AFexp_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5964 -1.4547 -0.1501  1.7401  3.7096 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.32612    0.04702   6.936 5.15e-12 ***
## edu.c                 0.07770    0.01747   4.448 9.04e-06 ***
## index_AFexp_w2        0.27957    0.15324   1.824   0.0682 .  
## edu.c:index_AFexp_w2 -0.07846    0.06001  -1.307   0.1912    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.008954,   Adjusted R-squared:  0.007736 
## F-statistic: 7.351 on 3 and 2441 DF,  p-value: 6.653e-05

iii. Wave 3 (excluding partyID)

a1. vaxxBehavior ~ THREAT + ruralVother

m5.cc <- lm(vaxxBehavior ~ ruralVother + index_TRexp_w3, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_TRexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4341 -0.3369  0.6423  0.6946  1.1842 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.10553    0.04747  65.415  < 2e-16 ***
## ruralVother     0.40341    0.08854   4.556 5.85e-06 ***
## index_TRexp_w3 -0.21776    0.16961  -1.284    0.199    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.158 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0218, Adjusted R-squared:  0.01983 
## F-statistic:  11.1 on 2 and 996 DF,  p-value: 1.711e-05

a2. vaxxBehavior ~ THREAT * ruralVother

m6.cc <- lm(vaxxBehavior ~ ruralVother * index_TRexp_w3, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_TRexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3903 -0.3333  0.6545  0.6851  1.3671 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.09084    0.04946  62.498   <2e-16 ***
## ruralVother                 0.45013    0.09891   4.551    6e-06 ***
## index_TRexp_w3             -0.35197    0.21170  -1.663   0.0967 .  
## ruralVother:index_TRexp_w3  0.44852    0.42340   1.059   0.2897    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.157 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0229, Adjusted R-squared:  0.01995 
## F-statistic: 7.773 on 3 and 995 DF,  p-value: 3.919e-05

b1. vaxxBehavior ~ THREAT + whiteVother

m5.cc <- lm(vaxxBehavior ~ whiteVother + index_TRexp_w3, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_TRexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4846 -0.2361  0.6114  0.8204  0.9680 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.27026    0.04404  74.258  < 2e-16 ***
## whiteVother     0.23676    0.08191   2.891  0.00393 ** 
## index_TRexp_w3 -0.21864    0.17071  -1.281  0.20058    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.009717,   Adjusted R-squared:  0.007728 
## F-statistic: 4.886 on 2 and 996 DF,  p-value: 0.007731

b2. vaxxBehavior ~ THREAT * whiteVother

m6.cc <- lm(vaxxBehavior ~ whiteVother * index_TRexp_w3, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_TRexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5009 -0.2303  0.6154  0.8209  0.9547 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.26928    0.04440  73.633  < 2e-16 ***
## whiteVother                 0.23058    0.08880   2.597  0.00955 ** 
## index_TRexp_w3             -0.23166    0.18542  -1.249  0.21180    
## whiteVother:index_TRexp_w3 -0.06692    0.37083  -0.180  0.85682    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.009749,   Adjusted R-squared:  0.006763 
## F-statistic: 3.265 on 3 and 995 DF,  p-value: 0.02079

c1. vaxxBehavior ~ THREAT + blackVother

m5.cc <- lm(vaxxBehavior ~ blackVother + index_TRexp_w3, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_TRexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3335 -0.2576  0.7221  0.7783  0.8993 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.24353    0.06177  52.512   <2e-16 ***
## blackVother    -0.05996    0.11970  -0.501    0.617    
## index_TRexp_w3 -0.20587    0.17141  -1.201    0.230    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.169 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.001661,   Adjusted R-squared:  -0.0003437 
## F-statistic: 0.8286 on 2 and 996 DF,  p-value: 0.437

c2. vaxxBehavior ~ THREAT * blackVother

m6.cc <- lm(vaxxBehavior ~ blackVother * index_TRexp_w3, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_TRexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3760 -0.2487  0.7329  0.7776  1.0584 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.23565    0.06287  51.469   <2e-16 ***
## blackVother                -0.03390    0.12573  -0.270    0.787    
## index_TRexp_w3             -0.31316    0.23314  -1.343    0.180    
## blackVother:index_TRexp_w3  0.31666    0.46629   0.679    0.497    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.17 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.002124,   Adjusted R-squared:  -0.0008851 
## F-statistic: 0.7058 on 3 and 995 DF,  p-value: 0.5486

d1. vaxxBehavior ~ AFFECT + education.c

m3.cc <- lm(vaxxBehavior ~ edu.c + index_AFexp_w3, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6015 -0.3124  0.6314  0.7438  1.6589 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.17622    0.04038  78.654  < 2e-16 ***
## edu.c           0.05875    0.01403   4.188 3.06e-05 ***
## index_AFexp_w3  0.41977    0.15305   2.743   0.0062 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.157 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0233, Adjusted R-squared:  0.02134 
## F-statistic: 11.88 on 2 and 996 DF,  p-value: 7.973e-06

d2. vaxxBehavior ~ AFFECT * education.c

m4.cc <- lm(vaxxBehavior ~ edu.c * index_AFexp_w3, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_AFexp_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6144 -0.3100  0.6304  0.7467  1.5873 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.17728    0.04064  78.175  < 2e-16 ***
## edu.c                 0.05736    0.01517   3.781 0.000166 ***
## index_AFexp_w3        0.41442    0.15472   2.679 0.007517 ** 
## edu.c:index_AFexp_w3  0.01407    0.05852   0.240 0.810004    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.157 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02335,    Adjusted R-squared:  0.02041 
## F-statistic: 7.931 on 3 and 995 DF,  p-value: 3.139e-05

i. Wave 1

a1. vaxxAttitudes ~ THREAT + ruralVother + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_TRexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2458 -1.2395  0.0818  1.7816  3.1245 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.40156    0.05052   7.949 2.56e-15 ***
## ruralVother     0.30551    0.09090   3.361 0.000786 ***
## index_TRexp_w1 -0.05187    0.13930  -0.372 0.709619    
## DvR            -0.97782    0.08243 -11.862  < 2e-16 ***
## IvDR            0.50349    0.09341   5.390 7.54e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.0582, Adjusted R-squared:  0.05705 
## F-statistic: 50.46 on 4 and 3266 DF,  p-value: < 2.2e-16

a2. vaxxAttitudes ~ THREAT * ruralVother + partyID

m4.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_TRexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2426 -1.2372  0.0834  1.7815  3.1438 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.40028    0.05289   7.568 4.88e-14 ***
## ruralVother                 0.30973    0.10438   2.967  0.00303 ** 
## index_TRexp_w1             -0.06052    0.17447  -0.347  0.72871    
## DvR                        -0.97786    0.08244 -11.861  < 2e-16 ***
## IvDR                        0.50338    0.09343   5.387 7.65e-08 ***
## ruralVother:index_TRexp_w1  0.02864    0.34793   0.082  0.93441    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.0582, Adjusted R-squared:  0.05676 
## F-statistic: 40.36 on 5 and 3265 DF,  p-value: < 2.2e-16

b1. vaxxAttitudes ~ THREAT + whiteVother + partyID

m5.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_TRexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3942 -1.3634  0.1113  1.6888  3.2110 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.41887    0.04537   9.231  < 2e-16 ***
## whiteVother    -0.40666    0.08095  -5.024 5.33e-07 ***
## index_TRexp_w1 -0.05364    0.13900  -0.386      0.7    
## DvR            -1.13417    0.08523 -13.308  < 2e-16 ***
## IvDR            0.47919    0.09340   5.131 3.06e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.086 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06219,    Adjusted R-squared:  0.06104 
## F-statistic: 54.15 on 4 and 3266 DF,  p-value: < 2.2e-16

b2. vaxxAttitudes ~ THREAT * whiteVother + partyID

m5.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_TRexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5448 -1.3996  0.1295  1.7246  3.4450 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.42985    0.04572   9.403  < 2e-16 ***
## whiteVother                -0.32858    0.09057  -3.628  0.00029 ***
## index_TRexp_w1              0.02383    0.14469   0.165  0.86921    
## DvR                        -1.14321    0.08532 -13.399  < 2e-16 ***
## IvDR                        0.47929    0.09336   5.134 3.01e-07 ***
## whiteVother:index_TRexp_w1  0.55390    0.28875   1.918  0.05516 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.086 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06325,    Adjusted R-squared:  0.06181 
## F-statistic: 44.09 on 5 and 3265 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w1 ~ race_factor_w * index_TRexp_w1, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_TRexp_w1", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("wave 1") + 
  xlab("media threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race grouping') 
## Warning: Removed 2 row(s) containing missing values (geom_path).

c1. vaxxAttitudes ~ THREAT + blackVother + partyID

m4.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_AFexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.860 -1.484  0.358  1.656  4.122 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    -0.05545    0.06115  -0.907    0.365    
## blackVother     1.24148    0.11038  11.248  < 2e-16 ***
## index_AFexp_w1  0.49934    0.11840   4.217 2.54e-05 ***
## DvR            -1.23083    0.08365 -14.713  < 2e-16 ***
## IvDR            0.52755    0.09141   5.771 8.62e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.052 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.09263,    Adjusted R-squared:  0.09152 
## F-statistic: 83.36 on 4 and 3266 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ THREAT * blackVother + partyID

m4.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_TRexp_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6189 -1.4826  0.4794  1.6236  4.0501 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.03917    0.06637   0.590    0.555    
## blackVother                 1.14114    0.13030   8.758  < 2e-16 ***
## index_TRexp_w1             -0.06583    0.18302  -0.360    0.719    
## DvR                        -1.26173    0.08371 -15.073  < 2e-16 ***
## IvDR                        0.52861    0.09194   5.750 9.77e-09 ***
## blackVother:index_TRexp_w1 -0.33562    0.36598  -0.917    0.359    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.057 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08839,    Adjusted R-squared:  0.08699 
## F-statistic: 63.31 on 5 and 3265 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ THREAT + education.c + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_TRexp_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3972 -1.3369  0.0475  1.7015  3.9760 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.49516    0.04304  11.504  < 2e-16 ***
## edu.c           0.08471    0.01287   6.581 5.43e-11 ***
## index_TRexp_w1 -0.04420    0.13861  -0.319     0.75    
## DvR            -1.00862    0.08143 -12.387  < 2e-16 ***
## IvDR            0.47206    0.09312   5.069 4.21e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.081 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06731,    Adjusted R-squared:  0.06617 
## F-statistic: 58.93 on 4 and 3266 DF,  p-value: < 2.2e-16

d2. vaxxAttitudes ~ THREAT * education.c + partyID

m4.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_TRexp_w1 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_TRexp_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4230 -1.3589  0.0495  1.7026  3.9906 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.49438    0.04306  11.482  < 2e-16 ***
## edu.c                 0.07993    0.01418   5.638 1.87e-08 ***
## index_TRexp_w1       -0.04557    0.13863  -0.329    0.742    
## DvR                  -1.01015    0.08145 -12.402  < 2e-16 ***
## IvDR                  0.47414    0.09316   5.090 3.79e-07 ***
## edu.c:index_TRexp_w1 -0.03924    0.04866  -0.806    0.420    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.081 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.0675, Adjusted R-squared:  0.06607 
## F-statistic: 47.27 on 5 and 3265 DF,  p-value: < 2.2e-16

ii. Wave 2

a1. vaxxAttitudes ~ THREAT + ruralVother + partyID

m5.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_TRexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7904 -1.2193  0.0609  1.9629  3.2619 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.20567    0.05827   3.529 0.000424 ***
## ruralVother     0.28687    0.10414   2.755 0.005918 ** 
## index_TRexp_w2  0.01394    0.16522   0.084 0.932752    
## DvR            -0.56693    0.09306  -6.092 1.29e-09 ***
## IvDR            0.46567    0.11174   4.167 3.19e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.071 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02756,    Adjusted R-squared:  0.02596 
## F-statistic: 17.24 on 4 and 2433 DF,  p-value: 5.911e-14

a2. vaxxAttitudes ~ THREAT * ruralVother + partyID

m6.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_TRexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8131 -1.2274  0.0015  1.9574  3.3346 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.19496    0.06074   3.210  0.00135 ** 
## ruralVother                 0.32211    0.11839   2.721  0.00656 ** 
## index_TRexp_w2             -0.06101    0.20404  -0.299  0.76495    
## DvR                        -0.56610    0.09308  -6.082 1.38e-09 ***
## IvDR                        0.46785    0.11181   4.184 2.96e-05 ***
## ruralVother:index_TRexp_w2  0.25513    0.40742   0.626  0.53123    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.071 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02772,    Adjusted R-squared:  0.02572 
## F-statistic: 13.87 on 5 and 2432 DF,  p-value: 2.196e-13

b1. vaxxAttitudes ~ THREAT + whiteVother + partyID

m5.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_TRexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9134 -1.2017  0.0887  1.8078  3.2773 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.21645    0.05303   4.082 4.61e-05 ***
## whiteVother    -0.38118    0.09426  -4.044 5.42e-05 ***
## index_TRexp_w2  0.01075    0.16493   0.065    0.948    
## DvR            -0.70352    0.09618  -7.315 3.49e-13 ***
## IvDR            0.44382    0.11175   3.972 7.35e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.067 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03104,    Adjusted R-squared:  0.02945 
## F-statistic: 19.49 on 4 and 2433 DF,  p-value: 8.477e-16

b2. vaxxAttitudes ~ THREAT * whiteVother + partyID

m6.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_TRexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0664 -1.2101 -0.0337  1.8812  3.4906 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 0.23189    0.05350   4.334 1.52e-05 ***
## whiteVother                -0.28474    0.10484  -2.716  0.00666 ** 
## index_TRexp_w2              0.12662    0.17385   0.728  0.46649    
## DvR                        -0.71101    0.09618  -7.392 1.97e-13 ***
## IvDR                        0.43720    0.11171   3.914 9.34e-05 ***
## whiteVother:index_TRexp_w2  0.72622    0.34667   2.095  0.03628 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.065 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03279,    Adjusted R-squared:  0.0308 
## F-statistic: 16.49 on 5 and 2432 DF,  p-value: 4.878e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_TRexp_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_TRexp_w2", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("wave 2") + 
  xlab("media threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race grouping') 
## Warning: Removed 2 row(s) containing missing values (geom_path).

c1. vaxxAttitudes ~ THREAT + blackVother + partyID

m5.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_TRexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0141 -1.1521  0.0144  1.9118  4.0142 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    -0.13169    0.07254  -1.815   0.0696 .  
## blackVother     1.05045    0.13271   7.916 3.70e-15 ***
## index_TRexp_w2 -0.07329    0.16377  -0.448   0.6545    
## DvR            -0.80144    0.09514  -8.424  < 2e-16 ***
## IvDR            0.48557    0.11047   4.395 1.15e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.048 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04902,    Adjusted R-squared:  0.04746 
## F-statistic: 31.35 on 4 and 2433 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ THREAT * blackVother + partyID

m6.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_TRexp_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0887 -1.1367 -0.0328  1.9025  3.9037 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                -0.09075    0.07767  -1.168    0.243    
## blackVother                 0.94121    0.15201   6.192 6.96e-10 ***
## index_TRexp_w2              0.14223    0.21962   0.648    0.517    
## DvR                        -0.80513    0.09515  -8.462  < 2e-16 ***
## IvDR                        0.48298    0.11046   4.372 1.28e-05 ***
## blackVother:index_TRexp_w2 -0.64555    0.43847  -1.472    0.141    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04987,    Adjusted R-squared:  0.04791 
## F-statistic: 25.53 on 5 and 2432 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ THREAT + education.c + partyID

m3.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_TRexp_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.912 -1.248  0.028  1.896  3.752 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.27827    0.05007   5.558 3.03e-08 ***
## edu.c           0.06663    0.01625   4.099 4.28e-05 ***
## index_TRexp_w2  0.04112    0.16504   0.249    0.803    
## DvR            -0.59014    0.09234  -6.391 1.97e-10 ***
## IvDR            0.46527    0.11151   4.172 3.12e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.067 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03122,    Adjusted R-squared:  0.02963 
## F-statistic:  19.6 on 4 and 2433 DF,  p-value: 6.807e-16

d2. vaxxAttitudes ~ THREAT * education.c + partyID

m4.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_TRexp_w2 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_TRexp_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9741 -1.2634  0.0395  1.8885  3.8727 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           0.27822    0.05006   5.558 3.02e-08 ***
## edu.c                 0.07574    0.01736   4.363 1.34e-05 ***
## index_TRexp_w2        0.02075    0.16556   0.125    0.900    
## DvR                  -0.59116    0.09232  -6.403 1.82e-10 ***
## IvDR                  0.46743    0.11149   4.192 2.86e-05 ***
## edu.c:index_TRexp_w2  0.09001    0.06037   1.491    0.136    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03211,    Adjusted R-squared:  0.03012 
## F-statistic: 16.13 on 5 and 2432 DF,  p-value: 1.114e-15

iii. Wave 3

a1. vaxxBehavior ~ THREAT + ruralVother + partyID

m5.cc <- lm(vaxxBehavior ~ ruralVother + index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_TRexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7730 -0.5383  0.3591  0.8315  1.4550 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.07678    0.04769  64.519  < 2e-16 ***
## ruralVother     0.32430    0.08586   3.777 0.000168 ***
## index_TRexp_w3 -0.26263    0.16404  -1.601 0.109703    
## DvR            -0.68893    0.07819  -8.811  < 2e-16 ***
## IvDR            0.11096    0.09524   1.165 0.244295    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.116 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09454,    Adjusted R-squared:  0.09089 
## F-statistic: 25.87 on 4 and 991 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ THREAT * ruralVother + partyID

m6.cc <- lm(vaxxBehavior ~ ruralVother * index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_TRexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7235 -0.5850  0.3555  0.8250  1.5970 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.05995    0.04949  61.824  < 2e-16 ***
## ruralVother                 0.37793    0.09573   3.948 8.44e-05 ***
## index_TRexp_w3             -0.41726    0.20454  -2.040   0.0416 *  
## DvR                        -0.69100    0.07818  -8.838  < 2e-16 ***
## IvDR                        0.11033    0.09522   1.159   0.2468    
## ruralVother:index_TRexp_w3  0.51633    0.40816   1.265   0.2062    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.115 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.096,  Adjusted R-squared:  0.09144 
## F-statistic: 21.03 on 5 and 990 DF,  p-value: < 2.2e-16

b1. vaxxBehavior ~ THREAT + whiteVother + partyID

m5.cc <- lm(vaxxBehavior ~ whiteVother + index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_TRexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7101 -0.5370  0.3901  0.8857  1.2968 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.17641    0.04529  70.128   <2e-16 ***
## whiteVother     0.05491    0.08247   0.666    0.506    
## index_TRexp_w3 -0.25321    0.16517  -1.533    0.126    
## DvR            -0.70208    0.08126  -8.640   <2e-16 ***
## IvDR            0.13365    0.09622   1.389    0.165    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08192,    Adjusted R-squared:  0.07821 
## F-statistic: 22.11 on 4 and 991 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ THREAT * whiteVother + partyID

m6.cc <- lm(vaxxBehavior ~ whiteVother * index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_TRexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7201 -0.5371  0.3916  0.8887  1.2910 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.17572    0.04572  69.453   <2e-16 ***
## whiteVother                 0.05122    0.08862   0.578    0.563    
## index_TRexp_w3             -0.26112    0.17918  -1.457    0.145    
## DvR                        -0.70183    0.08133  -8.630   <2e-16 ***
## IvDR                        0.13439    0.09648   1.393    0.164    
## whiteVother:index_TRexp_w3 -0.04099    0.35897  -0.114    0.909    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08193,    Adjusted R-squared:  0.07729 
## F-statistic: 17.67 on 5 and 990 DF,  p-value: < 2.2e-16

c1. vaxxBehavior ~ THREAT + blackVother + partyID

m5.cc <- lm(vaxxBehavior ~ blackVother + index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_TRexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7444 -0.4669  0.3730  0.8840  1.5105 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.08579    0.06265  49.251   <2e-16 ***
## blackVother     0.20141    0.11873   1.696   0.0901 .  
## index_TRexp_w3 -0.24549    0.16500  -1.488   0.1371    
## DvR            -0.74856    0.08057  -9.291   <2e-16 ***
## IvDR            0.12305    0.09572   1.286   0.1989    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08417,    Adjusted R-squared:  0.08047 
## F-statistic: 22.77 on 4 and 991 DF,  p-value: < 2.2e-16

c2. vaxxBehavior ~ THREAT * blackVother + partyID

m6.cc <- lm(vaxxBehavior ~ blackVother * index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_TRexp_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7269 -0.4899  0.3702  0.8808  1.6454 
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                 3.08038    0.06364  48.404   <2e-16 ***
## blackVother                 0.21909    0.12412   1.765   0.0778 .  
## index_TRexp_w3             -0.31974    0.22391  -1.428   0.1536    
## DvR                        -0.74756    0.08063  -9.272   <2e-16 ***
## IvDR                        0.12411    0.09578   1.296   0.1954    
## blackVother:index_TRexp_w3  0.21977    0.44781   0.491   0.6237    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.123 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08439,    Adjusted R-squared:  0.07977 
## F-statistic: 18.25 on 5 and 990 DF,  p-value: < 2.2e-16

d1. vaxxBehavior ~ THREAT + education.c + partyID

m3.cc <- lm(vaxxBehavior ~ edu.c + index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_TRexp_w3 + DvR + IvDR, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7434 -0.4551  0.3312  0.8347  1.9201 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     3.14959    0.04169  75.550  < 2e-16 ***
## edu.c           0.05619    0.01351   4.158 3.48e-05 ***
## index_TRexp_w3 -0.23296    0.16383  -1.422    0.155    
## DvR            -0.71844    0.07774  -9.242  < 2e-16 ***
## IvDR            0.11672    0.09503   1.228    0.220    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09726,    Adjusted R-squared:  0.09362 
## F-statistic: 26.69 on 4 and 991 DF,  p-value: < 2.2e-16

d2. vaxxBehavior ~ THREAT * education.c + partyID

m4.cc <- lm(vaxxBehavior ~ edu.c * index_TRexp_w3 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_TRexp_w3 + DvR + IvDR, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7639 -0.4466  0.3352  0.8389  1.8754 
## 
## Coefficients:
##                      Estimate Std. Error t value Pr(>|t|)    
## (Intercept)           3.15021    0.04171  75.526  < 2e-16 ***
## edu.c                 0.05274    0.01445   3.650 0.000276 ***
## index_TRexp_w3       -0.21820    0.16534  -1.320 0.187245    
## DvR                  -0.72122    0.07787  -9.262  < 2e-16 ***
## IvDR                  0.11530    0.09508   1.213 0.225586    
## edu.c:index_TRexp_w3 -0.04257    0.06321  -0.673 0.500818    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09767,    Adjusted R-squared:  0.09312 
## F-statistic: 21.43 on 5 and 990 DF,  p-value: < 2.2e-16

D. Analytic - Affect

i. Wave 1 (excluding partyID)

a1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + ruralVother

m5.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_diffANAF_w1, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_diffANAF_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8658 -1.6473  0.2951  2.2276  2.9012 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.44511    0.05217   8.532  < 2e-16 ***
## ruralVother        0.45569    0.09244   4.929 8.66e-07 ***
## index_diffANAF_w1 -0.10761    0.07218  -1.491    0.136    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.143 on 3278 degrees of freedom
## Multiple R-squared:  0.007916,   Adjusted R-squared:  0.007311 
## F-statistic: 13.08 on 2 and 3278 DF,  p-value: 2.201e-06

a2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * ruralVother

m6.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_diffANAF_w1, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_diffANAF_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8451 -1.6551  0.2948  2.2361  2.9863 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.43703    0.05600   7.803 8.04e-15 ***
## ruralVother                    0.48078    0.11201   4.292 1.82e-05 ***
## index_diffANAF_w1             -0.12988    0.09144  -1.420    0.156    
## ruralVother:index_diffANAF_w1  0.07258    0.18288   0.397    0.691    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3277 degrees of freedom
## Multiple R-squared:  0.007964,   Adjusted R-squared:  0.007056 
## F-statistic: 8.769 on 3 and 3277 DF,  p-value: 8.634e-06

b1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + whiteVother

m7.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_diffANAF_w1, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_diffANAF_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8181 -1.5862  0.3586  2.2919  2.6364 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.56101    0.04636  12.102   <2e-16 ***
## whiteVother       -0.12225    0.07962  -1.535    0.125    
## index_diffANAF_w1 -0.09978    0.07240  -1.378    0.168    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.15 on 3278 degrees of freedom
## Multiple R-squared:  0.00128,    Adjusted R-squared:  0.000671 
## F-statistic: 2.101 on 2 and 3278 DF,  p-value: 0.1225

b2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * whiteVother

m8.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_diffANAF_w1, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_diffANAF_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9425 -1.5445  0.3775  2.2509  2.6256 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.57043    0.04686  12.173   <2e-16 ***
## whiteVother                   -0.05479    0.09372  -0.585    0.559    
## index_diffANAF_w1             -0.07330    0.07495  -0.978    0.328    
## whiteVother:index_diffANAF_w1  0.20445    0.14991   1.364    0.173    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.15 on 3277 degrees of freedom
## Multiple R-squared:  0.001847,   Adjusted R-squared:  0.0009332 
## F-statistic: 2.021 on 3 and 3277 DF,  p-value: 0.1088

c1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + blackVother

m5.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_diffANAF_w1, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_diffANAF_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9681 -1.6586  0.2928  2.1914  3.2144 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.29416    0.06168   4.769 1.93e-06 ***
## blackVother        0.73471    0.11026   6.663 3.13e-11 ***
## index_diffANAF_w1 -0.15612    0.07246  -2.155   0.0313 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.137 on 3278 degrees of freedom
## Multiple R-squared:  0.01392,    Adjusted R-squared:  0.01332 
## F-statistic: 23.13 on 2 and 3278 DF,  p-value: 1.055e-10

c2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * blackVother

m6.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_diffANAF_w1, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_diffANAF_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9501 -1.6621  0.2927  2.2004  3.2861 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.28331    0.07012   4.040 5.46e-05 ***
## blackVother                    0.76292    0.14023   5.440 5.71e-08 ***
## index_diffANAF_w1             -0.17654    0.09584  -1.842   0.0656 .  
## blackVother:index_diffANAF_w1  0.06242    0.19168   0.326   0.7447    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.137 on 3277 degrees of freedom
## Multiple R-squared:  0.01395,    Adjusted R-squared:  0.01305 
## F-statistic: 15.45 on 3 and 3277 DF,  p-value: 5.553e-10

d1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + education.c

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_diffANAF_w1, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_diffANAF_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0002 -1.5307  0.2744  2.1413  3.7391 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.57332    0.04405  13.016  < 2e-16 ***
## edu.c              0.09116    0.01319   6.910 5.78e-12 ***
## index_diffANAF_w1 -0.12439    0.07200  -1.728   0.0841 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.136 on 3278 degrees of freedom
## Multiple R-squared:  0.01491,    Adjusted R-squared:  0.01431 
## F-statistic: 24.81 on 2 and 3278 DF,  p-value: 2.019e-11

d2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * education.c

m4.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_diffANAF_w1, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_diffANAF_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0590 -1.5010  0.2806  2.1274  3.6360 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.57371    0.04406  13.022  < 2e-16 ***
## edu.c                    0.08721    0.01455   5.993 2.28e-09 ***
## index_diffANAF_w1       -0.12708    0.07213  -1.762   0.0782 .  
## edu.c:index_diffANAF_w1 -0.01649    0.02558  -0.645   0.5191    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.136 on 3277 degrees of freedom
## Multiple R-squared:  0.01504,    Adjusted R-squared:  0.01414 
## F-statistic: 16.68 on 3 and 3277 DF,  p-value: 9.44e-11

ii. Wave 2 (excluding partyID)

a1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + ruralVother

m7.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_diffANAF_w2, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_diffANAF_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5535 -1.4391 -0.0956  1.8738  2.9596 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.25462    0.05831   4.367 1.32e-05 ***
## ruralVother        0.36887    0.10447   3.531 0.000422 ***
## index_diffANAF_w2 -0.05926    0.09016  -0.657 0.511068    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005259,   Adjusted R-squared:  0.004445 
## F-statistic: 6.456 on 2 and 2442 DF,  p-value: 0.001598

a2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * ruralVother

m8.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_diffANAF_w2, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_diffANAF_w2, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.481 -1.456 -0.132  1.704  3.162 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.22729    0.06135   3.705 0.000216 ***
## ruralVother                    0.46104    0.12269   3.758 0.000175 ***
## index_diffANAF_w2             -0.15519    0.11231  -1.382 0.167159    
## ruralVother:index_diffANAF_w2  0.32163    0.22463   1.432 0.152321    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.006094,   Adjusted R-squared:  0.004873 
## F-statistic: 4.989 on 3 and 2441 DF,  p-value: 0.001882

b1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + whiteVother

m7.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_diffANAF_w2, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_diffANAF_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5496 -1.4205 -0.2224  1.7869  2.8498 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.32060    0.05282   6.069 1.49e-09 ***
## whiteVother       -0.21507    0.09135  -2.354   0.0186 *  
## index_diffANAF_w2 -0.06660    0.09033  -0.737   0.4610    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.094 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.002445,   Adjusted R-squared:  0.001628 
## F-statistic: 2.993 on 2 and 2442 DF,  p-value: 0.05032

b2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * whiteVother

m8.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_diffANAF_w2, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_diffANAF_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8218 -1.3790 -0.1838  1.7231  3.1436 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.34071    0.05338   6.383 2.07e-10 ***
## whiteVother                   -0.07661    0.10676  -0.718   0.4731    
## index_diffANAF_w2             -0.01043    0.09299  -0.112   0.9107    
## whiteVother:index_diffANAF_w2  0.46481    0.18597   2.499   0.0125 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.092 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.004992,   Adjusted R-squared:  0.003769 
## F-statistic: 4.082 on 3 and 2441 DF,  p-value: 0.006674
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_diffANAF_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w2", "race_factor_w"), 
           color = c("purple", "red")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine attitudes") + 
  xlim(-3, 2) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + blackVother

m7.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_diffANAF_w2, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_diffANAF_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6533 -1.4359  0.1836  1.6078  3.4034 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.06418    0.07183   0.894    0.372    
## blackVother        0.74335    0.12978   5.728 1.14e-08 ***
## index_diffANAF_w2 -0.11928    0.09038  -1.320    0.187    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01343,    Adjusted R-squared:  0.01263 
## F-statistic: 16.63 on 2 and 2442 DF,  p-value: 6.722e-08

c2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * blackVother

m8.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_diffANAF_w2, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_diffANAF_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7314 -1.4224  0.1946  1.6396  3.4522 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.11017    0.08105   1.359  0.17419    
## blackVother                    0.62441    0.16211   3.852  0.00012 ***
## index_diffANAF_w2             -0.02250    0.12007  -0.187  0.85138    
## blackVother:index_diffANAF_w2 -0.29399    0.24014  -1.224  0.22097    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.082 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01404,    Adjusted R-squared:  0.01283 
## F-statistic: 11.59 on 3 and 2441 DF,  p-value: 1.537e-07

d1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + education.c

m7.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_diffANAF_w2, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_diffANAF_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6563 -1.4516 -0.1891  1.7348  3.5722 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.34477    0.04978   6.926 5.50e-12 ***
## edu.c              0.06880    0.01640   4.195 2.82e-05 ***
## index_diffANAF_w2 -0.07036    0.09010  -0.781    0.435    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.089 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.007336,   Adjusted R-squared:  0.006523 
## F-statistic: 9.024 on 2 and 2442 DF,  p-value: 0.0001246

d2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * education.c

m8.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_diffANAF_w2, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_diffANAF_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5939 -1.4707 -0.1703  1.7160  3.7772 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.34130    0.04980   6.854 9.09e-12 ***
## edu.c                    0.08098    0.01788   4.529 6.21e-06 ***
## index_diffANAF_w2       -0.07894    0.09020  -0.875   0.3816    
## edu.c:index_diffANAF_w2  0.05529    0.03241   1.706   0.0882 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.008518,   Adjusted R-squared:  0.007299 
## F-statistic:  6.99 on 3 and 2441 DF,  p-value: 0.0001112
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ education * index_diffANAF_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w2", "education"), 
           color = c("orange", "green", "blue")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine attitudes") + 
  xlim(-3, 2) +
  theme_minimal()+ 
  labs(color ='diff SD for education')

iii. Wave 3 (excluding partyID)

a1. vaxxBehavior ~ (ANALYTIC - AFFECT) + ruralVother

m7.cc <- lm(vaxxBehavior ~ ruralVother + index_diffANAF_w3, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5975 -0.3370  0.6165  0.7176  1.2586 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.07874    0.04909  62.718  < 2e-16 ***
## ruralVother        0.40737    0.08841   4.608 4.59e-06 ***
## index_diffANAF_w3 -0.20852    0.09134  -2.283   0.0226 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.156 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02528,    Adjusted R-squared:  0.02332 
## F-statistic: 12.92 on 2 and 996 DF,  p-value: 2.899e-06

a2. vaxxBehavior ~ (ANALYTIC - AFFECT) * ruralVother

m8.cc <- lm(vaxxBehavior ~ ruralVother * index_diffANAF_w3, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4523 -0.3352  0.6434  0.6929  1.6174 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.04090    0.05159  58.947  < 2e-16 ***
## ruralVother                    0.53243    0.10317   5.161 2.97e-07 ***
## index_diffANAF_w3             -0.35400    0.11037  -3.207  0.00138 ** 
## ruralVother:index_diffANAF_w3  0.51583    0.22074   2.337  0.01965 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.153 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0306, Adjusted R-squared:  0.02768 
## F-statistic: 10.47 on 3 and 995 DF,  p-value: 8.76e-07
- plot
m22.cc <- lm(vaxxBehavior ~ area_factor * index_diffANAF_w3, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w3", "area_factor"), color = c("purple", "blue")) + 
  ggtitle("wave 3") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine behavior") + 
  xlim(-3, 2) +
  theme_minimal()+ 
  labs(color ='area')

b1. vaxxBehavior ~ (ANALYTIC - AFFECT) + whiteVother

m7.cc <- lm(vaxxBehavior ~ whiteVother + index_diffANAF_w3, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5458 -0.2623  0.6327  0.8117  1.1257 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.24647    0.04571  71.031   <2e-16 ***
## whiteVother        0.23651    0.08175   2.893   0.0039 ** 
## index_diffANAF_w3 -0.20032    0.09190  -2.180   0.0295 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.163 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0128, Adjusted R-squared:  0.01081 
## F-statistic: 6.455 on 2 and 996 DF,  p-value: 0.00164

b2. vaxxBehavior ~ (ANALYTIC - AFFECT) * whiteVother

m8.cc <- lm(vaxxBehavior ~ whiteVother * index_diffANAF_w3, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5080 -0.2816  0.6214  0.8091  1.1644 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.24941    0.04628  70.209  < 2e-16 ***
## whiteVother                    0.25428    0.09256   2.747  0.00612 ** 
## index_diffANAF_w3             -0.18575    0.09856  -1.885  0.05978 .  
## whiteVother:index_diffANAF_w3  0.08083    0.19712   0.410  0.68186    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.163 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01296,    Adjusted R-squared:  0.009986 
## F-statistic: 4.356 on 3 and 995 DF,  p-value: 0.004662

c1. vaxxBehavior ~ (ANALYTIC - AFFECT) + blackVother

m7.cc <- lm(vaxxBehavior ~ blackVother + index_diffANAF_w3, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4851 -0.2705  0.6950  0.7889  1.0545 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.21354    0.06402  50.192   <2e-16 ***
## blackVother       -0.04374    0.11959  -0.366   0.7147    
## index_diffANAF_w3 -0.19421    0.09236  -2.103   0.0357 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.168 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.004634,   Adjusted R-squared:  0.002635 
## F-statistic: 2.318 on 2 and 996 DF,  p-value: 0.09897
- mediation analysis - NO MEDIATION
summary(m.ac <- lm(vaxxBehavior ~ blackVother, data = dw)) #NS
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.2679 -0.2249  0.7751  0.7751  0.7751 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  3.24637    0.05875  55.258   <2e-16 ***
## blackVother -0.04297    0.11750  -0.366    0.715    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.174 on 1026 degrees of freedom
##   (2253 observations deleted due to missingness)
## Multiple R-squared:  0.0001303,  Adjusted R-squared:  -0.0008442 
## F-statistic: 0.1337 on 1 and 1026 DF,  p-value: 0.7147
summary(m.ab <- lm(vaxxBehavior ~  index_diffANAF_w3 , data = dw)) #sig
## 
## Call:
## lm(formula = vaxxBehavior ~ index_diffANAF_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4918 -0.2733  0.6920  0.7907  1.0521 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.19600    0.04240  75.376   <2e-16 ***
## index_diffANAF_w3 -0.19578    0.09222  -2.123    0.034 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.167 on 997 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0045, Adjusted R-squared:  0.003501 
## F-statistic: 4.507 on 1 and 997 DF,  p-value: 0.03401
summary(m.abc <- lm(vaxxBehavior ~ blackVother + index_diffANAF_w3 , data = dw)) #race NS, ANAF sig
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4851 -0.2705  0.6950  0.7889  1.0545 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.21354    0.06402  50.192   <2e-16 ***
## blackVother       -0.04374    0.11959  -0.366   0.7147    
## index_diffANAF_w3 -0.19421    0.09236  -2.103   0.0357 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.168 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.004634,   Adjusted R-squared:  0.002635 
## F-statistic: 2.318 on 2 and 996 DF,  p-value: 0.09897

c2. vaxxBehavior ~ (ANALYTIC - AFFECT) * blackVother

m8.cc <- lm(vaxxBehavior ~ blackVother * index_diffANAF_w3, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_diffANAF_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4988 -0.2648  0.7038  0.7910  1.1440 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.196693   0.069122  46.247   <2e-16 ***
## blackVother                    0.001157   0.138245   0.008   0.9933    
## index_diffANAF_w3             -0.251726   0.128124  -1.965   0.0497 *  
## blackVother:index_diffANAF_w3  0.166028   0.256248   0.648   0.5172    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.168 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.005053,   Adjusted R-squared:  0.002054 
## F-statistic: 1.685 on 3 and 995 DF,  p-value: 0.1686

d1. vaxxBehavior ~ (ANALYTIC - AFFECT) + education.c

m7.cc <- lm(vaxxBehavior ~ edu.c + index_diffANAF_w3, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_diffANAF_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4915 -0.3164  0.6237  0.7421  1.6143 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.17314    0.04243  74.782  < 2e-16 ***
## edu.c              0.05771    0.01403   4.114 4.22e-05 ***
## index_diffANAF_w3 -0.21084    0.09157  -2.303   0.0215 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.158 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02113,    Adjusted R-squared:  0.01917 
## F-statistic: 10.75 on 2 and 996 DF,  p-value: 2.403e-05

d2. vaxxBehavior ~ (ANALYTIC - AFFECT) * education.c

m8.cc <- lm(vaxxBehavior ~ edu.c * index_diffANAF_w3, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_diffANAF_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4975 -0.3134  0.6228  0.7464  1.5815 
## 
## Coefficients:
##                          Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              3.173638   0.042593  74.511  < 2e-16 ***
## edu.c                    0.056651   0.015854   3.573  0.00037 ***
## index_diffANAF_w3       -0.209465   0.092109  -2.274  0.02317 *  
## edu.c:index_diffANAF_w3 -0.004992   0.034753  -0.144  0.88581    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.159 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02115,    Adjusted R-squared:  0.0182 
## F-statistic: 7.167 on 3 and 995 DF,  p-value: 9.199e-05

i. Wave 1

a1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + ruralVother + partyID

m5.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_diffANAF_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3296 -1.2786  0.0942  1.7873  3.1767 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.38369    0.05202   7.375 2.07e-13 ***
## ruralVother        0.30780    0.09091   3.386 0.000718 ***
## index_diffANAF_w1 -0.07718    0.07066  -1.092 0.274798    
## DvR               -0.97770    0.08242 -11.863  < 2e-16 ***
## IvDR               0.49959    0.09326   5.357 9.06e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.05851,    Adjusted R-squared:  0.05735 
## F-statistic: 50.74 on 4 and 3266 DF,  p-value: < 2.2e-16

a2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * ruralVother + partyID

m6.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_diffANAF_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3181 -1.2722  0.1056  1.7863  3.2177 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.37931    0.05560   6.823 1.06e-11 ***
## ruralVother                    0.32164    0.10997   2.925  0.00347 ** 
## index_diffANAF_w1             -0.08944    0.08942  -1.000  0.31729    
## DvR                           -0.97763    0.08243 -11.860  < 2e-16 ***
## IvDR                           0.49914    0.09330   5.350 9.41e-08 ***
## ruralVother:index_diffANAF_w1  0.03994    0.17848   0.224  0.82295    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.05852,    Adjusted R-squared:  0.05708 
## F-statistic: 40.59 on 5 and 3265 DF,  p-value: < 2.2e-16

b1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + whiteVother + partyID

m7.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_diffANAF_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4814 -1.3760  0.1228  1.7128  3.2897 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.40166    0.04689   8.566  < 2e-16 ***
## whiteVother       -0.40796    0.08094  -5.040 4.90e-07 ***
## index_diffANAF_w1 -0.07719    0.07049  -1.095    0.274    
## DvR               -1.13470    0.08521 -13.316  < 2e-16 ***
## IvDR               0.47534    0.09325   5.097 3.64e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.086 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06249,    Adjusted R-squared:  0.06134 
## F-statistic: 54.43 on 4 and 3266 DF,  p-value: < 2.2e-16

b2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * whiteVother + partyID

m8.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_diffANAF_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.7004 -1.4231  0.1391  1.7367  3.4121 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.41669    0.04728   8.814  < 2e-16 ***
## whiteVother                   -0.29614    0.09347  -3.168  0.00155 ** 
## index_diffANAF_w1             -0.03174    0.07297  -0.435  0.66357    
## DvR                           -1.14844    0.08535 -13.456  < 2e-16 ***
## IvDR                           0.47602    0.09319   5.108 3.44e-07 ***
## whiteVother:index_diffANAF_w1  0.34837    0.14593   2.387  0.01703 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.085 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06413,    Adjusted R-squared:  0.06269 
## F-statistic: 44.74 on 5 and 3265 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w1 ~ race_factor_w * index_diffANAF_w1, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w1", "race_factor_w"), 
           color = c("blue", "green")) + 
  ggtitle("wave 1") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine attitudes") + 
  xlim(-3, 2) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + blackVother + partyID

m5.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m5.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_diffANAF_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.721 -1.494  0.455  1.635  4.065 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       -0.02048    0.06275  -0.326   0.7441    
## blackVother        1.22414    0.11079  11.049  < 2e-16 ***
## index_diffANAF_w1 -0.16510    0.06999  -2.359   0.0184 *  
## DvR               -1.26334    0.08363 -15.107  < 2e-16 ***
## IvDR               0.52671    0.09172   5.743 1.02e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.056 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08924,    Adjusted R-squared:  0.08813 
## F-statistic: 80.01 on 4 and 3266 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * blackVother + partyID

m6.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m6.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_diffANAF_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.7435 -1.4987  0.4465  1.6391  4.0064 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   -0.007848   0.070232  -0.112    0.911    
## blackVother                    1.191135   0.138073   8.627  < 2e-16 ***
## index_diffANAF_w1             -0.140910   0.092443  -1.524    0.128    
## DvR                           -1.265075   0.083749 -15.106  < 2e-16 ***
## IvDR                           0.526610   0.091734   5.741 1.03e-08 ***
## blackVother:index_diffANAF_w1 -0.074093   0.184920  -0.401    0.689    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.056 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08929,    Adjusted R-squared:  0.08789 
## F-statistic: 64.02 on 5 and 3265 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + education.c + partyID

m3.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m3.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_diffANAF_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4630 -1.3560  0.0718  1.7180  4.0603 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.47062    0.04455  10.563  < 2e-16 ***
## edu.c              0.08574    0.01289   6.652 3.39e-11 ***
## index_diffANAF_w1 -0.09735    0.07039  -1.383    0.167    
## DvR               -1.00867    0.08140 -12.391  < 2e-16 ***
## IvDR               0.46552    0.09299   5.006 5.84e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.08 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06783,    Adjusted R-squared:  0.06669 
## F-statistic: 59.41 on 4 and 3266 DF,  p-value: < 2.2e-16

d2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * education.c + partyID

m4.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_diffANAF_w1 + DvR + IvDR, data = dw)
summary(m4.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_diffANAF_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5413 -1.3591  0.0614  1.7318  4.0575 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.47098    0.04456  10.571  < 2e-16 ***
## edu.c                    0.07995    0.01422   5.622 2.04e-08 ***
## index_diffANAF_w1       -0.10120    0.07051  -1.435    0.151    
## DvR                     -1.01009    0.08142 -12.406  < 2e-16 ***
## IvDR                     0.46683    0.09300   5.020 5.45e-07 ***
## edu.c:index_diffANAF_w1 -0.02406    0.02493  -0.965    0.335    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.08 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06809,    Adjusted R-squared:  0.06667 
## F-statistic: 47.71 on 5 and 3265 DF,  p-value: < 2.2e-16

ii. Wave 2

a1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + ruralVother + partyID

m7.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_diffANAF_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7904 -1.2193  0.0577  1.9629  3.2626 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.206093   0.059570   3.460  0.00055 ***
## ruralVother        0.286822   0.104139   2.754  0.00593 ** 
## index_diffANAF_w2  0.008099   0.089883   0.090  0.92821    
## DvR               -0.567631   0.093186  -6.091 1.30e-09 ***
## IvDR               0.465593   0.111586   4.172 3.12e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.071 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02756,    Adjusted R-squared:  0.02596 
## F-statistic: 17.24 on 4 and 2433 DF,  p-value: 5.909e-14

a2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * ruralVother + partyID

m8.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_diffANAF_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8395 -1.2406  0.0124  1.9412  3.3571 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.17702    0.06260   2.828  0.00473 ** 
## ruralVother                    0.38293    0.12211   3.136  0.00173 ** 
## index_diffANAF_w2             -0.09147    0.11156  -0.820  0.41235    
## DvR                           -0.56619    0.09317  -6.077 1.42e-09 ***
## IvDR                           0.47030    0.11160   4.214 2.60e-05 ***
## ruralVother:index_diffANAF_w2  0.33516    0.22255   1.506  0.13220    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02847,    Adjusted R-squared:  0.02647 
## F-statistic: 14.25 on 5 and 2432 DF,  p-value: 8.938e-14

b1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + whiteVother + partyID

m7.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_diffANAF_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9069 -1.2007  0.0937  1.8026  3.2752 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.215716   0.054498   3.958 7.77e-05 ***
## whiteVother       -0.381164   0.094281  -4.043 5.44e-05 ***
## index_diffANAF_w2  0.002349   0.089738   0.026    0.979    
## DvR               -0.703817   0.096267  -7.311 3.58e-13 ***
## IvDR               0.443329   0.111601   3.972 7.32e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.067 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03104,    Adjusted R-squared:  0.02945 
## F-statistic: 19.49 on 4 and 2433 DF,  p-value: 8.491e-16

b2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * whiteVother + partyID

m8.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_diffANAF_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1893 -1.2228 -0.0166  1.8926  3.6337 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.23776    0.05506   4.318 1.63e-05 ***
## whiteVother                   -0.23762    0.10851  -2.190 0.028625 *  
## index_diffANAF_w2              0.06184    0.09237   0.669 0.503266    
## DvR                           -0.71138    0.09619  -7.396 1.93e-13 ***
## IvDR                           0.43408    0.11152   3.893 0.000102 ***
## whiteVother:index_diffANAF_w2  0.48980    0.18399   2.662 0.007816 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.064 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03386,    Adjusted R-squared:  0.03187 
## F-statistic: 17.04 on 5 and 2432 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_diffANAF_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w2", "race_factor_w"), 
           color = c("blue", "green")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine attitudes") + 
  xlim(-3, 2) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + blackVother + partyID

m7.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_diffANAF_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0561 -1.1480  0.0029  1.9030  3.9976 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       -0.14060    0.07431  -1.892   0.0586 .  
## blackVother        1.05536    0.13305   7.932 3.25e-15 ***
## index_diffANAF_w2 -0.06058    0.08932  -0.678   0.4977    
## DvR               -0.79765    0.09508  -8.389  < 2e-16 ***
## IvDR               0.48410    0.11031   4.389 1.19e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04912,    Adjusted R-squared:  0.04756 
## F-statistic: 31.42 on 4 and 2433 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * blackVother + partyID

m8.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_diffANAF_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1333 -1.1392 -0.0202  1.9045  3.9939 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   -0.09441    0.08310  -1.136    0.256    
## blackVother                    0.93619    0.16406   5.707 1.29e-08 ***
## index_diffANAF_w2              0.03658    0.11875   0.308    0.758    
## DvR                           -0.79701    0.09507  -8.384  < 2e-16 ***
## IvDR                           0.48388    0.11030   4.387 1.20e-05 ***
## blackVother:index_diffANAF_w2 -0.29415    0.23696  -1.241    0.215    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04972,    Adjusted R-squared:  0.04777 
## F-statistic: 25.45 on 5 and 2432 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ (ANALYTIC - AFFECT) + education.c + partyID

m7.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_diffANAF_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.900 -1.241  0.025  1.892  3.756 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.272639   0.051591   5.285 1.37e-07 ***
## edu.c              0.066485   0.016250   4.091 4.43e-05 ***
## index_diffANAF_w2 -0.001628   0.089755  -0.018    0.986    
## DvR               -0.590676   0.092467  -6.388 2.01e-10 ***
## IvDR               0.462249   0.111374   4.150 3.43e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.067 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.0312, Adjusted R-squared:  0.0296 
## F-statistic: 19.59 on 4 and 2433 DF,  p-value: 7.015e-16

d2. vaxxAttitudes ~ (ANALYTIC - AFFECT) * education.c + partyID

m8.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_diffANAF_w2 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_diffANAF_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9963 -1.2568  0.0562  1.8933  3.9318 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.26926    0.05160   5.218 1.96e-07 ***
## edu.c                    0.07924    0.01772   4.472 8.11e-06 ***
## index_diffANAF_w2       -0.01047    0.08985  -0.117   0.9072    
## DvR                     -0.59322    0.09244  -6.418 1.66e-10 ***
## IvDR                     0.46000    0.11133   4.132 3.72e-05 ***
## edu.c:index_diffANAF_w2  0.05779    0.03208   1.801   0.0718 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03249,    Adjusted R-squared:  0.0305 
## F-statistic: 16.33 on 5 and 2432 DF,  p-value: 7.02e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ education * index_diffANAF_w2 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w2", "education"), 
           color = c("orange", "green", "blue")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine attitudes") + 
  xlim(-3, 2) +
  theme_minimal()+ 
  labs(color ='diff SD for education')

iii. Wave 3

a1. vaxxBehavior ~ (ANALYTIC - AFFECT) + ruralVother + partyID

m7.cc <- lm(vaxxBehavior ~ ruralVother + index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_diffANAF_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7551 -0.5420  0.3635  0.8278  1.4550 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.06833    0.04917  62.402  < 2e-16 ***
## ruralVother        0.32761    0.08590   3.814 0.000145 ***
## index_diffANAF_w3 -0.15057    0.08862  -1.699 0.089629 .  
## DvR               -0.67514    0.07829  -8.623  < 2e-16 ***
## IvDR               0.11031    0.09523   1.158 0.247000    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.116 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09484,    Adjusted R-squared:  0.09118 
## F-statistic: 25.96 on 4 and 991 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ (ANALYTIC - AFFECT) * ruralVother + partyID

m8.cc <- lm(vaxxBehavior ~ ruralVother * index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_diffANAF_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6728 -0.6197  0.3622  0.8159  1.6948 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.03336    0.05144  58.967  < 2e-16 ***
## ruralVother                    0.44511    0.10020   4.442 9.92e-06 ***
## index_diffANAF_w3             -0.28705    0.10703  -2.682  0.00744 ** 
## DvR                           -0.67257    0.07814  -8.608  < 2e-16 ***
## IvDR                           0.10713    0.09504   1.127  0.25993    
## ruralVother:index_diffANAF_w3  0.48273    0.21322   2.264  0.02379 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.113 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.0995, Adjusted R-squared:  0.09495 
## F-statistic: 21.88 on 5 and 990 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ area_factor * index_diffANAF_w3 + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANAF_w3", "area_factor"), 
           color = c("blue", "green")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - affect") + 
  ylab("vaccine behavior") + 
  xlim(-2, 2) +
  theme_minimal()+ 
  labs(color ='area grouping')

b1. vaxxBehavior ~ (ANALYTIC - AFFECT) + whiteVother + partyID

m7.cc <- lm(vaxxBehavior ~ whiteVother + index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_diffANAF_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7135 -0.5343  0.3966  0.8905  1.3340 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.17083    0.04652  68.163   <2e-16 ***
## whiteVother        0.05673    0.08249   0.688    0.492    
## index_diffANAF_w3 -0.13898    0.08921  -1.558    0.120    
## DvR               -0.68892    0.08139  -8.464   <2e-16 ***
## IvDR               0.13381    0.09620   1.391    0.165    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.123 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08199,    Adjusted R-squared:  0.07828 
## F-statistic: 22.13 on 4 and 991 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ (ANALYTIC - AFFECT) * whiteVother + partyID

m8.cc <- lm(vaxxBehavior ~ whiteVother * index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_diffANAF_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6984 -0.5339  0.3871  0.8701  1.3934 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.17564    0.04715  67.349   <2e-16 ***
## whiteVother                    0.08257    0.09209   0.897    0.370    
## index_diffANAF_w3             -0.11724    0.09564  -1.226    0.221    
## DvR                           -0.69103    0.08149  -8.480   <2e-16 ***
## IvDR                           0.12988    0.09643   1.347    0.178    
## whiteVother:index_diffANAF_w3  0.12076    0.19106   0.632    0.528    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08236,    Adjusted R-squared:  0.07772 
## F-statistic: 17.77 on 5 and 990 DF,  p-value: < 2.2e-16

c1. vaxxBehavior ~ (ANALYTIC - AFFECT) + blackVother + partyID

m7.cc <- lm(vaxxBehavior ~ blackVother + index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_diffANAF_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7305 -0.5043  0.3746  0.8822  1.4803 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.07405    0.06437  47.753   <2e-16 ***
## blackVother        0.21207    0.11876   1.786   0.0745 .  
## index_diffANAF_w3 -0.14291    0.08911  -1.604   0.1091    
## DvR               -0.73752    0.08062  -9.148   <2e-16 ***
## IvDR               0.12219    0.09571   1.277   0.2020    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.0845, Adjusted R-squared:  0.0808 
## F-statistic: 22.87 on 4 and 991 DF,  p-value: < 2.2e-16

c2. vaxxBehavior ~ (ANALYTIC - AFFECT) * blackVother + partyID

m8.cc <- lm(vaxxBehavior ~ blackVother * index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_diffANAF_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7094 -0.5269  0.3734  0.8802  1.6509 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.05555    0.06920  44.152   <2e-16 ***
## blackVother                    0.26108    0.13648   1.913   0.0560 .  
## index_diffANAF_w3             -0.20521    0.12346  -1.662   0.0968 .  
## DvR                           -0.73765    0.08064  -9.147   <2e-16 ***
## IvDR                           0.12250    0.09574   1.280   0.2010    
## blackVother:index_diffANAF_w3  0.17978    0.24648   0.729   0.4660    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08499,    Adjusted R-squared:  0.08037 
## F-statistic: 18.39 on 5 and 990 DF,  p-value: < 2.2e-16

d1. vaxxBehavior ~ (ANALYTIC - AFFECT) + education.c + partyID

m7.cc <- lm(vaxxBehavior ~ edu.c + index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_diffANAF_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7633 -0.4460  0.3347  0.8421  1.9452 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.13836    0.04321  72.624  < 2e-16 ***
## edu.c              0.05767    0.01351   4.268 2.16e-05 ***
## index_diffANAF_w3 -0.15269    0.08846  -1.726   0.0847 .  
## DvR               -0.70545    0.07779  -9.069  < 2e-16 ***
## IvDR               0.11465    0.09500   1.207   0.2278    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09813,    Adjusted R-squared:  0.09449 
## F-statistic: 26.96 on 4 and 991 DF,  p-value: < 2.2e-16

d2. vaxxBehavior ~ (ANALYTIC - AFFECT) * education.c + partyID

m8.cc <- lm(vaxxBehavior ~ edu.c * index_diffANAF_w3 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_diffANAF_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7768 -0.4495  0.3363  0.8445  1.9074 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              3.13981    0.04339  72.366  < 2e-16 ***
## edu.c                    0.05488    0.01526   3.595  0.00034 ***
## index_diffANAF_w3       -0.14908    0.08897  -1.676  0.09413 .  
## DvR                     -0.70638    0.07786  -9.073  < 2e-16 ***
## IvDR                     0.11348    0.09508   1.193  0.23299    
## edu.c:index_diffANAF_w3 -0.01319    0.03345  -0.394  0.69353    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.114 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09827,    Adjusted R-squared:  0.09372 
## F-statistic: 21.58 on 5 and 990 DF,  p-value: < 2.2e-16

E. Analytic - Threat

i. Wave 1 (excluding partyID)

a1. vaxxAttitudes ~ (ANALYTIC - THREAT) + ruralVother

m7.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_diffANTR_w1, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1517 -1.5766  0.2831  2.0586  3.2217 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.49949    0.04625  10.799  < 2e-16 ***
## ruralVother        0.43484    0.09223   4.715 2.52e-06 ***
## index_diffANTR_w1  0.90806    0.20004   4.539 5.85e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.137 on 3278 degrees of freedom
## Multiple R-squared:  0.01345,    Adjusted R-squared:  0.01284 
## F-statistic: 22.34 on 2 and 3278 DF,  p-value: 2.316e-10

a2. vaxxAttitudes ~ (ANALYTIC - THREAT) * ruralVother

m8.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_diffANTR_w1, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1293 -1.5831  0.2836  2.0705  3.3260 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.50219    0.04660  10.776  < 2e-16 ***
## ruralVother                    0.42846    0.09321   4.597 4.45e-06 ***
## index_diffANTR_w1              0.98457    0.25661   3.837 0.000127 ***
## ruralVother:index_diffANTR_w1 -0.24434    0.51323  -0.476 0.634050    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.138 on 3277 degrees of freedom
## Multiple R-squared:  0.01351,    Adjusted R-squared:  0.01261 
## F-statistic: 14.96 on 3 and 3277 DF,  p-value: 1.13e-09

b1. vaxxAttitudes ~ (ANALYTIC - THREAT) + whiteVother

m9.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_diffANTR_w1, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0955 -1.5578  0.3566  2.1151  3.0508 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.60588    0.03976  15.237  < 2e-16 ***
## whiteVother       -0.13158    0.07939  -1.657   0.0976 .  
## index_diffANTR_w1  0.95638    0.20055   4.769 1.93e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3278 degrees of freedom
## Multiple R-squared:  0.007587,   Adjusted R-squared:  0.006982 
## F-statistic: 12.53 on 2 and 3278 DF,  p-value: 3.792e-06
- medation analysis - no mediation
summary(lm(vaxxAttitudes_w1 ~ whiteVother, data = dw)) #NS
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6542 -1.5333  0.3458  2.3458  2.4667 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  0.59375    0.03981  14.914   <2e-16 ***
## whiteVother -0.12083    0.07963  -1.517    0.129    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.151 on 3279 degrees of freedom
## Multiple R-squared:  0.0007018,  Adjusted R-squared:  0.000397 
## F-statistic: 2.303 on 1 and 3279 DF,  p-value: 0.1292
summary(lm(vaxxAttitudes_w1 ~  index_diffANTR_w1, data = dw)) #sig
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ index_diffANTR_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0810 -1.5686  0.3675  2.1208  3.0443 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.62762    0.03755  16.716  < 2e-16 ***
## index_diffANTR_w1  0.94694    0.20052   4.722 2.43e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3279 degrees of freedom
## Multiple R-squared:  0.006755,   Adjusted R-squared:  0.006453 
## F-statistic:  22.3 on 1 and 3279 DF,  p-value: 2.428e-06
summary(lm(vaxxAttitudes_w1 ~ whiteVother + index_diffANTR_w1, data = dw)) #race marg sig, ANTR sig
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0955 -1.5578  0.3566  2.1151  3.0508 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.60588    0.03976  15.237  < 2e-16 ***
## whiteVother       -0.13158    0.07939  -1.657   0.0976 .  
## index_diffANTR_w1  0.95638    0.20055   4.769 1.93e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3278 degrees of freedom
## Multiple R-squared:  0.007587,   Adjusted R-squared:  0.006982 
## F-statistic: 12.53 on 2 and 3278 DF,  p-value: 3.792e-06

b2. vaxxAttitudes ~ (ANALYTIC - THREAT) * whiteVother

m10.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_diffANTR_w1, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1075 -1.5564  0.3598  2.1089  3.0249 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.60593    0.03977  15.236  < 2e-16 ***
## whiteVother                   -0.13244    0.07954  -1.665    0.096 .  
## index_diffANTR_w1              0.94248    0.21400   4.404  1.1e-05 ***
## whiteVother:index_diffANTR_w1 -0.07977    0.42801  -0.186    0.852    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.144 on 3277 degrees of freedom
## Multiple R-squared:  0.007598,   Adjusted R-squared:  0.006689 
## F-statistic: 8.363 on 3 and 3277 DF,  p-value: 1.547e-05

c1. vaxxAttitudes ~ (ANALYTIC - THREAT) + blackVother

m7.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_diffANTR_w1, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.181 -1.622  0.277  2.055  3.387 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.36798    0.05465   6.734 1.94e-11 ***
## blackVother        0.70998    0.10917   6.504 9.04e-11 ***
## index_diffANTR_w1  0.95610    0.19927   4.798 1.67e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.131 on 3278 degrees of freedom
## Multiple R-squared:  0.01941,    Adjusted R-squared:  0.01881 
## F-statistic: 32.44 on 2 and 3278 DF,  p-value: 1.12e-14

c2. vaxxAttitudes ~ (ANALYTIC - THREAT) * blackVother

m8.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_diffANTR_w1, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.213 -1.630  0.276  2.038  3.220 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.36618    0.05469   6.695 2.52e-11 ***
## blackVother                    0.71557    0.10938   6.542 7.02e-11 ***
## index_diffANTR_w1              0.78444    0.28782   2.725  0.00646 ** 
## blackVother:index_diffANTR_w1  0.47581    0.57565   0.827  0.40854    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.131 on 3277 degrees of freedom
## Multiple R-squared:  0.01961,    Adjusted R-squared:  0.01872 
## F-statistic: 21.85 on 3 and 3277 DF,  p-value: 5.221e-14

d1. vaxxAttitudes ~ (ANALYTIC - THREAT) + education.c

m7.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_diffANTR_w1, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_diffANTR_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2431 -1.5066  0.2948  2.0222  3.5865 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.62631    0.03731  16.786  < 2e-16 ***
## edu.c              0.08607    0.01317   6.533 7.45e-11 ***
## index_diffANTR_w1  0.85689    0.19973   4.290 1.84e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.131 on 3278 degrees of freedom
## Multiple R-squared:  0.01952,    Adjusted R-squared:  0.01892 
## F-statistic: 32.63 on 2 and 3278 DF,  p-value: 9.277e-15

d2. vaxxAttitudes ~ (ANALYTIC - THREAT) * education.c

m8.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_diffANTR_w1, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_diffANTR_w1, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2044 -1.5070  0.2862  2.0292  3.7292 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.62774    0.03743  16.770  < 2e-16 ***
## edu.c                    0.08608    0.01318   6.533 7.45e-11 ***
## index_diffANTR_w1        0.86436    0.20035   4.314 1.65e-05 ***
## edu.c:index_diffANTR_w1 -0.03617    0.07502  -0.482     0.63    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.131 on 3277 degrees of freedom
## Multiple R-squared:  0.01959,    Adjusted R-squared:  0.01869 
## F-statistic: 21.83 on 3 and 3277 DF,  p-value: 5.414e-14

e1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black vs. white)

m9.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) + index_diffANTR_w1, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) + index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3453 -1.6228  0.3113  2.0292  3.3811 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.52612    0.04636  11.348  < 2e-16 ***
## bVw                0.65858    0.11127   5.919 3.58e-09 ***
## bwVo               0.36799    0.06674   5.514 3.78e-08 ***
## index_diffANTR_w1  0.94233    0.19922   4.730 2.34e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.129 on 3277 degrees of freedom
## Multiple R-squared:  0.02105,    Adjusted R-squared:  0.02016 
## F-statistic: 23.49 on 3 and 3277 DF,  p-value: 4.853e-15

e2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black vs. white)

m10.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) * index_diffANTR_w1, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) * index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4183 -1.6218  0.3014  2.0163  3.2201 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             0.52510    0.04639  11.319  < 2e-16 ***
## bVw                     0.66375    0.11153   5.951 2.94e-09 ***
## bwVo                    0.36966    0.06680   5.534 3.37e-08 ***
## index_diffANTR_w1       0.87414    0.24877   3.514 0.000448 ***
## bVw:index_diffANTR_w1   0.43583    0.58635   0.743 0.457356    
## bwVo:index_diffANTR_w1  0.21939    0.36462   0.602 0.547424    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.13 on 3275 degrees of freedom
## Multiple R-squared:  0.02126,    Adjusted R-squared:  0.01976 
## F-statistic: 14.23 on 5 and 3275 DF,  p-value: 8.448e-14

f1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black + hispanic vs. white)

m11.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_diffANTR_w1, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2958 -1.5699  0.3221  2.0119  3.0962 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.65314    0.04802  13.601  < 2e-16 ***
## bhVw               0.34849    0.09158   3.805 0.000144 ***
## bhwVo              0.31235    0.08015   3.897 9.93e-05 ***
## index_diffANTR_w1  0.93099    0.19997   4.656 3.36e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.137 on 3277 degrees of freedom
## Multiple R-squared:  0.01425,    Adjusted R-squared:  0.01335 
## F-statistic: 15.79 on 3 and 3277 DF,  p-value: 3.403e-10

f2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black + hispanic vs. white)

m12.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_diffANTR_w1 , data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_diffANTR_w1, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5471 -1.5652  0.3258  1.9918  3.0573 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.65005    0.04805  13.528  < 2e-16 ***
## bhVw                     0.35595    0.09185   3.875 0.000109 ***
## bhwVo                    0.31175    0.08016   3.889 0.000102 ***
## index_diffANTR_w1        1.02421    0.26389   3.881 0.000106 ***
## bhVw:index_diffANTR_w1   0.54158    0.48924   1.107 0.268387    
## bhwVo:index_diffANTR_w1  0.62528    0.44584   1.402 0.160870    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.136 on 3275 degrees of freedom
## Multiple R-squared:  0.01507,    Adjusted R-squared:  0.01356 
## F-statistic: 10.02 on 5 and 3275 DF,  p-value: 1.566e-09

ii. Wave 2 (excluding partyID)

a1. vaxxAttitudes ~ (ANALYTIC - THREAT) + ruralVother

m9.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_diffANTR_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5846 -1.4439 -0.0912  1.8717  3.0489 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)         0.2760     0.0524   5.267 1.51e-07 ***
## ruralVother         0.3726     0.1045   3.565  0.00037 ***
## index_diffANTR_w2   0.2591     0.2551   1.016  0.30993    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005503,   Adjusted R-squared:  0.004689 
## F-statistic: 6.757 on 2 and 2442 DF,  p-value: 0.001185

a2. vaxxAttitudes ~ (ANALYTIC - THREAT) * ruralVother

m10.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_diffANTR_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6495 -1.4376 -0.1005  1.8686  3.0666 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.27485    0.05241   5.244 1.71e-07 ***
## ruralVother                    0.38111    0.10483   3.636 0.000283 ***
## index_diffANTR_w2              0.05046    0.32329   0.156 0.875983    
## ruralVother:index_diffANTR_w2  0.67949    0.64658   1.051 0.293413    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005953,   Adjusted R-squared:  0.004732 
## F-statistic: 4.873 on 3 and 2441 DF,  p-value: 0.002215

b1. vaxxAttitudes ~ (ANALYTIC - THREAT) + whiteVother

m9.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_diffANTR_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5454 -1.4215 -0.2247  1.7593  2.8979 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.34497    0.04599   7.501 8.84e-14 ***
## whiteVother       -0.21176    0.09132  -2.319   0.0205 *  
## index_diffANTR_w2  0.21898    0.25541   0.857   0.3913    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.094 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.002523,   Adjusted R-squared:  0.001706 
## F-statistic: 3.089 on 2 and 2442 DF,  p-value: 0.04573

b2. vaxxAttitudes ~ (ANALYTIC - THREAT) * whiteVother

m10.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_diffANTR_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.8420 -1.4200 -0.1832  1.7270  3.5025 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.35301    0.04603   7.669 2.49e-14 ***
## whiteVother                   -0.17817    0.09207  -1.935  0.05307 .  
## index_diffANTR_w2              0.49151    0.27475   1.789  0.07375 .  
## whiteVother:index_diffANTR_w2  1.46730    0.54950   2.670  0.00763 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.091 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.005429,   Adjusted R-squared:  0.004206 
## F-statistic: 4.441 on 3 and 2441 DF,  p-value: 0.00405
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_diffANTR_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANTR_w2", "race_factor_w"), 
           color = c("blue", "green")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

c1. vaxxAttitudes ~ (ANALYTIC - THREAT) + blackVother

m9.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_diffANTR_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.5451 -1.4637  0.2332  1.5625  3.3001 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.11088    0.06489   1.709   0.0876 .  
## blackVother        0.72028    0.12907   5.581 2.66e-08 ***
## index_diffANTR_w2  0.17163    0.25425   0.675   0.4997    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01292,    Adjusted R-squared:  0.01211 
## F-statistic: 15.98 on 2 and 2442 DF,  p-value: 1.278e-07

c2. vaxxAttitudes ~ (ANALYTIC - THREAT) * blackVother

m10.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_diffANTR_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.4868 -1.4662  0.1083  1.5398  3.5432 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.12794    0.06605   1.937   0.0529 .  
## blackVother                    0.68142    0.13209   5.159 2.69e-07 ***
## index_diffANTR_w2              0.57923    0.39018   1.484   0.1378    
## blackVother:index_diffANTR_w2 -1.07452    0.78036  -1.377   0.1687    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01368,    Adjusted R-squared:  0.01247 
## F-statistic: 11.29 on 3 and 2441 DF,  p-value: 2.367e-07

d1. vaxxAttitudes ~ (ANALYTIC - THREAT) + education.c

m9.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_diffANTR_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_diffANTR_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6184 -1.4656 -0.1941  1.7492  3.5354 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.36876    0.04275   8.625  < 2e-16 ***
## edu.c              0.06783    0.01642   4.131 3.73e-05 ***
## index_diffANTR_w2  0.16799    0.25519   0.658     0.51    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.089 on 2442 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.007264,   Adjusted R-squared:  0.006451 
## F-statistic: 8.935 on 2 and 2442 DF,  p-value: 0.0001361

d2. vaxxAttitudes ~ (ANALYTIC - THREAT) * education.c

m10.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_diffANTR_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_diffANTR_w2, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.7155 -1.4529 -0.2027  1.7279  3.5752 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.36549    0.04289   8.522  < 2e-16 ***
## edu.c                    0.06989    0.01656   4.221 2.52e-05 ***
## index_diffANTR_w2        0.12972    0.25822   0.502    0.615    
## edu.c:index_diffANTR_w2  0.10151    0.10452   0.971    0.332    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.089 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.007648,   Adjusted R-squared:  0.006428 
## F-statistic: 6.271 on 3 and 2441 DF,  p-value: 0.0003089

e1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black vs. white)

m9.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) + index_diffANTR_w2, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) + index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6198 -1.4441  0.2334  1.5783  3.2996 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.24900    0.05457   4.563 5.29e-06 ***
## bVw                0.69925    0.13124   5.328 1.08e-07 ***
## bwVo               0.29741    0.07764   3.830 0.000131 ***
## index_diffANTR_w2  0.16999    0.25427   0.669 0.503833    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.083 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01323,    Adjusted R-squared:  0.01202 
## F-statistic: 10.91 on 3 and 2441 DF,  p-value: 4.057e-07

e2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black vs. white)

m10.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) * index_diffANTR_w2, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) * index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0122 -1.4504  0.1042  1.6179  3.5432 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             0.26321    0.05510   4.777 1.89e-06 ***
## bVw                     0.65487    0.13417   4.881 1.13e-06 ***
## bwVo                    0.29710    0.07839   3.790 0.000154 ***
## index_diffANTR_w2       0.64021    0.32728   1.956 0.050563 .  
## bVw:index_diffANTR_w2  -1.35862    0.79303  -1.713 0.086803 .  
## bwVo:index_diffANTR_w2  0.40608    0.46778   0.868 0.385433    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.082 on 2439 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.01556,    Adjusted R-squared:  0.01355 
## F-statistic: 7.712 on 5 and 2439 DF,  p-value: 3.313e-07
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_bw * index_diffANTR_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANTR_w2", "race_bw"), 
           color = c("blue", "green", "purple")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

f1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black + hispanic vs. white)

m11.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_diffANTR_w2, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.6358 -1.4358 -0.0532  1.6032  3.0248 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.35372    0.05522   6.406 1.79e-10 ***
## bhVw               0.39456    0.10773   3.663 0.000255 ***
## bhwVo              0.20154    0.09073   2.221 0.026420 *  
## index_diffANTR_w2  0.18638    0.25514   0.731 0.465147    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.09 on 2441 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.006647,   Adjusted R-squared:  0.005426 
## F-statistic: 5.444 on 3 and 2441 DF,  p-value: 0.0009925

f2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black + hispanic vs. white)

m12.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_diffANTR_w2, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_diffANTR_w2, 
##     data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -3.989 -1.442 -0.074  1.654  3.431 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.36489    0.05538   6.589 5.41e-11 ***
## bhVw                     0.35201    0.10945   3.216  0.00132 ** 
## bhwVo                    0.19759    0.09096   2.172  0.02994 *  
## index_diffANTR_w2        0.65096    0.33091   1.967  0.04927 *  
## bhVw:index_diffANTR_w2  -1.44969    0.65088  -2.227  0.02602 *  
## bhwVo:index_diffANTR_w2  0.33650    0.54478   0.618  0.53684    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.088 on 2439 degrees of freedom
##   (836 observations deleted due to missingness)
## Multiple R-squared:  0.009187,   Adjusted R-squared:  0.007155 
## F-statistic: 4.523 on 5 and 2439 DF,  p-value: 0.0004162
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_wbh * index_diffANTR_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANTR_w2", "race_wbh"), 
           color = c("blue", "green", "purple", "green")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

iii. Wave 3 (excluding partyID)

a1. vaxxBehavior ~ (ANALYTIC - THREAT) + ruralVother

m9.cc <- lm(vaxxBehavior ~ ruralVother + index_diffANTR_w3, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3451 -0.3285  0.6687  0.6753  1.0932 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.12643    0.04480  69.781  < 2e-16 ***
## ruralVother        0.40180    0.08865   4.532 6.54e-06 ***
## index_diffANTR_w3 -0.04481    0.26307  -0.170    0.865    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.159 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02021,    Adjusted R-squared:  0.01824 
## F-statistic: 10.27 on 2 and 996 DF,  p-value: 3.843e-05

a2. vaxxBehavior ~ (ANALYTIC - THREAT) * ruralVother

m10.cc <- lm(vaxxBehavior ~ ruralVother * index_diffANTR_w3, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3913 -0.3308  0.6613  0.6812  1.4057 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                     3.1173     0.0453  68.816  < 2e-16 ***
## ruralVother                     0.4271     0.0906   4.715 2.77e-06 ***
## index_diffANTR_w3              -0.3018     0.3251  -0.928    0.353    
## ruralVother:index_diffANTR_w3   0.8741     0.6502   1.344    0.179    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.158 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.02198,    Adjusted R-squared:  0.01904 
## F-statistic: 7.455 on 3 and 995 DF,  p-value: 6.13e-05

b1. vaxxBehavior ~ (ANALYTIC - THREAT) + whiteVother

m9.cc <- lm(vaxxBehavior ~ whiteVother + index_diffANTR_w3, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4087 -0.1750  0.5923  0.8256  0.8281 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.29115    0.04141  79.482  < 2e-16 ***
## whiteVother        0.23347    0.08194   2.849  0.00447 ** 
## index_diffANTR_w3  0.00374    0.26454   0.014  0.98872    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.166 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.008086,   Adjusted R-squared:  0.006094 
## F-statistic:  4.06 on 2 and 996 DF,  p-value: 0.01754

b2. vaxxBehavior ~ (ANALYTIC - THREAT) * whiteVother

m10.cc <- lm(vaxxBehavior ~ whiteVother * index_diffANTR_w3, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4401 -0.1825  0.5987  0.8247  0.8556 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.28993    0.04165  78.999  < 2e-16 ***
## whiteVother                    0.22923    0.08329   2.752  0.00603 ** 
## index_diffANTR_w3             -0.04473    0.31374  -0.143  0.88667    
## whiteVother:index_diffANTR_w3 -0.18050    0.62747  -0.288  0.77366    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.166 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.008168,   Adjusted R-squared:  0.005178 
## F-statistic: 2.732 on 3 and 995 DF,  p-value: 0.04272

c1. vaxxBehavior ~ (ANALYTIC - THREAT) + blackVother

m9.cc <- lm(vaxxBehavior ~ blackVother + index_diffANTR_w3, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.2899 -0.2344  0.7654  0.7657  0.7667 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.262057   0.060343  54.059   <2e-16 ***
## blackVother       -0.055440   0.119805  -0.463    0.644    
## index_diffANTR_w3  0.001577   0.265752   0.006    0.995    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.17 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0002151,  Adjusted R-squared:  -0.001793 
## F-statistic: 0.1071 on 2 and 996 DF,  p-value: 0.8984

c2. vaxxBehavior ~ (ANALYTIC - THREAT) * blackVother

m10.cc <- lm(vaxxBehavior ~ blackVother * index_diffANTR_w3, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3573 -0.2365  0.7598  0.7658  0.8358 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.25694    0.06171  52.780   <2e-16 ***
## blackVother                   -0.04367    0.12342  -0.354    0.724    
## index_diffANTR_w3             -0.12966    0.42230  -0.307    0.759    
## blackVother:index_diffANTR_w3  0.33784    0.84460   0.400    0.689    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.171 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.0003758,  Adjusted R-squared:  -0.002638 
## F-statistic: 0.1247 on 3 and 995 DF,  p-value: 0.9455

d1. vaxxBehavior ~ (ANALYTIC - THREAT) + education.c

m9.cc <- lm(vaxxBehavior ~ edu.c + index_diffANTR_w3, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_diffANTR_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3878 -0.3158  0.6330  0.7301  1.5349 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.21974    0.03754  85.768  < 2e-16 ***
## edu.c              0.05661    0.01408   4.021 6.22e-05 ***
## index_diffANTR_w3 -0.06354    0.26391  -0.241     0.81    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.161 on 996 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01598,    Adjusted R-squared:  0.014 
## F-statistic: 8.086 on 2 and 996 DF,  p-value: 0.0003284

d2. vaxxBehavior ~ (ANALYTIC - THREAT) * education.c

m10.cc <- lm(vaxxBehavior ~ edu.c * index_diffANTR_w3, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_diffANTR_w3, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3768 -0.3162  0.6319  0.7323  1.5813 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              3.21694    0.03779  85.132  < 2e-16 ***
## edu.c                    0.05912    0.01458   4.055 5.41e-05 ***
## index_diffANTR_w3       -0.10750    0.27217  -0.395    0.693    
## edu.c:index_diffANTR_w3  0.07356    0.11087   0.663    0.507    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.161 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01641,    Adjusted R-squared:  0.01345 
## F-statistic: 5.534 on 3 and 995 DF,  p-value: 0.0009062

e1. vaxxBehavior ~ (ANALYTIC - THREAT) + (black vs. white)

m9.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + index_diffANTR_w3, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4810 -0.1760  0.7080  0.8256  0.8307 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.314452   0.050254  65.954   <2e-16 ***
## bVw               -0.115239   0.120824  -0.954   0.3404    
## bwVo               0.165393   0.071227   2.322   0.0204 *  
## index_diffANTR_w3 -0.009417   0.264625  -0.036   0.9716    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.009849,   Adjusted R-squared:  0.006864 
## F-statistic: 3.299 on 3 and 995 DF,  p-value: 0.01985

e2. vaxxBehavior ~ (ANALYTIC - THREAT) * (black vs. white)

m10.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * index_diffANTR_w3, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.4899 -0.1825  0.6371  0.8247  0.8556 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             3.31085    0.05102  64.892   <2e-16 ***
## bVw                    -0.10346    0.12448  -0.831   0.4061    
## bwVo                    0.16761    0.07244   2.314   0.0209 *  
## index_diffANTR_w3      -0.11561    0.38155  -0.303   0.7620    
## bVw:index_diffANTR_w3   0.34411    0.84859   0.406   0.6852    
## bwVo:index_diffANTR_w3  0.02184    0.58505   0.037   0.9702    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.166 on 993 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01003,    Adjusted R-squared:  0.005042 
## F-statistic: 2.011 on 5 and 993 DF,  p-value: 0.07462

f1. vaxxBehavior ~ (ANALYTIC - THREAT) + (black + hispanic vs. white)

m11.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) + index_diffANTR_w3, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) + index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.5519 -0.1757  0.6686  0.8256  0.8299 
## 
## Coefficients:
##                    Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.352121   0.050999  65.730   <2e-16 ***
## bhVw              -0.157117   0.096294  -1.632   0.1031    
## bhwVo              0.198792   0.084785   2.345   0.0192 *  
## index_diffANTR_w3 -0.008001   0.264489  -0.030   0.9759    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.165 on 995 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01034,    Adjusted R-squared:  0.007361 
## F-statistic: 3.467 on 3 and 995 DF,  p-value: 0.0158

f2. vaxxBehavior ~ (ANALYTIC - THREAT) * (black + hispanic vs. white)

m12.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) * index_diffANTR_w3, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) * index_diffANTR_w3, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6202 -0.1825  0.6687  0.8247  0.8556 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              3.34962    0.05139  65.184   <2e-16 ***
## bhVw                    -0.15582    0.09847  -1.582   0.1139    
## bhwVo                    0.19280    0.08562   2.252   0.0245 *  
## index_diffANTR_w3       -0.20094    0.42181  -0.476   0.6339    
## bhVw:index_diffANTR_w3   0.05844    0.71545   0.082   0.9349    
## bhwVo:index_diffANTR_w3 -0.43449    0.73557  -0.591   0.5549    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.166 on 993 degrees of freedom
##   (2282 observations deleted due to missingness)
## Multiple R-squared:  0.01074,    Adjusted R-squared:  0.005755 
## F-statistic: 2.155 on 5 and 993 DF,  p-value: 0.0569

i. Wave 1

a1. vaxxAttitudes ~ (ANALYTIC - THREAT) + ruralVother + partyID

m7.cc <- lm(vaxxAttitudes_w1 ~ ruralVother + index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother + index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.4318 -1.3141  0.0799  1.7900  3.3151 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.41900    0.04683   8.946  < 2e-16 ***
## ruralVother        0.30061    0.09082   3.310 0.000943 ***
## index_diffANTR_w1  0.50703    0.19879   2.551 0.010801 *  
## DvR               -0.94031    0.08367 -11.239  < 2e-16 ***
## IvDR               0.50794    0.09298   5.463 5.03e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.089 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06003,    Adjusted R-squared:  0.05888 
## F-statistic: 52.15 on 4 and 3266 DF,  p-value: < 2.2e-16

a2. vaxxAttitudes ~ (ANALYTIC - THREAT) * ruralVother + partyID

m8.cc <- lm(vaxxAttitudes_w1 ~ ruralVother * index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ ruralVother * index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.3977 -1.3015  0.0763  1.7868  3.4890 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.42333    0.04714   8.980  < 2e-16 ***
## ruralVother                    0.28977    0.09180   3.156  0.00161 ** 
## index_diffANTR_w1              0.63389    0.25288   2.507  0.01223 *  
## DvR                           -0.94165    0.08369 -11.252  < 2e-16 ***
## IvDR                           0.50906    0.09299   5.474 4.73e-08 ***
## ruralVother:index_diffANTR_w1 -0.40733    0.50181  -0.812  0.41701    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.089 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06022,    Adjusted R-squared:  0.05878 
## F-statistic: 41.85 on 5 and 3265 DF,  p-value: < 2.2e-16

b1. vaxxAttitudes ~ (ANALYTIC - THREAT) + whiteVother + partyID

m9.cc <- lm(vaxxAttitudes_w1 ~ whiteVother + index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother + index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5630 -1.3772  0.1527  1.7299  3.3945 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.43587    0.04133  10.546  < 2e-16 ***
## whiteVother       -0.40115    0.08089  -4.959 7.44e-07 ***
## index_diffANTR_w1  0.49449    0.19841   2.492   0.0127 *  
## DvR               -1.09541    0.08656 -12.655  < 2e-16 ***
## IvDR               0.48402    0.09297   5.206 2.05e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.085 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06393,    Adjusted R-squared:  0.06278 
## F-statistic: 55.76 on 4 and 3266 DF,  p-value: < 2.2e-16

b2. vaxxAttitudes ~ (ANALYTIC - THREAT) * whiteVother + partyID

m10.cc <- lm(vaxxAttitudes_w1 ~ whiteVother * index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ whiteVother * index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5495 -1.3750  0.1576  1.7264  3.4317 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.43582    0.04134  10.543  < 2e-16 ***
## whiteVother                   -0.40040    0.08098  -4.945 8.01e-07 ***
## index_diffANTR_w1              0.51017    0.21093   2.419   0.0156 *  
## DvR                           -1.09630    0.08667 -12.649  < 2e-16 ***
## IvDR                           0.48343    0.09302   5.197 2.15e-07 ***
## whiteVother:index_diffANTR_w1  0.09149    0.41744   0.219   0.8265    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.085 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06394,    Adjusted R-squared:  0.06251 
## F-statistic: 44.61 on 5 and 3265 DF,  p-value: < 2.2e-16

c1. vaxxAttitudes ~ (ANALYTIC - THREAT) + blackVother + partyID

m7.cc <- lm(vaxxAttitudes_w1 ~ blackVother + index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother + index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6249 -1.4645  0.4524  1.6284  4.1013 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.05514    0.05683   0.970   0.3320    
## blackVother        1.18159    0.11008  10.734  < 2e-16 ***
## index_diffANTR_w1  0.42647    0.19586   2.177   0.0295 *  
## DvR               -1.22255    0.08507 -14.371  < 2e-16 ***
## IvDR               0.54149    0.09155   5.915 3.66e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.056 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08902,    Adjusted R-squared:  0.0879 
## F-statistic: 79.78 on 4 and 3266 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ (ANALYTIC - THREAT) * blackVother + partyID

m8.cc <- lm(vaxxAttitudes_w1 ~ blackVother * index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ blackVother * index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6276 -1.4648  0.4509  1.6301  4.0896 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.05504    0.05685   0.968    0.333    
## blackVother                    1.18197    0.11021  10.725  < 2e-16 ***
## index_diffANTR_w1              0.41068    0.27985   1.467    0.142    
## DvR                           -1.22216    0.08523 -14.340  < 2e-16 ***
## IvDR                           0.54148    0.09156   5.914 3.68e-09 ***
## blackVother:index_diffANTR_w1  0.04410    0.55851   0.079    0.937    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.057 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08902,    Adjusted R-squared:  0.08762 
## F-statistic: 63.81 on 5 and 3265 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ (ANALYTIC - THREAT) + education.c + partyID

m7.cc <- lm(vaxxAttitudes_w1 ~ edu.c + index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m7.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c + index_diffANTR_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5703 -1.3790  0.1116  1.7080  3.9024 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.50870    0.03883  13.101  < 2e-16 ***
## edu.c              0.08279    0.01289   6.420 1.56e-10 ***
## index_diffANTR_w1  0.43201    0.19831   2.178   0.0294 *  
## DvR               -0.97627    0.08273 -11.801  < 2e-16 ***
## IvDR               0.47664    0.09272   5.141 2.90e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.079 on 3266 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06864,    Adjusted R-squared:  0.0675 
## F-statistic: 60.17 on 4 and 3266 DF,  p-value: < 2.2e-16

d2. vaxxAttitudes ~ (ANALYTIC - THREAT) * education.c + partyID

m8.cc <- lm(vaxxAttitudes_w1 ~ edu.c * index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m8.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ edu.c * index_diffANTR_w1 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.5279 -1.3778  0.1395  1.7038  3.9852 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.51023    0.03894  13.104  < 2e-16 ***
## edu.c                    0.08280    0.01290   6.420 1.56e-10 ***
## index_diffANTR_w1        0.44007    0.19890   2.213    0.027 *  
## DvR                     -0.97633    0.08273 -11.801  < 2e-16 ***
## IvDR                     0.47686    0.09273   5.143 2.87e-07 ***
## edu.c:index_diffANTR_w1 -0.03955    0.07323  -0.540    0.589    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.079 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.06872,    Adjusted R-squared:  0.06729 
## F-statistic: 48.18 on 5 and 3265 DF,  p-value: < 2.2e-16

e1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black vs. white) + partyID

m9.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) + index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) + index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6070 -1.4804  0.4562  1.6358  4.0923 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.26362    0.04824   5.464 5.00e-08 ***
## bVw                1.16404    0.11318  10.285  < 2e-16 ***
## bwVo               0.42970    0.06496   6.614 4.34e-11 ***
## index_diffANTR_w1  0.42686    0.19588   2.179   0.0294 *  
## DvR               -1.21290    0.08629 -14.056  < 2e-16 ***
## IvDR               0.54728    0.09196   5.951 2.94e-09 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.057 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08914,    Adjusted R-squared:  0.08775 
## F-statistic: 63.91 on 5 and 3265 DF,  p-value: < 2.2e-16

e2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black vs. white) + partyID

m10.cc <- lm(vaxxAttitudes_w1 ~ (bVw + bwVo) * index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bVw + bwVo) * index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.599 -1.481  0.448  1.635  4.081 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             0.26363    0.04826   5.463 5.05e-08 ***
## bVw                     1.16408    0.11333  10.272  < 2e-16 ***
## bwVo                    0.43019    0.06502   6.616 4.30e-11 ***
## index_diffANTR_w1       0.43874    0.24257   1.809   0.0706 .  
## DvR                    -1.21278    0.08647 -14.026  < 2e-16 ***
## IvDR                    0.54654    0.09205   5.937 3.20e-09 ***
## bVw:index_diffANTR_w1   0.02016    0.56925   0.035   0.9717    
## bwVo:index_diffANTR_w1  0.07810    0.35302   0.221   0.8249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.057 on 3263 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.08915,    Adjusted R-squared:  0.0872 
## F-statistic: 45.63 on 7 and 3263 DF,  p-value: < 2.2e-16

f1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black + hispanic vs. white) + partyID

m11.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) + index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.6671 -1.4956  0.4098  1.6571  3.6857 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.45497    0.04880   9.324  < 2e-16 ***
## bhVw               0.73745    0.09345   7.891 4.04e-15 ***
## bhwVo              0.38332    0.07821   4.901 1.00e-06 ***
## index_diffANTR_w1  0.42741    0.19718   2.168   0.0303 *  
## DvR               -1.17029    0.08658 -13.516  < 2e-16 ***
## IvDR               0.52671    0.09248   5.695 1.34e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.069 on 3265 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.07791,    Adjusted R-squared:  0.0765 
## F-statistic: 55.17 on 5 and 3265 DF,  p-value: < 2.2e-16

f2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black + hispanic vs. white) + partyID

m12.cc <- lm(vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_diffANTR_w1 + DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w1 ~ (bhVw + bhwVo) * index_diffANTR_w1 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.7143 -1.4944  0.4059  1.6597  3.6260 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.45449    0.04881   9.311  < 2e-16 ***
## bhVw                     0.73831    0.09361   7.887 4.19e-15 ***
## bhwVo                    0.38291    0.07825   4.894 1.04e-06 ***
## index_diffANTR_w1        0.48196    0.25876   1.863   0.0626 .  
## DvR                     -1.16660    0.08688 -13.428  < 2e-16 ***
## IvDR                     0.52508    0.09259   5.671 1.54e-08 ***
## bhVw:index_diffANTR_w1   0.15363    0.47604   0.323   0.7469    
## bhwVo:index_diffANTR_w1  0.25446    0.43342   0.587   0.5572    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 3263 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.07802,    Adjusted R-squared:  0.07604 
## F-statistic: 39.45 on 7 and 3263 DF,  p-value: < 2.2e-16

ii. Wave 2

a1. vaxxAttitudes ~ (ANALYTIC - THREAT) + ruralVother + partyID

m9.cc <- lm(vaxxAttitudes_w2 ~ ruralVother + index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother + index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.9731 -1.2449  0.0262  1.9527  3.4142 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.20902    0.05444   3.840 0.000126 ***
## ruralVother        0.29115    0.10413   2.796 0.005214 ** 
## index_diffANTR_w2  0.37344    0.25313   1.475 0.140269    
## DvR               -0.57280    0.09306  -6.155 8.75e-10 ***
## IvDR               0.47236    0.11122   4.247 2.25e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02843,    Adjusted R-squared:  0.02683 
## F-statistic:  17.8 on 4 and 2433 DF,  p-value: 2.06e-14

a2. vaxxAttitudes ~ (ANALYTIC - THREAT) * ruralVother + partyID

m10.cc <- lm(vaxxAttitudes_w2 ~ ruralVother * index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ ruralVother * index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0385 -1.2566  0.0472  1.9295  3.3279 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.20747    0.05445   3.810 0.000142 ***
## ruralVother                    0.29979    0.10444   2.870 0.004135 ** 
## index_diffANTR_w2              0.16354    0.32038   0.510 0.609784    
## DvR                           -0.57144    0.09307  -6.140 9.61e-10 ***
## IvDR                           0.47503    0.11124   4.270 2.03e-05 ***
## ruralVother:index_diffANTR_w2  0.68430    0.64025   1.069 0.285262    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.07 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.02889,    Adjusted R-squared:  0.02689 
## F-statistic: 14.47 on 5 and 2432 DF,  p-value: 5.423e-14

b1. vaxxAttitudes ~ (ANALYTIC - THREAT) + whiteVother + partyID

m9.cc <- lm(vaxxAttitudes_w2 ~ whiteVother + index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother + index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0558 -1.2145 -0.0068  1.8756  3.4878 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.22112    0.04885   4.526 6.30e-06 ***
## whiteVother       -0.38035    0.09423  -4.036 5.59e-05 ***
## index_diffANTR_w2  0.34692    0.25260   1.373     0.17    
## DvR               -0.70909    0.09619  -7.372 2.29e-13 ***
## IvDR               0.45036    0.11124   4.049 5.31e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03179,    Adjusted R-squared:  0.0302 
## F-statistic: 19.97 on 4 and 2433 DF,  p-value: 3.387e-16

b2. vaxxAttitudes ~ (ANALYTIC - THREAT) * whiteVother + partyID

m10.cc <- lm(vaxxAttitudes_w2 ~ whiteVother * index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ whiteVother * index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1803 -1.2011  0.0106  1.8402  4.0713 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    0.22926    0.04890   4.689 2.90e-06 ***
## whiteVother                   -0.34720    0.09496  -3.656 0.000262 ***
## index_diffANTR_w2              0.61076    0.27174   2.248 0.024691 *  
## DvR                           -0.70686    0.09608  -7.357 2.55e-13 ***
## IvDR                           0.44955    0.11110   4.046 5.37e-05 ***
## whiteVother:index_diffANTR_w2  1.41853    0.54262   2.614 0.008999 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.064 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.0345, Adjusted R-squared:  0.03252 
## F-statistic: 17.38 on 5 and 2432 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_factor_w * index_diffANTR_w2, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANTR_w2", "race_factor_w"), 
           color = c("blue", "green")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race grouping')

c1. vaxxAttitudes ~ (ANALYTIC - THREAT) + blackVother + partyID

m9.cc <- lm(vaxxAttitudes_w2 ~ blackVother + index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother + index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0936 -1.1580  0.0021  1.8979  4.0067 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       -0.11402    0.06857  -1.663   0.0965 .  
## blackVother        1.04188    0.13242   7.868 5.38e-15 ***
## index_diffANTR_w2  0.29687    0.25038   1.186   0.2359    
## DvR               -0.80349    0.09508  -8.451  < 2e-16 ***
## IvDR               0.49670    0.10999   4.516 6.61e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04949,    Adjusted R-squared:  0.04793 
## F-statistic: 31.67 on 4 and 2433 DF,  p-value: < 2.2e-16

c2. vaxxAttitudes ~ (ANALYTIC - THREAT) * blackVother + partyID

m10.cc <- lm(vaxxAttitudes_w2 ~ blackVother * index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ blackVother * index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0381 -1.1603 -0.0249  1.8742  4.0958 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   -0.09658    0.06965  -1.387   0.1657    
## blackVother                    1.00197    0.13534   7.403 1.82e-13 ***
## index_diffANTR_w2              0.71168    0.38456   1.851   0.0643 .  
## DvR                           -0.80399    0.09506  -8.458  < 2e-16 ***
## IvDR                           0.49753    0.10997   4.524 6.35e-06 ***
## blackVother:index_diffANTR_w2 -1.09185    0.76842  -1.421   0.1555    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.05028,    Adjusted R-squared:  0.04833 
## F-statistic: 25.75 on 5 and 2432 DF,  p-value: < 2.2e-16

d1. vaxxAttitudes ~ (ANALYTIC - THREAT) + education.c + partyID

m9.cc <- lm(vaxxAttitudes_w2 ~ edu.c + index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c + index_diffANTR_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0252 -1.2443  0.0477  1.9211  3.7361 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.27828    0.04574   6.084 1.36e-09 ***
## edu.c              0.06537    0.01627   4.019 6.03e-05 ***
## index_diffANTR_w2  0.29402    0.25304   1.162    0.245    
## DvR               -0.59563    0.09238  -6.448 1.36e-10 ***
## IvDR               0.46872    0.11103   4.222 2.52e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2433 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03173,    Adjusted R-squared:  0.03014 
## F-statistic: 19.93 on 4 and 2433 DF,  p-value: 3.633e-16

d2. vaxxAttitudes ~ (ANALYTIC - THREAT) * education.c + partyID

m10.cc <- lm(vaxxAttitudes_w2 ~ edu.c * index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ edu.c * index_diffANTR_w2 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.1051 -1.2431  0.0319  1.9173  3.7633 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.27634    0.04580   6.033 1.85e-09 ***
## edu.c                    0.06709    0.01641   4.090 4.46e-05 ***
## index_diffANTR_w2        0.26178    0.25614   1.022    0.307    
## DvR                     -0.59653    0.09239  -6.457 1.29e-10 ***
## IvDR                     0.46357    0.11122   4.168 3.18e-05 ***
## edu.c:index_diffANTR_w2  0.08424    0.10357   0.813    0.416    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.066 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.032,  Adjusted R-squared:  0.03001 
## F-statistic: 16.08 on 5 and 2432 DF,  p-value: 1.271e-15

e1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black vs. white) + partyID

m9.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) + index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) + index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0941 -1.1584  0.0016  1.8974  4.0066 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.05930    0.05779   1.026    0.305    
## bVw                1.04235    0.13563   7.685 2.20e-14 ***
## bwVo               0.34628    0.07688   4.504 6.97e-06 ***
## index_diffANTR_w2  0.29691    0.25045   1.186    0.236    
## DvR               -0.80374    0.09636  -8.341  < 2e-16 ***
## IvDR               0.49654    0.11045   4.496 7.26e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.047 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04949,    Adjusted R-squared:  0.04754 
## F-statistic: 25.33 on 5 and 2432 DF,  p-value: < 2.2e-16

e2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black vs. white) + partyID

m10.cc <- lm(vaxxAttitudes_w2 ~ (bVw + bwVo) * index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bVw + bwVo) * index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.2059 -1.1648 -0.0242  1.8506  4.0924 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             0.07407    0.05830   1.271   0.2040    
## bVw                     0.99602    0.13849   7.192 8.47e-13 ***
## bwVo                    0.34375    0.07761   4.429 9.88e-06 ***
## index_diffANTR_w2       0.73998    0.32247   2.295   0.0218 *  
## DvR                    -0.80031    0.09632  -8.309  < 2e-16 ***
## IvDR                    0.49522    0.11039   4.486 7.59e-06 ***
## bVw:index_diffANTR_w2  -1.33782    0.78107  -1.713   0.0869 .  
## bwVo:index_diffANTR_w2  0.30414    0.46047   0.660   0.5090    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.046 on 2430 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.05147,    Adjusted R-squared:  0.04874 
## F-statistic: 18.84 on 7 and 2430 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_bw * index_diffANTR_w2  + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANTR_w2", "race_bw"), 
           color = c("blue", "green", "purple")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

f1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black + hispanic vs. white) + partyID

m11.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) + index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4.0709 -1.2168 -0.0755  1.8631  3.6867 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        0.20830    0.05739   3.630 0.000289 ***
## bhVw               0.64258    0.11140   5.768 9.04e-09 ***
## bhwVo              0.24170    0.08990   2.688 0.007227 ** 
## index_diffANTR_w2  0.31080    0.25180   1.234 0.217216    
## DvR               -0.75697    0.09645  -7.848 6.28e-15 ***
## IvDR               0.47574    0.11098   4.287 1.88e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.058 on 2432 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.03934,    Adjusted R-squared:  0.03737 
## F-statistic: 19.92 on 5 and 2432 DF,  p-value: < 2.2e-16

f2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black + hispanic vs. white) + partyID

m12.cc <- lm(vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_diffANTR_w2 + DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxAttitudes_w2 ~ (bhVw + bhwVo) * index_diffANTR_w2 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -4.148 -1.183 -0.068  1.835  4.144 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              0.21979    0.05752   3.821 0.000136 ***
## bhVw                     0.59621    0.11295   5.278 1.42e-07 ***
## bhwVo                    0.23396    0.09012   2.596 0.009482 ** 
## index_diffANTR_w2        0.70107    0.32618   2.149 0.031705 *  
## DvR                     -0.75702    0.09650  -7.845 6.44e-15 ***
## IvDR                     0.47718    0.11095   4.301 1.77e-05 ***
## bhVw:index_diffANTR_w2  -1.54561    0.64202  -2.407 0.016140 *  
## bhwVo:index_diffANTR_w2  0.03402    0.53769   0.063 0.949559    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.057 on 2430 degrees of freedom
##   (843 observations deleted due to missingness)
## Multiple R-squared:  0.04178,    Adjusted R-squared:  0.03901 
## F-statistic: 15.13 on 7 and 2430 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxAttitudes_w2 ~ race_wbh * index_diffANTR_w2  + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("index_diffANTR_w2", "race_wbh"), 
           color = c("blue", "green", "purple", "green")) + 
  ggtitle("wave 2") + 
  xlab("media analytic thinking - threat") + 
  ylab("vaccine attitudes") + 
  xlim(-1, 1) +
  theme_minimal()+ 
  labs(color ='race factor')

iii. Wave 3

a1. vaxxBehavior ~ (ANALYTIC - THREAT) + ruralVother + partyID

m9.cc <- lm(vaxxBehavior ~ ruralVother + index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother + index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6638 -0.6300  0.3542  0.8189  1.3824 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.10321    0.04538  68.378  < 2e-16 ***
## ruralVother        0.32094    0.08603   3.731 0.000202 ***
## index_diffANTR_w3  0.06398    0.25489   0.251 0.801873    
## DvR               -0.68464    0.07827  -8.748  < 2e-16 ***
## IvDR               0.12324    0.09553   1.290 0.197332    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.117 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09226,    Adjusted R-squared:  0.08859 
## F-statistic: 25.18 on 4 and 991 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ (ANALYTIC - THREAT) * ruralVother + partyID

m10.cc <- lm(vaxxBehavior ~ ruralVother * index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ ruralVother * index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6996 -0.5974  0.3544  0.8174  1.5549 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.09643    0.04589  67.481  < 2e-16 ***
## ruralVother                    0.33949    0.08800   3.858 0.000122 ***
## index_diffANTR_w3             -0.12093    0.31475  -0.384 0.700908    
## DvR                           -0.68086    0.07836  -8.689  < 2e-16 ***
## IvDR                           0.12474    0.09554   1.306 0.192000    
## ruralVother:index_diffANTR_w3  0.62893    0.62809   1.001 0.316904    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.117 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09318,    Adjusted R-squared:  0.0886 
## F-statistic: 20.34 on 5 and 990 DF,  p-value: < 2.2e-16

b1. vaxxBehavior ~ (ANALYTIC - THREAT) + whiteVother + partyID

m9.cc <- lm(vaxxBehavior ~ whiteVother + index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother + index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6325 -0.5671  0.4062  0.8845  1.1981 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.20144    0.04295  74.532   <2e-16 ***
## whiteVother        0.05340    0.08256   0.647    0.518    
## index_diffANTR_w3  0.10601    0.25640   0.413    0.679    
## DvR               -0.69843    0.08132  -8.589   <2e-16 ***
## IvDR               0.14660    0.09649   1.519    0.129    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.125 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.0799, Adjusted R-squared:  0.07619 
## F-statistic: 21.51 on 4 and 991 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ (ANALYTIC - THREAT) * whiteVother + partyID

m10.cc <- lm(vaxxBehavior ~ whiteVother * index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ whiteVother * index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6453 -0.5691  0.4178  0.9018  1.1714 
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.20247    0.04311  74.286   <2e-16 ***
## whiteVother                    0.05723    0.08358   0.685    0.494    
## index_diffANTR_w3              0.15487    0.30440   0.509    0.611    
## DvR                           -0.69999    0.08152  -8.586   <2e-16 ***
## IvDR                           0.14690    0.09654   1.522    0.128    
## whiteVother:index_diffANTR_w3  0.18101    0.60713   0.298    0.766    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.125 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.07998,    Adjusted R-squared:  0.07534 
## F-statistic: 17.21 on 5 and 990 DF,  p-value: 2.337e-16

c1. vaxxBehavior ~ (ANALYTIC - THREAT) + blackVother + partyID

m9.cc <- lm(vaxxBehavior ~ blackVother + index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother + index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6525 -0.4310  0.3717  0.8795  1.3465 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.10915    0.06132  50.703   <2e-16 ***
## blackVother        0.20397    0.11889   1.716   0.0865 .  
## index_diffANTR_w3  0.09069    0.25619   0.354   0.7234    
## DvR               -0.74496    0.08062  -9.240   <2e-16 ***
## IvDR               0.13531    0.09599   1.410   0.1590    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.123 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08224,    Adjusted R-squared:  0.07853 
## F-statistic:  22.2 on 4 and 991 DF,  p-value: < 2.2e-16

c2. vaxxBehavior ~ (ANALYTIC - THREAT) * blackVother + partyID

m10.cc <- lm(vaxxBehavior ~ blackVother * index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ blackVother * index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6604 -0.4412  0.3713  0.8787  1.3429 
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                    3.105492   0.062499  49.688   <2e-16 ***
## blackVother                    0.212522   0.122166   1.740   0.0822 .  
## index_diffANTR_w3             -0.006048   0.406342  -0.015   0.9881    
## DvR                           -0.744730   0.080662  -9.233   <2e-16 ***
## IvDR                           0.135016   0.096039   1.406   0.1601    
## blackVother:index_diffANTR_w3  0.248808   0.810946   0.307   0.7591    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.124 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08232,    Adjusted R-squared:  0.07769 
## F-statistic: 17.76 on 5 and 990 DF,  p-value: < 2.2e-16

d1. vaxxBehavior ~ (ANALYTIC - THREAT) + education.c + partyID

m9.cc <- lm(vaxxBehavior ~ edu.c + index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c + index_diffANTR_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7220 -0.4377  0.3346  0.8188  1.8977 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.17187    0.03913  81.068  < 2e-16 ***
## edu.c              0.05659    0.01354   4.178  3.2e-05 ***
## index_diffANTR_w3  0.04152    0.25466   0.163    0.871    
## DvR               -0.71427    0.07778  -9.183  < 2e-16 ***
## IvDR               0.12688    0.09530   1.331    0.183    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.115 on 991 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09544,    Adjusted R-squared:  0.09179 
## F-statistic: 26.14 on 4 and 991 DF,  p-value: < 2.2e-16

d2. vaxxBehavior ~ (ANALYTIC - THREAT) * education.c + partyID

m10.cc <- lm(vaxxBehavior ~ edu.c * index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ edu.c * index_diffANTR_w3 + DvR + 
##     IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7323 -0.4393  0.3316  0.8236  1.9660 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              3.16606    0.03939  80.386  < 2e-16 ***
## edu.c                    0.06115    0.01402   4.362 1.42e-05 ***
## index_diffANTR_w3       -0.03746    0.26220  -0.143    0.886    
## DvR                     -0.71993    0.07788  -9.243  < 2e-16 ***
## IvDR                     0.13015    0.09531   1.365    0.172    
## edu.c:index_diffANTR_w3  0.13431    0.10667   1.259    0.208    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.115 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.09689,    Adjusted R-squared:  0.09233 
## F-statistic: 21.24 on 5 and 990 DF,  p-value: < 2.2e-16

e1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black vs. white) + partyID

m9.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m9.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7633 -0.4298  0.4105  0.9153  1.3216 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.17920    0.05168  61.517   <2e-16 ***
## bVw                0.16100    0.12108   1.330   0.1839    
## bwVo               0.17086    0.06906   2.474   0.0135 *  
## index_diffANTR_w3  0.08596    0.25591   0.336   0.7370    
## DvR               -0.72057    0.08164  -8.827   <2e-16 ***
## IvDR               0.15119    0.09628   1.570   0.1166    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08529,    Adjusted R-squared:  0.08067 
## F-statistic: 18.46 on 5 and 990 DF,  p-value: < 2.2e-16

e2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black vs. white) + partyID

m10.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m10.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.7817 -0.4407  0.4111  0.9168  1.3211 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             3.17793    0.05229  60.777   <2e-16 ***
## bVw                     0.16927    0.12437   1.361   0.1738    
## bwVo                    0.17728    0.07018   2.526   0.0117 *  
## index_diffANTR_w3       0.12077    0.36909   0.327   0.7436    
## DvR                    -0.72288    0.08190  -8.827   <2e-16 ***
## IvDR                    0.15103    0.09636   1.567   0.1174    
## bVw:index_diffANTR_w3   0.19371    0.81737   0.237   0.8127    
## bwVo:index_diffANTR_w3  0.30557    0.56482   0.541   0.5886    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.123 on 988 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08556,    Adjusted R-squared:  0.07908 
## F-statistic: 13.21 on 7 and 988 DF,  p-value: 2.403e-16

f1. vaxxAttitudes ~ (ANALYTIC - THREAT) + (black + hispanic vs. white) + partyID

m11.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) + index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) + index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8925 -0.4993  0.4116  0.8425  1.2513 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)        3.24414    0.05150  62.987  < 2e-16 ***
## bhVw               0.08820    0.09720   0.907  0.36442    
## bhwVo              0.23013    0.08227   2.797  0.00526 ** 
## index_diffANTR_w3  0.09161    0.25562   0.358  0.72014    
## DvR               -0.72518    0.08164  -8.883  < 2e-16 ***
## IvDR               0.15876    0.09628   1.649  0.09949 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.121 on 990 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08681,    Adjusted R-squared:  0.0822 
## F-statistic: 18.82 on 5 and 990 DF,  p-value: < 2.2e-16

f2. vaxxAttitudes ~ (ANALYTIC - THREAT) * (black + hispanic vs. white) + partyID

m12.cc <- lm(vaxxBehavior ~ (bhVw + bhwVo) * index_diffANTR_w3 + DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bhVw + bhwVo) * index_diffANTR_w3 + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.8947 -0.5044  0.4118  0.8410  1.3095 
## 
## Coefficients:
##                         Estimate Std. Error t value Pr(>|t|)    
## (Intercept)              3.24479    0.05180  62.643  < 2e-16 ***
## bhVw                     0.08114    0.09895   0.820  0.41240    
## bhwVo                    0.22553    0.08308   2.714  0.00675 ** 
## index_diffANTR_w3        0.06390    0.40753   0.157  0.87543    
## DvR                     -0.72556    0.08186  -8.863  < 2e-16 ***
## IvDR                     0.15904    0.09637   1.650  0.09920 .  
## bhVw:index_diffANTR_w3  -0.25194    0.68980  -0.365  0.71502    
## bhwVo:index_diffANTR_w3 -0.25717    0.70839  -0.363  0.71666    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.122 on 988 degrees of freedom
##   (2285 observations deleted due to missingness)
## Multiple R-squared:  0.08701,    Adjusted R-squared:  0.08055 
## F-statistic: 13.45 on 7 and 988 DF,  p-value: < 2.2e-16

X. Avg W1 + W2

a1. vaxxBehavior ~ avgVaxxAttitudes + (black vs. white)

m11.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.1792 -0.4455  0.1966  0.7076  1.9328 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       3.14572    0.04538  69.322   <2e-16 ***
## bVw              -0.27423    0.10919  -2.512   0.0122 *  
## bwVo              0.04503    0.06383   0.705   0.4807    
## avgVaxxAttitudes  0.30631    0.01652  18.547   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9955 on 938 degrees of freedom
##   (2339 observations deleted due to missingness)
## Multiple R-squared:  0.2743, Adjusted R-squared:  0.272 
## F-statistic: 118.2 on 3 and 938 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ avgVaxxAttitudes * (black vs. white)

m12.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes, 
##     data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.0406 -0.4652  0.2047  0.6999  2.0203 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)            3.14749    0.04669  67.409  < 2e-16 ***
## bVw                   -0.28071    0.10888  -2.578  0.01008 *  
## bwVo                   0.07423    0.06906   1.075  0.28270    
## avgVaxxAttitudes       0.25587    0.02388  10.716  < 2e-16 ***
## bVw:avgVaxxAttitudes   0.16557    0.05625   2.943  0.00333 ** 
## bwVo:avgVaxxAttitudes  0.01710    0.03501   0.488  0.62544    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9916 on 936 degrees of freedom
##   (2339 observations deleted due to missingness)
## Multiple R-squared:  0.2814, Adjusted R-squared:  0.2776 
## F-statistic: 73.32 on 5 and 936 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ race_bw * avgVaxxAttitudes, data = dw)

plot_model(m22.cc, type = "pred", terms = c("avgVaxxAttitudes", "race_bw"), 
           color = c("blue", "green", "purple", "green")) + 
  ggtitle("") + 
  xlab("avg vaxx attitudes wave 1 & 2") + 
  ylab("vaccine behavior") + 
  xlim(-3, 3) +
  theme_minimal()+ 
  labs(color ='race factor')

b1. vaxxBehavior ~ avgVaxxAttitudes + (black vs. white) + partyID

m11.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes + 
               DvR + IvDR, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.1878 -0.4019  0.2166  0.6439  2.0223 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       3.08647    0.04717  65.431  < 2e-16 ***
## bVw              -0.11961    0.11283  -1.060    0.289    
## bwVo              0.04971    0.06359   0.782    0.435    
## avgVaxxAttitudes  0.28484    0.01688  16.876  < 2e-16 ***
## DvR              -0.38146    0.07554  -5.050 5.32e-07 ***
## IvDR              0.06416    0.08689   0.738    0.460    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9837 on 933 degrees of freedom
##   (2342 observations deleted due to missingness)
## Multiple R-squared:  0.2942, Adjusted R-squared:  0.2904 
## F-statistic: 77.78 on 5 and 933 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ avgVaxxAttitudes * (black vs. white) + partyID

m12.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes + 
               DvR + IvDR, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes + 
##     DvR + IvDR, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.1194 -0.4375  0.2366  0.6504  2.1022 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)            3.08705    0.04840  63.780  < 2e-16 ***
## bVw                   -0.12705    0.11254  -1.129  0.25923    
## bwVo                   0.07894    0.06888   1.146  0.25207    
## avgVaxxAttitudes       0.23622    0.02401   9.838  < 2e-16 ***
## DvR                   -0.37397    0.07531  -4.966 8.14e-07 ***
## IvDR                   0.07439    0.08665   0.859  0.39082    
## bVw:avgVaxxAttitudes   0.16050    0.05584   2.875  0.00414 ** 
## bwVo:avgVaxxAttitudes  0.01706    0.03467   0.492  0.62279    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9801 on 931 degrees of freedom
##   (2342 observations deleted due to missingness)
## Multiple R-squared:  0.3008, Adjusted R-squared:  0.2956 
## F-statistic: 57.23 on 7 and 931 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ race_bw * avgVaxxAttitudes + party_factor, data = dw)

plot_model(m22.cc, type = "pred", terms = c("avgVaxxAttitudes", "race_bw"), 
           color = c("blue", "green", "purple", "green")) + 
  ggtitle("") + 
  xlab("avg vaxx attitudes wave 1 & 2") + 
  ylab("vaccine behavior") + 
  xlim(-3, 3) +
  theme_minimal()+ 
  labs(color ='race factor')

with media exposure from wave 1 + wave 2 as control

a1. vaxxBehavior ~ avgVaxxAttitudes + (black vs. white) + mediaExpW1W2

dw$avgANexp <- (dw$index_ANexp_w1 + dw$index_ANexp_w2 + dw$index_ANexp_w3)/2

m11.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes + avgANexp, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes + 
##     avgANexp, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.2000 -0.4429  0.1677  0.7085  1.9306 
## 
## Coefficients:
##                   Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       3.154245   0.050595  62.343  < 2e-16 ***
## bVw              -0.298018   0.111363  -2.676  0.00758 ** 
## bwVo              0.037360   0.064439   0.580  0.56221    
## avgVaxxAttitudes  0.304448   0.016795  18.128  < 2e-16 ***
## avgANexp          0.004619   0.096023   0.048  0.96164    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9933 on 911 degrees of freedom
##   (2365 observations deleted due to missingness)
## Multiple R-squared:  0.2709, Adjusted R-squared:  0.2677 
## F-statistic:  84.6 on 4 and 911 DF,  p-value: < 2.2e-16

a2. vaxxBehavior ~ avgVaxxAttitudes * (black vs. white)

m12.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes + avgANexp, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes + 
##     avgANexp, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.0490 -0.4617  0.1972  0.6909  2.0481 
## 
## Coefficients:
##                       Estimate Std. Error t value Pr(>|t|)    
## (Intercept)            3.16232    0.05145  61.459  < 2e-16 ***
## bVw                   -0.31259    0.11096  -2.817  0.00495 ** 
## bwVo                   0.06286    0.06986   0.900  0.36845    
## avgVaxxAttitudes       0.24948    0.02408  10.360  < 2e-16 ***
## avgANexp               0.03689    0.09619   0.384  0.70141    
## bVw:avgVaxxAttitudes   0.18769    0.05722   3.280  0.00108 ** 
## bwVo:avgVaxxAttitudes  0.02513    0.03530   0.712  0.47664    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9882 on 909 degrees of freedom
##   (2365 observations deleted due to missingness)
## Multiple R-squared:  0.2798, Adjusted R-squared:  0.2751 
## F-statistic: 58.86 on 6 and 909 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ race_bw * avgVaxxAttitudes + avgANexp, data = dw)

plot_model(m22.cc, type = "pred", terms = c("avgVaxxAttitudes", "race_bw"), 
           color = c("blue", "green", "purple", "green")) + 
  ggtitle("") + 
  xlab("avg vaxx attitudes wave 1 & 2") + 
  ylab("vaccine behavior") + 
  xlim(-3, 3) +
  theme_minimal()+ 
  labs(color ='race factor')

b1. vaxxBehavior ~ avgVaxxAttitudes + (black vs. white) + partyID

m11.cc <- lm(vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes + 
               DvR + IvDR + avgANexp, data = dw)
summary(m11.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) + avgVaxxAttitudes + 
##     DvR + IvDR + avgANexp, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.1939 -0.3971  0.2099  0.6266  2.0389 
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)       3.08519    0.05201  59.321  < 2e-16 ***
## bVw              -0.13283    0.11499  -1.155    0.248    
## bwVo              0.04200    0.06408   0.655    0.512    
## avgVaxxAttitudes  0.28269    0.01712  16.515  < 2e-16 ***
## DvR              -0.40289    0.07659  -5.260 1.79e-07 ***
## IvDR              0.03766    0.08886   0.424    0.672    
## avgANexp         -0.04195    0.09621  -0.436    0.663    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9802 on 906 degrees of freedom
##   (2368 observations deleted due to missingness)
## Multiple R-squared:  0.2928, Adjusted R-squared:  0.2882 
## F-statistic: 62.53 on 6 and 906 DF,  p-value: < 2.2e-16

b2. vaxxBehavior ~ avgVaxxAttitudes * (black vs. white) + partyID

m12.cc <- lm(vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes + 
               DvR + IvDR +avgANexp, data = dw)
summary(m12.cc)
## 
## Call:
## lm(formula = vaxxBehavior ~ (bVw + bwVo) * avgVaxxAttitudes + 
##     DvR + IvDR + avgANexp, data = dw)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3.1236 -0.4228  0.2433  0.6427  2.1187 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)            3.092087   0.052826  58.533  < 2e-16 ***
## bVw                   -0.149200   0.114636  -1.302  0.19341    
## bwVo                   0.067820   0.069541   0.975  0.32970    
## avgVaxxAttitudes       0.229912   0.024195   9.502  < 2e-16 ***
## DvR                   -0.392822   0.076289  -5.149 3.21e-07 ***
## IvDR                   0.055519   0.088618   0.626  0.53115    
## avgANexp              -0.006349   0.096528  -0.066  0.94758    
## bVw:avgVaxxAttitudes   0.181067   0.056808   3.187  0.00149 ** 
## bwVo:avgVaxxAttitudes  0.024764   0.034908   0.709  0.47826    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.9756 on 904 degrees of freedom
##   (2368 observations deleted due to missingness)
## Multiple R-squared:  0.3011, Adjusted R-squared:  0.2949 
## F-statistic: 48.68 on 8 and 904 DF,  p-value: < 2.2e-16
- plot
m22.cc <- lm(vaxxBehavior ~ race_bw * avgVaxxAttitudes + party_factor + avgANexp, data = dw)

plot_model(m22.cc, type = "pred", terms = c("avgVaxxAttitudes", "race_bw"), 
           color = c("blue", "green", "purple", "green")) + 
  ggtitle("") + 
  xlab("avg vaxx attitudes wave 1 & 2") + 
  ylab("vaccine behavior") + 
  xlim(-3, 3) +
  theme_minimal()+ 
  labs(color ='race factor')