Summary

Background

Several major theories of health behavior change touch on the idea that behaviors that are perceived as self-relevant are more likely to be enacted. Likewise, the perceived value, or relative importance, of the content in a health relevant message may change its impact on behavior. Supporting these ideas, we have recently found that specific neural indicators of self- and value-related processing during exposure to anti-tobacco messaging predict individual behavior change.

To explore the importance of self- and value-related processing in response to smoking-related information in the media environment, we focused on survey items assessing how self-relevant and valuable individuals find e-cigarette media. Our first goal is to determine whether the perceived self-relevance and value of messaging that participants are exposed to relates to concurrent smoking-related behaviors and antecedents to behavior (e.g., intentions, beliefs, and social norms). In addition, as data collection continues, we plan to track longitudinally whether the self-relevance and value of media can predict changes in psychological (e.g., intentions, beliefs, and social norms) or behavioral (e.g., initiation) outcomes.

Our working idea is that (1) the valence of e-cigarette media will influence social norms around vaping, which in turn influence smoking intentions and behaviors, and (2) the self-relevance of e-cigarette media will influence health and risk beliefs about e-cigarettes, which will influence smoking intentions and behaviors.

Cross-sectional Models

Variables considered:

  • Main dependent variables considered are e-cigarette use (“have you ever vaped”), intentions to vape, perceived social norms around vaping, and health/risk beliefs about vaping.
  • Predictor variables of interest are the self-relevance (“mostly directed at someone like me” vs “mostly directed at other types of people”) and valence (“mostly positive” vs “mostly negative”) of scanned media about e-cigarettes.
  • Most models control for ecigarette smoker status, age, gender, race, grades in school, parental education, and whether someone else in the household vapes; weighting variables provided by TCORS group are used.

Click to view descriptives
Click to view boxplots of main relationships between variables

Summary of findings:

Examined relationships between self-relevance and value of scanned e-cigarette media (removed “a mix” answers for models) and having ever vaped, intentions to vape, social norms around vaping, and risk and health beliefs about e-cigarettes. Some mediation models are presented here, although we understand that strong statements about causality cannot be made in cross-sectional data. N=343.

(1). Young adults are more likely to have ever vaped and to be a current e-cigarette smoker with exposure to positive, self-relevant media.
(2). Intentions to vape are associated with exposure to positive media.
(3). Intentions to vape are associated with having ever vaped.
(4a). Exposure to self-related, positive media is associated with positive social norms around vaping.
(4b). Social norms mediate the relationship between positive value of media and intentions to vape.
(4c). Social norms partially mediate the relationship between self-relevance and positive value of media and having ever vaped.
(5a). Valence of media is associated with beliefs re e-cigs (will become addicted to nicotine if I use e-cigs every day; can quit tobacco cigs by vaping; self-efficacy to quit vaping).
(5b). Beliefs re e-cigs (will become addicted to nicotine if I use e-cigs every day; can quit tobacco cigs by vaping; self-efficacy to quit vaping) are associated with intentions to vape.

Longitudinal Models

These models are currently underpowered, and are intended as an example of how we plan to analyze the data rather than up for firm interpretation. Total N in these models is 79, and only ~5 participants change their vaping behavior or intentions to vape from T1 to T2. (Click for descriptives.)

Summary of findings:
(1). Self-relevance of media predicts having ever vaped at T2, controlling for having ever vaped at T1.
(2a). Exposure to positive, self-relevant media predicts intentions to vape at T2, controlling for intentions at T1.
(2b). Intentions to vape mediate the relationship between self-relevance of media at T1 and having ever vaped at T2, controlling for having ever vaped at T1.
(3). Social norms mediate the relationship between positive valence of media at T1 and intentions to vape at T2, controlling for intentions to vape at T1.
(4). Risk and health beliefs mediate relationship between positive valence of media at T1 and intentions at T2, controlling for intentions at T1.

Issues for discussion

  1. How to incorporate “a mix” answers for self-relevance and value of media questions
  2. Clarifying theoretical questions
  3. Modeling intentions and beliefs - binary vs continuous variables
  4. Covariates
  5. Small N’s, particularly in longitudinal data
  6. Improve mediation models (bootstrapping etc)

Cross-sectional Models

Descriptives

## [1] "Cross-sectional N=343"
## [1] "Ecigselfdirectscan: Self-directedness of scanned information; 1=Mostly like me, 2=Mostly not like me, 3=A mix"
## ecigselfdirectscan_n
##   1   2   3 
## 232 372 930
## [1] "Valscan: Valence of scanned information; 1=Mostly positive, 2=Mostly negative, 3=A mix"
## valscan_ecig_n
##   1   2   3 
## 596 216 717
## [1] "Most models control for:"
## ecigsmoker
## Not current e-cigarette user     Current e-cigarette user 
##                          292                           51
##        sex
## age2cat Male Female Refused
##   13-17  105     73       0
##   18-25   92     73       0
## race4cat
##               Hispanic       White (Non-Hisp) Black or AA (Non-Hisp) 
##                     82                    181                     45 
##               Other/1+ 
##                     35
## goodgrades
## Mostly F's Mostly D's Mostly C's Mostly B's Mostly A's 
##          5         11         42        135        147
## paredu
##                                             Less than high school (0-11th grade) 
##                                                                               11 
##            High school degree (completed 12th grade, high school diploma or GED) 
##                                                                               62 
##                                     Some college (1-3 years, Associate's Degree) 
##                                                                               60 
##                                      College Degree (4 years, Bachelor's Degree) 
##                                                                              106 
## Completed Graduate or professional school after college (for example: MA or PhD, 
##                                                                               78 
##                                                                       Don't Know 
##                                                                               26 
##                                                                          Refused 
##                                                                                0
## hhuse_vap
##          No         Yes Lives alone 
##         245          52          46

Boxplots

Red dots mark the mean

Ever vape

boxplot(qn15_n~ecigselfdirectscan_n,data=survey_selfanswers,names=c("Like me","Others","A mix"),ylab="No=0 | Yes=1",main="Ever vape x Media Self-relevance")
means<-tapply(survey_selfanswers$qn15_n,survey_selfanswers$ecigselfdirectscan_n,mean)
points(means,col="red",pch=18)

boxplot(qn15_n~valscan_ecig_n,data=survey_valanswers,names=c("Positive","Negative","A mix"),ylab="No=0 | Yes=1",main="Ever vape x Media Valence")
means<-tapply(survey_valanswers$qn15_n,survey_valanswers$valscan_ecig_n,mean)
points(means,col="red",pch=18)

Intentions

boxplot(qn22_n~ecigselfdirectscan_n,data=survey_selfanswers,names=c("Like me","Others","A mix"),main="Intentions x Media Self-relevance")
means<-tapply(survey_selfanswers$qn22_n,survey_selfanswers$ecigselfdirectscan_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

boxplot(qn22_n~valscan_ecig_n,data=survey_valanswers,names=c("Positive","Negative","A mix"),main="Intentions x Media Valence")
means<-tapply(survey_valanswers$qn22_n,survey_valanswers$valscan_ecig_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

Norms

boxplot(norms_ecigs~ecigselfdirectscan_n,data=survey_selfanswers,names=c("Like me","Others","A mix"),main="Social Norms x Media Self-relevance")
means<-tapply(survey_selfanswers$norms_ecigs,survey_selfanswers$ecigselfdirectscan_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

boxplot(norms_ecigs~valscan_ecig_n,data=survey_valanswers,names=c("Positive","Negative","A mix"),main="Social Norms x Media Valence")
means<-tapply(survey_valanswers$norms_ecigs,survey_valanswers$valscan_ecig_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

Beliefs

1: “Will become addicted to nicotine if vape/use e-cigs every day”

boxplot(qn46_n~ecigselfdirectscan_n,data=survey_selfanswers,names=c("Like me","Others","A mix"),main="Addicted x Media Self-relevance")
means<-tapply(survey_selfanswers$qn46_n,survey_selfanswers$ecigselfdirectscan_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

boxplot(qn46_n~valscan_ecig_n,data=survey_valanswers,names=c("Positive","Negative","A mix"),main="Addicted x Media Valence")
means<-tapply(survey_valanswers$qn46_n,survey_valanswers$valscan_ecig_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

2: “Can quit tobacco cigs by vaping/using ecigs”

boxplot(qn47_n~ecigselfdirectscan_n,data=survey_selfanswers,names=c("Like me","Others","A mix"),main="Quit x Media Self-relevance")
means<-tapply(survey_selfanswers$qn47_n,survey_selfanswers$ecigselfdirectscan_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

boxplot(qn47_n~valscan_ecig_n,data=survey_valanswers,names=c("Positive","Negative","A mix"),main="Quit x Media Valence")
means<-tapply(survey_valanswers$qn47_n,survey_valanswers$valscan_ecig_n,mean,na.rm=TRUE)
points(means,col="red",pch=18)

Behavior

# Ecigselfdirectscan: Self-directedness of scanned information; 1=Mostly like me, 2=Mostly not like me
xtabs(~ecigselfdirectscan_n + qn15_r, survey_reduced)
##                     qn15_r
## ecigselfdirectscan_n  No Yes
##                    1  75  58
##                    2 165  45
# Valscan: Valence of scanned information; 1=Mostly positive, 2=Mostly negative
xtabs(~valscan_ecig_n +  qn15_r, survey_reduced)
##               qn15_r
## valscan_ecig_n  No Yes
##              1 150  90
##              2  90  13

Main effects

In full sample, young adults are more likely to have ever vaped with exposure to positive, self-relevant media

## 
## Call:
## glm(formula = as.factor(survey_reduced$qn15_r) ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     family = binomial, data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -3.4335  -0.6684  -0.3642   0.7823   2.6997  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)    
## (Intercept)                        0.1170     0.8641   0.135 0.892325    
## as.factor(ecigselfdirectscan_n)2  -0.9791     0.2938  -3.333 0.000859 ***
## as.factor(valscan_ecig_n)2        -1.4589     0.3949  -3.695 0.000220 ***
## as.factor(age2cat)18-25            1.2141     0.3241   3.746 0.000179 ***
## as.factor(sex)Female               0.2096     0.2967   0.707 0.479875    
## as.factor(race4cat_n)1             0.2678     0.3784   0.708 0.479176    
## as.factor(race4cat_n)2            -1.1100     0.4962  -2.237 0.025288 *  
## as.factor(race4cat_n)3            -0.1536     0.4695  -0.327 0.743549    
## paredu_n                           0.2336     0.1324   1.765 0.077597 .  
## goodgrades_n                      -0.4240     0.1637  -2.590 0.009607 ** 
## as.factor(hhuse_vap_n)1            1.1948     0.3891   3.070 0.002138 ** 
## as.factor(hhuse_vap_n)2            0.2912     0.4133   0.705 0.481109    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 372.82  on 313  degrees of freedom
## Residual deviance: 294.87  on 302  degrees of freedom
##   (29 observations deleted due to missingness)
## AIC: 328
## 
## Number of Fisher Scoring iterations: 5

Controlling for current tobacco/ecig use, exposure to positive media is associated with having ever vape

## 
## Call:
## glm(formula = as.factor(survey_reduced$qn15_r) ~ as.factor(tobaccouse) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.9611  -0.4767  -0.2771   0.4372   2.8488  
## 
## Coefficients:
##                                           Estimate Std. Error z value
## (Intercept)                               -2.81546    1.14168  -2.466
## as.factor(tobaccouse)Current tobacco user  2.97437    0.39757   7.481
## as.factor(ecigselfdirectscan_n)2          -0.32601    0.35842  -0.910
## as.factor(valscan_ecig_n)2                -1.53738    0.48458  -3.173
## as.factor(age2cat)18-25                    0.54752    0.38658   1.416
## as.factor(sex)Female                       0.29487    0.35689   0.826
## as.factor(race4cat_n)1                     0.43116    0.46651   0.924
## as.factor(race4cat_n)2                    -0.95102    0.59210  -1.606
## as.factor(race4cat_n)3                     0.06178    0.56327   0.110
## paredu_n                                   0.22847    0.15816   1.445
## goodgrades_n                               0.01922    0.20111   0.096
## as.factor(hhuse_vap_n)1                    1.20816    0.46350   2.607
## as.factor(hhuse_vap_n)2                    0.76053    0.48602   1.565
##                                           Pr(>|z|)    
## (Intercept)                                0.01366 *  
## as.factor(tobaccouse)Current tobacco user 7.36e-14 ***
## as.factor(ecigselfdirectscan_n)2           0.36305    
## as.factor(valscan_ecig_n)2                 0.00151 ** 
## as.factor(age2cat)18-25                    0.15668    
## as.factor(sex)Female                       0.40868    
## as.factor(race4cat_n)1                     0.35537    
## as.factor(race4cat_n)2                     0.10824    
## as.factor(race4cat_n)3                     0.91267    
## paredu_n                                   0.14859    
## goodgrades_n                               0.92387    
## as.factor(hhuse_vap_n)1                    0.00914 ** 
## as.factor(hhuse_vap_n)2                    0.11763    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 372.08  on 312  degrees of freedom
## Residual deviance: 223.46  on 300  degrees of freedom
##   (30 observations deleted due to missingness)
## AIC: 257.65
## 
## Number of Fisher Scoring iterations: 5

Using only those who are not current tobacco/ecig users - exposure to positive media is marginally associated with having ever vaped

## 
## Call:
## glm(formula = as.factor(qn15_r) ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     family = binomial, data = survey_reduced_nonsmoke, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -1.6791  -0.5496  -0.3376  -0.2013   2.5876  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)  
## (Intercept)                      -2.30927    1.54869  -1.491   0.1359  
## as.factor(ecigselfdirectscan_n)2 -0.56834    0.43713  -1.300   0.1935  
## as.factor(valscan_ecig_n)2       -1.03866    0.54507  -1.906   0.0567 .
## as.factor(age2cat)18-25           0.60751    0.47225   1.286   0.1983  
## as.factor(sex)Female             -0.11946    0.43237  -0.276   0.7823  
## as.factor(race4cat_n)1            0.19278    0.55685   0.346   0.7292  
## as.factor(race4cat_n)2           -1.73274    0.97304  -1.781   0.0750 .
## as.factor(race4cat_n)3           -0.28828    0.70365  -0.410   0.6820  
## paredu_n                          0.21714    0.19547   1.111   0.2666  
## goodgrades_n                      0.01595    0.29854   0.053   0.9574  
## as.factor(hhuse_vap_n)1           0.80628    0.58637   1.375   0.1691  
## as.factor(hhuse_vap_n)2           0.73381    0.57041   1.286   0.1983  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 170.16  on 233  degrees of freedom
## Residual deviance: 150.89  on 222  degrees of freedom
##   (23 observations deleted due to missingness)
## AIC: 183.51
## 
## Number of Fisher Scoring iterations: 5

Use only those who are current tobacco/ecig users - exposure to positive media is significantly associated with having ever vaped

## 
## Call:
## glm(formula = as.factor(qn15_r) ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     family = binomial, data = survey_reduced_smoke, weights = weight1_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -2.43350   0.05435   0.29611   0.70091   2.04130  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)   
## (Intercept)                       -2.4178     2.3021  -1.050   0.2936   
## as.factor(ecigselfdirectscan_n)2   1.0175     0.9583   1.062   0.2884   
## as.factor(valscan_ecig_n)2        -4.0071     1.5295  -2.620   0.0088 **
## as.factor(age2cat)18-25            1.7954     0.9665   1.858   0.0632 . 
## as.factor(sex)Female               1.9027     0.9503   2.002   0.0453 * 
## as.factor(race4cat_n)1             1.1855     1.1280   1.051   0.2932   
## as.factor(race4cat_n)2            -0.3043     1.3054  -0.233   0.8157   
## as.factor(race4cat_n)3             1.4192     1.6737   0.848   0.3965   
## paredu_n                           0.6272     0.3767   1.665   0.0959 . 
## goodgrades_n                      -0.2784     0.3546  -0.785   0.4324   
## as.factor(hhuse_vap_n)1            4.7482     1.9089   2.487   0.0129 * 
## as.factor(hhuse_vap_n)2            1.9656     1.5324   1.283   0.1996   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 83.482  on 78  degrees of freedom
## Residual deviance: 56.222  on 67  degrees of freedom
##   (6 observations deleted due to missingness)
## AIC: 84.564
## 
## Number of Fisher Scoring iterations: 7

Exposure to self-relevant and positive media predicts current e-cigsmoker status

## 
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     family = binomial, data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.3442  -0.5394  -0.2904  -0.1259   3.1688  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)   
## (Intercept)                       1.12168    1.03882   1.080  0.28025   
## as.factor(ecigselfdirectscan_n)2 -1.09219    0.36169  -3.020  0.00253 **
## as.factor(valscan_ecig_n)2       -1.62843    0.59947  -2.716  0.00660 **
## as.factor(age2cat)18-25           1.25381    0.41123   3.049  0.00230 **
## as.factor(sex)Female             -0.24598    0.35793  -0.687  0.49195   
## as.factor(race4cat_n)1           -0.35483    0.46332  -0.766  0.44377   
## as.factor(race4cat_n)2           -0.69527    0.59194  -1.175  0.24017   
## as.factor(race4cat_n)3           -0.03209    0.53126  -0.060  0.95183   
## paredu_n                         -0.14112    0.16093  -0.877  0.38056   
## goodgrades_n                     -0.52793    0.18778  -2.811  0.00493 **
## as.factor(hhuse_vap_n)1           1.02303    0.42325   2.417  0.01565 * 
## as.factor(hhuse_vap_n)2          -0.53786    0.55393  -0.971  0.33155   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 271.08  on 313  degrees of freedom
## Residual deviance: 220.42  on 302  degrees of freedom
##   (29 observations deleted due to missingness)
## AIC: 238.3
## 
## Number of Fisher Scoring iterations: 6

Intentions

# Binary intentions
xtabs(~ecigint, survey_reduced)
## ecigint
## Definitely no intention to vape          Some intention to vape 
##                             230                             112
# Ecigselfdirectscan: Self-directedness of scanned information; 1=Mostly like me, 2=Mostly not like me
xtabs(~ecigselfdirectscan_n + ecigint, survey_reduced)
##                     ecigint
## ecigselfdirectscan_n Definitely no intention to vape
##                    1                              72
##                    2                             158
##                     ecigint
## ecigselfdirectscan_n Some intention to vape
##                    1                     61
##                    2                     51
# Valscan: Valence of scanned information; 1=Mostly positive, 2=Mostly negative
xtabs(~valscan_ecig_n +ecigint, survey_reduced)
##               ecigint
## valscan_ecig_n Definitely no intention to vape Some intention to vape
##              1                             142                     98
##              2                              88                     14
# Continuous intentions

xtabs(~qn22_n, survey_reduced)
## qn22_n
##   1   2   3   4 
## 230  55  34  23
xtabs(~ecigselfdirectscan_n + qn22_n, survey_reduced)
##                     qn22_n
## ecigselfdirectscan_n   1   2   3   4
##                    1  72  24  22  15
##                    2 158  31  12   8
xtabs(~valscan_ecig_n + qn22_n, survey_reduced)
##               qn22_n
## valscan_ecig_n   1   2   3   4
##              1 142  44  32  22
##              2  88  11   2   1
# Original measure of intentions to vape is continuous (1=Definitely do not intend to vape, 4=Definitely do intend to vape); binary variable was created by TCORS group (1=Definitely no intention to vape, 2=all other answers). Analyses below are conducted with both measures, produce similar results. 

Main effects

Exposure to positive media is associated with higher intentions to vape (controlling current ecigsmoker)

## [1] "Continuous intention"
## 
## Call:
## glm(formula = as.factor(survey_reduced$qn22_n) ~ ecigsmoker + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.6305  -0.6640  -0.4247   0.3570   2.9782  
## 
## Coefficients:
##                                    Estimate Std. Error z value Pr(>|z|)
## (Intercept)                        -0.83044    0.94871  -0.875   0.3814
## ecigsmokerCurrent e-cigarette user  3.58347    0.61332   5.843 5.13e-09
## as.factor(ecigselfdirectscan_n)2   -0.48553    0.31767  -1.528   0.1264
## as.factor(valscan_ecig_n)2         -0.80567    0.38430  -2.096   0.0360
## as.factor(age2cat)18-25            -0.18603    0.33368  -0.557   0.5772
## as.factor(sex)Female               -0.27922    0.31675  -0.882   0.3780
## as.factor(race4cat_n)1              1.00508    0.40158   2.503   0.0123
## as.factor(race4cat_n)2             -0.08662    0.50115  -0.173   0.8628
## as.factor(race4cat_n)3              0.34825    0.50038   0.696   0.4864
## paredu_n                            0.15401    0.13878   1.110   0.2671
## goodgrades_n                       -0.09766    0.17281  -0.565   0.5720
## as.factor(hhuse_vap_n)1             0.70256    0.42005   1.673   0.0944
## as.factor(hhuse_vap_n)2            -0.40247    0.49550  -0.812   0.4166
##                                       
## (Intercept)                           
## ecigsmokerCurrent e-cigarette user ***
## as.factor(ecigselfdirectscan_n)2      
## as.factor(valscan_ecig_n)2         *  
## as.factor(age2cat)18-25               
## as.factor(sex)Female                  
## as.factor(race4cat_n)1             *  
## as.factor(race4cat_n)2                
## as.factor(race4cat_n)3                
## paredu_n                              
## goodgrades_n                          
## as.factor(hhuse_vap_n)1            .  
## as.factor(hhuse_vap_n)2               
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 377.12  on 312  degrees of freedom
## Residual deviance: 265.35  on 300  degrees of freedom
##   (30 observations deleted due to missingness)
## AIC: 296.22
## 
## Number of Fisher Scoring iterations: 5
## [1] "Binary intention"
## 
## Call:
## glm(formula = as.factor(survey_reduced$ecigint) ~ ecigsmoker + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.6305  -0.6640  -0.4247   0.3570   2.9782  
## 
## Coefficients:
##                                    Estimate Std. Error z value Pr(>|z|)
## (Intercept)                        -0.83044    0.94871  -0.875   0.3814
## ecigsmokerCurrent e-cigarette user  3.58347    0.61332   5.843 5.13e-09
## as.factor(ecigselfdirectscan_n)2   -0.48553    0.31767  -1.528   0.1264
## as.factor(valscan_ecig_n)2         -0.80567    0.38430  -2.096   0.0360
## as.factor(age2cat)18-25            -0.18603    0.33368  -0.557   0.5772
## as.factor(sex)Female               -0.27922    0.31675  -0.882   0.3780
## as.factor(race4cat_n)1              1.00508    0.40158   2.503   0.0123
## as.factor(race4cat_n)2             -0.08662    0.50115  -0.173   0.8628
## as.factor(race4cat_n)3              0.34825    0.50038   0.696   0.4864
## paredu_n                            0.15401    0.13878   1.110   0.2671
## goodgrades_n                       -0.09766    0.17281  -0.565   0.5720
## as.factor(hhuse_vap_n)1             0.70256    0.42005   1.673   0.0944
## as.factor(hhuse_vap_n)2            -0.40247    0.49550  -0.812   0.4166
##                                       
## (Intercept)                           
## ecigsmokerCurrent e-cigarette user ***
## as.factor(ecigselfdirectscan_n)2      
## as.factor(valscan_ecig_n)2         *  
## as.factor(age2cat)18-25               
## as.factor(sex)Female                  
## as.factor(race4cat_n)1             *  
## as.factor(race4cat_n)2                
## as.factor(race4cat_n)3                
## paredu_n                              
## goodgrades_n                          
## as.factor(hhuse_vap_n)1            .  
## as.factor(hhuse_vap_n)2               
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 377.12  on 312  degrees of freedom
## Residual deviance: 265.35  on 300  degrees of freedom
##   (30 observations deleted due to missingness)
## AIC: 296.22
## 
## Number of Fisher Scoring iterations: 5

Norms

Average of “how many of your close friends vape”; “how many people your age do you think vape”; “friends’ approval if you vaped”

Main effects

Mediation

Norms mediate relationship between exposure to positive media and intentions to vape

(a) Exposure to positive media predicts intention to vape

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_reduced$qn22_n ~ ecigsmoker + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     data = survey_reduced, weights = weight1_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.1849 -0.2741 -0.1460  0.1436  2.3498 
## 
## Coefficients:
##                                     Estimate Std. Error t value Pr(>|t|)
## (Intercept)                         1.643815   0.231995   7.086 9.92e-12
## ecigsmokerCurrent e-cigarette user  1.611272   0.102595  15.705  < 2e-16
## as.factor(ecigselfdirectscan_n)2   -0.127744   0.077006  -1.659   0.0982
## as.factor(valscan_ecig_n)2         -0.184550   0.086159  -2.142   0.0330
## as.factor(age2cat)18-25            -0.023431   0.080579  -0.291   0.7714
## as.factor(sex)Female               -0.004800   0.075281  -0.064   0.9492
## as.factor(race4cat_n)1              0.236068   0.098111   2.406   0.0167
## as.factor(race4cat_n)2             -0.038326   0.113192  -0.339   0.7352
## as.factor(race4cat_n)3              0.235300   0.120986   1.945   0.0527
## paredu_n                            0.008579   0.033542   0.256   0.7983
## goodgrades_n                       -0.068434   0.042066  -1.627   0.1048
## as.factor(hhuse_vap_n)1             0.145255   0.102084   1.423   0.1558
## as.factor(hhuse_vap_n)2            -0.095104   0.112150  -0.848   0.3971
##                                       
## (Intercept)                        ***
## ecigsmokerCurrent e-cigarette user ***
## as.factor(ecigselfdirectscan_n)2   .  
## as.factor(valscan_ecig_n)2         *  
## as.factor(age2cat)18-25               
## as.factor(sex)Female                  
## as.factor(race4cat_n)1             *  
## as.factor(race4cat_n)2                
## as.factor(race4cat_n)3             .  
## paredu_n                              
## goodgrades_n                          
## as.factor(hhuse_vap_n)1               
## as.factor(hhuse_vap_n)2               
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.614 on 300 degrees of freedom
##   (30 observations deleted due to missingness)
## Multiple R-squared:  0.5569, Adjusted R-squared:  0.5392 
## F-statistic: 31.43 on 12 and 300 DF,  p-value: < 2.2e-16
## [1] "Binary intention"
## 
## Call:
## glm(formula = as.factor(survey_reduced$ecigint) ~ ecigsmoker + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.6305  -0.6640  -0.4247   0.3570   2.9782  
## 
## Coefficients:
##                                    Estimate Std. Error z value Pr(>|z|)
## (Intercept)                        -0.83044    0.94871  -0.875   0.3814
## ecigsmokerCurrent e-cigarette user  3.58347    0.61332   5.843 5.13e-09
## as.factor(ecigselfdirectscan_n)2   -0.48553    0.31767  -1.528   0.1264
## as.factor(valscan_ecig_n)2         -0.80567    0.38430  -2.096   0.0360
## as.factor(age2cat)18-25            -0.18603    0.33368  -0.557   0.5772
## as.factor(sex)Female               -0.27922    0.31675  -0.882   0.3780
## as.factor(race4cat_n)1              1.00508    0.40158   2.503   0.0123
## as.factor(race4cat_n)2             -0.08662    0.50115  -0.173   0.8628
## as.factor(race4cat_n)3              0.34825    0.50038   0.696   0.4864
## paredu_n                            0.15401    0.13878   1.110   0.2671
## goodgrades_n                       -0.09766    0.17281  -0.565   0.5720
## as.factor(hhuse_vap_n)1             0.70256    0.42005   1.673   0.0944
## as.factor(hhuse_vap_n)2            -0.40247    0.49550  -0.812   0.4166
##                                       
## (Intercept)                           
## ecigsmokerCurrent e-cigarette user ***
## as.factor(ecigselfdirectscan_n)2      
## as.factor(valscan_ecig_n)2         *  
## as.factor(age2cat)18-25               
## as.factor(sex)Female                  
## as.factor(race4cat_n)1             *  
## as.factor(race4cat_n)2                
## as.factor(race4cat_n)3                
## paredu_n                              
## goodgrades_n                          
## as.factor(hhuse_vap_n)1            .  
## as.factor(hhuse_vap_n)2               
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 377.12  on 312  degrees of freedom
## Residual deviance: 265.35  on 300  degrees of freedom
##   (30 observations deleted due to missingness)
## AIC: 296.22
## 
## Number of Fisher Scoring iterations: 5

(b) Positive value predicts norms (above)

(c) Higher positive norms predict intentions to vape, controlling for self-relevance and value of media; positive value becomes non-significant

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_reduced$qn22_n ~ norms_ecigs + ecigsmoker + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), data = survey_reduced, 
##     weights = weight1_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.3401 -0.2782 -0.1144  0.1959  2.3723 
## 
## Coefficients:
##                                     Estimate Std. Error t value Pr(>|t|)
## (Intercept)                         1.324947   0.258607   5.123 5.44e-07
## norms_ecigs                         0.153825   0.054512   2.822   0.0051
## ecigsmokerCurrent e-cigarette user  1.484235   0.111197  13.348  < 2e-16
## as.factor(ecigselfdirectscan_n)2   -0.090589   0.078104  -1.160   0.2470
## as.factor(valscan_ecig_n)2         -0.144301   0.088057  -1.639   0.1023
## as.factor(age2cat)18-25            -0.017651   0.080595  -0.219   0.8268
## as.factor(sex)Female                0.009081   0.075623   0.120   0.9045
## as.factor(race4cat_n)1              0.192610   0.099305   1.940   0.0534
## as.factor(race4cat_n)2             -0.046049   0.112961  -0.408   0.6838
## as.factor(race4cat_n)3              0.215298   0.122570   1.757   0.0800
## paredu_n                            0.006740   0.033492   0.201   0.8407
## goodgrades_n                       -0.060309   0.042030  -1.435   0.1524
## as.factor(hhuse_vap_n)1             0.096944   0.103094   0.940   0.3478
## as.factor(hhuse_vap_n)2            -0.108563   0.114860  -0.945   0.3453
##                                       
## (Intercept)                        ***
## norms_ecigs                        ** 
## ecigsmokerCurrent e-cigarette user ***
## as.factor(ecigselfdirectscan_n)2      
## as.factor(valscan_ecig_n)2            
## as.factor(age2cat)18-25               
## as.factor(sex)Female                  
## as.factor(race4cat_n)1             .  
## as.factor(race4cat_n)2                
## as.factor(race4cat_n)3             .  
## paredu_n                              
## goodgrades_n                          
## as.factor(hhuse_vap_n)1               
## as.factor(hhuse_vap_n)2               
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.6112 on 294 degrees of freedom
##   (35 observations deleted due to missingness)
## Multiple R-squared:  0.5669, Adjusted R-squared:  0.5477 
## F-statistic:  29.6 on 13 and 294 DF,  p-value: < 2.2e-16
## [1] "Binary intention"
## 
## Call:
## glm(formula = as.factor(survey_reduced$ecigint) ~ norms_ecigs + 
##     ecigsmoker + as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.8950  -0.6250  -0.3986   0.3926   3.0777  
## 
## Coefficients:
##                                    Estimate Std. Error z value Pr(>|z|)
## (Intercept)                         -1.8826     1.0395  -1.811   0.0701
## norms_ecigs                          0.5653     0.2202   2.567   0.0103
## ecigsmokerCurrent e-cigarette user   3.1974     0.6260   5.107 3.27e-07
## as.factor(ecigselfdirectscan_n)2    -0.3506     0.3256  -1.077   0.2816
## as.factor(valscan_ecig_n)2          -0.6532     0.3951  -1.654   0.0982
## as.factor(age2cat)18-25             -0.1763     0.3409  -0.517   0.6049
## as.factor(sex)Female                -0.2489     0.3222  -0.772   0.4399
## as.factor(race4cat_n)1               0.8526     0.4076   2.092   0.0364
## as.factor(race4cat_n)2              -0.1275     0.5069  -0.252   0.8014
## as.factor(race4cat_n)3               0.3132     0.5100   0.614   0.5391
## paredu_n                             0.1564     0.1414   1.107   0.2685
## goodgrades_n                        -0.1054     0.1744  -0.605   0.5455
## as.factor(hhuse_vap_n)1              0.4740     0.4331   1.095   0.2737
## as.factor(hhuse_vap_n)2             -0.4502     0.5120  -0.879   0.3793
##                                       
## (Intercept)                        .  
## norms_ecigs                        *  
## ecigsmokerCurrent e-cigarette user ***
## as.factor(ecigselfdirectscan_n)2      
## as.factor(valscan_ecig_n)2         .  
## as.factor(age2cat)18-25               
## as.factor(sex)Female                  
## as.factor(race4cat_n)1             *  
## as.factor(race4cat_n)2                
## as.factor(race4cat_n)3                
## paredu_n                              
## goodgrades_n                          
## as.factor(hhuse_vap_n)1               
## as.factor(hhuse_vap_n)2               
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 373.04  on 307  degrees of freedom
## Residual deviance: 257.15  on 294  degrees of freedom
##   (35 observations deleted due to missingness)
## AIC: 291.47
## 
## Number of Fisher Scoring iterations: 5

Norms partially mediate relationship between exposure to self-relevant, positive media and having ever vaped

(a) Self-relevant and positive media predict having ever vaped

## 
## Call:
## glm(formula = as.factor(survey_reduced$qn15_r) ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     family = binomial, data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -3.4335  -0.6684  -0.3642   0.7823   2.6997  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)    
## (Intercept)                        0.1170     0.8641   0.135 0.892325    
## as.factor(ecigselfdirectscan_n)2  -0.9791     0.2938  -3.333 0.000859 ***
## as.factor(valscan_ecig_n)2        -1.4589     0.3949  -3.695 0.000220 ***
## as.factor(age2cat)18-25            1.2141     0.3241   3.746 0.000179 ***
## as.factor(sex)Female               0.2096     0.2967   0.707 0.479875    
## as.factor(race4cat_n)1             0.2678     0.3784   0.708 0.479176    
## as.factor(race4cat_n)2            -1.1100     0.4962  -2.237 0.025288 *  
## as.factor(race4cat_n)3            -0.1536     0.4695  -0.327 0.743549    
## paredu_n                           0.2336     0.1324   1.765 0.077597 .  
## goodgrades_n                      -0.4240     0.1637  -2.590 0.009607 ** 
## as.factor(hhuse_vap_n)1            1.1948     0.3891   3.070 0.002138 ** 
## as.factor(hhuse_vap_n)2            0.2912     0.4133   0.705 0.481109    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 372.82  on 313  degrees of freedom
## Residual deviance: 294.87  on 302  degrees of freedom
##   (29 observations deleted due to missingness)
## AIC: 328
## 
## Number of Fisher Scoring iterations: 5

(b) Self-relevant and positive media predicts norms (above)

(c) Norms predict having ever vaped, controlling for self-relevance and valence of media (which are still sig, but reduced)

## 
## Call:
## glm(formula = as.factor(survey_reduced$qn15_r) ~ norms_ecigs + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.7090  -0.6000  -0.2563   0.6407   2.6320  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)    
## (Intercept)                      -3.27313    1.16298  -2.814  0.00489 ** 
## norms_ecigs                       1.31539    0.22824   5.763 8.26e-09 ***
## as.factor(ecigselfdirectscan_n)2 -0.68329    0.32418  -2.108  0.03505 *  
## as.factor(valscan_ecig_n)2       -1.08573    0.42666  -2.545  0.01094 *  
## as.factor(age2cat)18-25           1.35793    0.36514   3.719  0.00020 ***
## as.factor(sex)Female              0.38997    0.32527   1.199  0.23057    
## as.factor(race4cat_n)1            0.02509    0.40642   0.062  0.95077    
## as.factor(race4cat_n)2           -1.26588    0.54347  -2.329  0.01985 *  
## as.factor(race4cat_n)3           -0.39352    0.52820  -0.745  0.45626    
## paredu_n                          0.26117    0.14651   1.783  0.07464 .  
## goodgrades_n                     -0.32687    0.18667  -1.751  0.07994 .  
## as.factor(hhuse_vap_n)1           0.76655    0.42995   1.783  0.07460 .  
## as.factor(hhuse_vap_n)2           0.33914    0.45418   0.747  0.45524    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 367.78  on 307  degrees of freedom
## Residual deviance: 250.49  on 295  degrees of freedom
##   (35 observations deleted due to missingness)
## AIC: 289.05
## 
## Number of Fisher Scoring iterations: 5

Beliefs

Main effects - ecig vs tobacco beliefs

Exposure to negative media is associated with agreement to “Will become addicted to nicotine if vape/use e-cigs every day”

## 
## Call:
## lm(formula = qn46_n ~ as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(ecigsmoker) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     data = survey_reduced, weights = weight1_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.12222 -0.42118  0.02026  0.37256  1.90079 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.54602    0.28927   8.802
## as.factor(ecigselfdirectscan_n)2              -0.03710    0.08889  -0.417
## as.factor(valscan_ecig_n)2                     0.29129    0.09986   2.917
## as.factor(ecigsmoker)Current e-cigarette user -0.23545    0.11920  -1.975
## as.factor(age2cat)18-25                        0.06026    0.09349   0.645
## as.factor(sex)Female                           0.17843    0.08707   2.049
## as.factor(race4cat_n)1                        -0.26117    0.11339  -2.303
## as.factor(race4cat_n)2                        -0.11336    0.13148  -0.862
## as.factor(race4cat_n)3                        -0.20572    0.13961  -1.474
## paredu_n                                       0.12098    0.03935   3.075
## goodgrades_n                                  -0.03812    0.05122  -0.744
## as.factor(hhuse_vap_n)1                        0.02538    0.11761   0.216
## as.factor(hhuse_vap_n)2                        0.18080    0.12984   1.392
##                                               Pr(>|t|)    
## (Intercept)                                    < 2e-16 ***
## as.factor(ecigselfdirectscan_n)2               0.67673    
## as.factor(valscan_ecig_n)2                     0.00381 ** 
## as.factor(ecigsmoker)Current e-cigarette user  0.04918 *  
## as.factor(age2cat)18-25                        0.51969    
## as.factor(sex)Female                           0.04133 *  
## as.factor(race4cat_n)1                         0.02197 *  
## as.factor(race4cat_n)2                         0.38930    
## as.factor(race4cat_n)3                         0.14169    
## paredu_n                                       0.00231 ** 
## goodgrades_n                                   0.45731    
## as.factor(hhuse_vap_n)1                        0.82930    
## as.factor(hhuse_vap_n)2                        0.16484    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7014 on 293 degrees of freedom
##   (37 observations deleted due to missingness)
## Multiple R-squared:  0.1259, Adjusted R-squared:  0.09008 
## F-statistic: 3.516 on 12 and 293 DF,  p-value: 6.966e-05

Exposure to positive media is associated with agreement to “Can quit tobacco cigs by vaping/using ecigs” (“not like me” marginal)

## 
## Call:
## lm(formula = qn47_n ~ as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(ecigsmoker) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n + as.factor(hhuse_vap_n), 
##     data = survey_reduced, weights = weight1_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -2.6281 -0.3804  0.1209  0.3913  2.0785 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.32216    0.28392   8.179
## as.factor(ecigselfdirectscan_n)2               0.16014    0.09420   1.700
## as.factor(valscan_ecig_n)2                    -0.28053    0.10562  -2.656
## as.factor(ecigsmoker)Current e-cigarette user  0.46684    0.12525   3.727
## as.factor(age2cat)18-25                        0.05674    0.09863   0.575
## as.factor(sex)Female                          -0.26395    0.09222  -2.862
## as.factor(race4cat_n)1                        -0.02403    0.11996  -0.200
## as.factor(race4cat_n)2                         0.10607    0.13811   0.768
## as.factor(race4cat_n)3                        -0.11764    0.15053  -0.782
## paredu_n                                      -0.02538    0.04097  -0.619
## goodgrades_n                                   0.10746    0.05145   2.089
## as.factor(hhuse_vap_n)1                       -0.04455    0.12466  -0.357
## as.factor(hhuse_vap_n)2                       -0.19263    0.13717  -1.404
##                                               Pr(>|t|)    
## (Intercept)                                   8.44e-15 ***
## as.factor(ecigselfdirectscan_n)2              0.090157 .  
## as.factor(valscan_ecig_n)2                    0.008333 ** 
## as.factor(ecigsmoker)Current e-cigarette user 0.000232 ***
## as.factor(age2cat)18-25                       0.565548    
## as.factor(sex)Female                          0.004508 ** 
## as.factor(race4cat_n)1                        0.841393    
## as.factor(race4cat_n)2                        0.443099    
## as.factor(race4cat_n)3                        0.435130    
## paredu_n                                      0.536095    
## goodgrades_n                                  0.037601 *  
## as.factor(hhuse_vap_n)1                       0.721064    
## as.factor(hhuse_vap_n)2                       0.161266    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7489 on 297 degrees of freedom
##   (33 observations deleted due to missingness)
## Multiple R-squared:  0.1235, Adjusted R-squared:  0.08806 
## F-statistic: 3.486 on 12 and 297 DF,  p-value: 7.793e-05

Exposure to positive media is associated with higher self-efficacy to quit ecigs

## 
## Call:
## lm(formula = se_vape_all_n ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_reduced, weights = weight1_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -2.12797 -0.39281 -0.06792  0.46207  1.89799 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    3.01504    0.27455  10.982
## as.factor(ecigselfdirectscan_n)2              -0.04064    0.08418  -0.483
## as.factor(valscan_ecig_n)2                    -0.23735    0.09482  -2.503
## as.factor(ecigsmoker)Current e-cigarette user  0.48752    0.11157   4.370
## as.factor(age2cat)18-25                       -0.07611    0.08850  -0.860
## as.factor(sex)Female                          -0.32140    0.08231  -3.905
## as.factor(race4cat_n)1                         0.21247    0.10765   1.974
## as.factor(race4cat_n)2                         0.15064    0.12458   1.209
## as.factor(race4cat_n)3                         0.08105    0.13337   0.608
## paredu_n                                      -0.10763    0.03720  -2.893
## goodgrades_n                                  -0.02697    0.04871  -0.554
## as.factor(hhuse_vap_n)1                        0.13388    0.11099   1.206
## as.factor(hhuse_vap_n)2                        0.05091    0.12360   0.412
##                                               Pr(>|t|)    
## (Intercept)                                    < 2e-16 ***
## as.factor(ecigselfdirectscan_n)2              0.629653    
## as.factor(valscan_ecig_n)2                    0.012863 *  
## as.factor(ecigsmoker)Current e-cigarette user 1.74e-05 ***
## as.factor(age2cat)18-25                       0.390479    
## as.factor(sex)Female                          0.000117 ***
## as.factor(race4cat_n)1                        0.049368 *  
## as.factor(race4cat_n)2                        0.227592    
## as.factor(race4cat_n)3                        0.543841    
## paredu_n                                      0.004104 ** 
## goodgrades_n                                  0.580255    
## as.factor(hhuse_vap_n)1                       0.228713    
## as.factor(hhuse_vap_n)2                       0.680695    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.664 on 290 degrees of freedom
##   (40 observations deleted due to missingness)
## Multiple R-squared:  0.2089, Adjusted R-squared:  0.1761 
## F-statistic:  6.38 on 12 and 290 DF,  p-value: 4.747e-10

Beliefs predict intentions to vape

## 
## Call:
## glm(formula = as.factor(survey_reduced$ecigint) ~ qn46_n + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), family = binomial, data = survey_reduced, 
##     weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.2769  -0.8405  -0.5375   0.9051   2.8178  
## 
## Coefficients:
##                         Estimate Std. Error z value Pr(>|z|)   
## (Intercept)               1.3066     0.9490   1.377  0.16857   
## qn46_n                   -0.3685     0.1785  -2.065  0.03894 * 
## as.factor(age2cat)18-25   0.2872     0.2859   1.004  0.31520   
## as.factor(sex)Female     -0.2021     0.2748  -0.736  0.46198   
## as.factor(race4cat_n)1    0.7711     0.3516   2.193  0.02827 * 
## as.factor(race4cat_n)2   -0.3025     0.4294  -0.704  0.48112   
## as.factor(race4cat_n)3    0.3507     0.4233   0.829  0.40738   
## paredu_n                  0.1644     0.1244   1.321  0.18648   
## goodgrades_n             -0.4103     0.1584  -2.591  0.00957 **
## as.factor(hhuse_vap_n)1   0.8732     0.3537   2.468  0.01357 * 
## as.factor(hhuse_vap_n)2  -0.3734     0.4213  -0.886  0.37540   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 365.41  on 305  degrees of freedom
## Residual deviance: 329.05  on 295  degrees of freedom
##   (37 observations deleted due to missingness)
## AIC: 350.67
## 
## Number of Fisher Scoring iterations: 4
## 
## Call:
## glm(formula = as.factor(survey_reduced$ecigint) ~ qn47_n + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), family = binomial, data = survey_reduced, 
##     weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.3899  -0.8214  -0.4964   0.9079   2.5825  
## 
## Coefficients:
##                         Estimate Std. Error z value Pr(>|z|)    
## (Intercept)             -2.02518    0.88386  -2.291  0.02195 *  
## qn47_n                   0.66727    0.17817   3.745  0.00018 ***
## as.factor(age2cat)18-25  0.34944    0.28590   1.222  0.22161    
## as.factor(sex)Female    -0.08014    0.27888  -0.287  0.77384    
## as.factor(race4cat_n)1   0.77178    0.34959   2.208  0.02727 *  
## as.factor(race4cat_n)2  -0.36841    0.43710  -0.843  0.39931    
## as.factor(race4cat_n)3   0.53273    0.43728   1.218  0.22312    
## paredu_n                 0.16153    0.12099   1.335  0.18183    
## goodgrades_n            -0.32333    0.14836  -2.179  0.02931 *  
## as.factor(hhuse_vap_n)1  0.94867    0.35647   2.661  0.00778 ** 
## as.factor(hhuse_vap_n)2 -0.38628    0.42301  -0.913  0.36115    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 375.58  on 309  degrees of freedom
## Residual deviance: 331.79  on 299  degrees of freedom
##   (33 observations deleted due to missingness)
## AIC: 359.48
## 
## Number of Fisher Scoring iterations: 4
## 
## Call:
## glm(formula = as.factor(survey_reduced$ecigint) ~ se_vape_all_n + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), family = binomial, 
##     data = survey_reduced, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -2.3620  -0.8129  -0.5005   0.9154   2.4983  
## 
## Coefficients:
##                         Estimate Std. Error z value Pr(>|z|)    
## (Intercept)             -1.68861    1.04161  -1.621 0.104984    
## se_vape_all_n            0.71570    0.19535   3.664 0.000249 ***
## as.factor(age2cat)18-25  0.34668    0.29003   1.195 0.231956    
## as.factor(sex)Female    -0.02074    0.28150  -0.074 0.941267    
## as.factor(race4cat_n)1   0.68348    0.35552   1.922 0.054547 .  
## as.factor(race4cat_n)2  -0.43037    0.43533  -0.989 0.322854    
## as.factor(race4cat_n)3   0.35569    0.43388   0.820 0.412337    
## paredu_n                 0.16788    0.12428   1.351 0.176755    
## goodgrades_n            -0.37171    0.16520  -2.250 0.024445 *  
## as.factor(hhuse_vap_n)1  0.70835    0.36239   1.955 0.050624 .  
## as.factor(hhuse_vap_n)2 -0.51571    0.42246  -1.221 0.222187    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 368.46  on 302  degrees of freedom
## Residual deviance: 322.43  on 292  degrees of freedom
##   (40 observations deleted due to missingness)
## AIC: 344.7
## 
## Number of Fisher Scoring iterations: 4

Ecig health beliefs (recontact only)

Average of beliefs re negative health, cosmetic, control, and social outcomes of vaping
Self-relevance and valence of media is not associated with concurrent beliefs (recontact only, N=79)
## 
## Call:
## lm(formula = beliefs_ecig_nx ~ as.factor(ecigselfdirectscan_nx) + 
##     as.factor(valscan_ecig_nx) + as.factor(ecigsmokerx) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_recontact, weights = weight2_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.36757 -0.21126 -0.03007  0.26541  1.48407 
## 
## Coefficients:
##                                                Estimate Std. Error t value
## (Intercept)                                     2.54490    0.33719   7.547
## as.factor(ecigselfdirectscan_nx)2               0.03868    0.09467   0.409
## as.factor(valscan_ecig_nx)2                     0.17217    0.13503   1.275
## as.factor(ecigsmokerx)Current e-cigarette user -0.37343    0.12434  -3.003
## as.factor(age2cat)18-25                        -0.14139    0.10457  -1.352
## as.factor(sex)Female                            0.10810    0.09156   1.181
## as.factor(race4cat_n)1                          0.18377    0.14758   1.245
## as.factor(race4cat_n)2                         -0.13460    0.15971  -0.843
## as.factor(race4cat_n)3                          0.23465    0.14712   1.595
## paredu_n                                       -0.06509    0.04253  -1.530
## goodgrades_n                                    0.04354    0.06300   0.691
## as.factor(hhuse_vap_n)1                         0.08774    0.11652   0.753
## as.factor(hhuse_vap_n)2                         0.27982    0.14429   1.939
##                                                Pr(>|t|)    
## (Intercept)                                    2.43e-11 ***
## as.factor(ecigselfdirectscan_nx)2                0.6838    
## as.factor(valscan_ecig_nx)2                      0.2053    
## as.factor(ecigsmokerx)Current e-cigarette user   0.0034 ** 
## as.factor(age2cat)18-25                          0.1795    
## as.factor(sex)Female                             0.2406    
## as.factor(race4cat_n)1                           0.2161    
## as.factor(race4cat_n)2                           0.4014    
## as.factor(race4cat_n)3                           0.1140    
## paredu_n                                         0.1292    
## goodgrades_n                                     0.4912    
## as.factor(hhuse_vap_n)1                          0.4532    
## as.factor(hhuse_vap_n)2                          0.0554 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4323 on 97 degrees of freedom
##   (12 observations deleted due to missingness)
## Multiple R-squared:  0.2444, Adjusted R-squared:  0.1509 
## F-statistic: 2.614 on 12 and 97 DF,  p-value: 0.004619
Exposure to negative media at T1 predicts beliefs about negative outcomes at T2
## 
## Call:
## lm(formula = beliefs_ecig_nx ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmokerx) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_recontact, weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.8036 -0.1348  0.0137  0.1761  1.0296 
## 
## Coefficients:
##                                                 Estimate Std. Error
## (Intercept)                                     1.782233   0.415149
## as.factor(ecigselfdirectscan_n)2               -0.008182   0.122177
## as.factor(valscan_ecig_n)2                      0.280632   0.134853
## as.factor(ecigsmokerx)Current e-cigarette user -0.414620   0.129274
## as.factor(age2cat)18-25                        -0.105124   0.130836
## as.factor(sex)Female                            0.201673   0.118475
## as.factor(race4cat_n)1                          0.105207   0.185980
## as.factor(race4cat_n)2                         -0.013215   0.145101
## as.factor(race4cat_n)3                          0.082776   0.284566
## paredu_n                                        0.076825   0.047012
## goodgrades_n                                    0.111407   0.063703
## as.factor(hhuse_vap_n)1                        -0.109809   0.149787
## as.factor(hhuse_vap_n)2                         0.269778   0.166639
##                                                t value Pr(>|t|)    
## (Intercept)                                      4.293 7.89e-05 ***
## as.factor(ecigselfdirectscan_n)2                -0.067  0.94687    
## as.factor(valscan_ecig_n)2                       2.081  0.04247 *  
## as.factor(ecigsmokerx)Current e-cigarette user  -3.207  0.00232 ** 
## as.factor(age2cat)18-25                         -0.803  0.42543    
## as.factor(sex)Female                             1.702  0.09480 .  
## as.factor(race4cat_n)1                           0.566  0.57408    
## as.factor(race4cat_n)2                          -0.091  0.92779    
## as.factor(race4cat_n)3                           0.291  0.77232    
## paredu_n                                         1.634  0.10838    
## goodgrades_n                                     1.749  0.08633 .  
## as.factor(hhuse_vap_n)1                         -0.733  0.46685    
## as.factor(hhuse_vap_n)2                          1.619  0.11163    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.3539 on 51 degrees of freedom
##   (15 observations deleted due to missingness)
## Multiple R-squared:  0.5257, Adjusted R-squared:  0.4141 
## F-statistic: 4.711 on 12 and 51 DF,  p-value: 4.099e-05

Longitudinal Models

## Descriptives

## [1] "Longitudinal N=79"

Behavior

## [1] "Ever vape breakdown: T1"
## qn15_r
##  No Yes 
##  55  24
## [1] "Ever vape breakdown: T2"
## qn15_rx
##  No Yes 
##  51  28
## [1] "Ever vape @ T2 by self & value T1"
## [1] "Ecigselfdirectscan: Self-directedness of scanned information; 1=Mostly like me, 2=Mostly not like me; Valscan: Valence of scanned information; 1=Mostly positive, 2=Mostly negative"
##                     qn15_rx
## ecigselfdirectscan_n No Yes
##                    1 12  16
##                    2 39  12
##               qn15_rx
## valscan_ecig_n No Yes
##              1 31  27
##              2 20   1

Main effects

Exposure to self-relevant media (T1) predicts having ever vaped (T2, controlling T1)

## 
## Call:
## glm(formula = as.factor(survey_ecigs$qn15_rx) ~ as.factor(qn15_r) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     goodgrades_n, family = binomial, data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -2.00281  -0.24559  -0.03416   0.13871   2.09596  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)   
## (Intercept)                        1.8226     3.9007   0.467  0.64033   
## as.factor(qn15_r)Yes               5.7941     2.1825   2.655  0.00794 **
## as.factor(ecigselfdirectscan_n)2  -2.1457     1.0490  -2.046  0.04080 * 
## as.factor(valscan_ecig_n)2        -3.7681     2.3337  -1.615  0.10639   
## as.factor(age2cat)18-25           -0.7826     1.2344  -0.634  0.52610   
## as.factor(sex)Female              -4.8320     2.2106  -2.186  0.02883 * 
## as.factor(race4cat_n)1             2.7705     1.9582   1.415  0.15713   
## as.factor(race4cat_n)2            -1.3305     1.5754  -0.845  0.39837   
## as.factor(race4cat_n)3             0.3682     2.8317   0.130  0.89654   
## goodgrades_n                      -0.1274     0.9119  -0.140  0.88888   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 79.137  on 77  degrees of freedom
## Residual deviance: 25.342  on 68  degrees of freedom
##   (1 observation deleted due to missingness)
## AIC: 44.526
## 
## Number of Fisher Scoring iterations: 7

Intentions

## [1] "Continuous intentions, T1"
## qn22_n
##  1  2  3  4 
## 53 13  7  6
## [1] "Continuous intentions, T2"
## qn22_nx
##  1  2  3  4 
## 50 16  6  7
## [1] "Binary intentions, T1"
## ecigint
## Definitely no intention to vape          Some intention to vape 
##                              53                              26
## [1] "Binary intentions, T2"
## ecigintx
## Definitely no intention to vape          Some intention to vape 
##                              50                              29
## [1] "Binary intentions T2 by self & value T1"
## [1] "Ecigselfdirectscan: Self-directedness of scanned information; 1=Mostly like me, 2=Mostly not like me; Valscan: Valence of scanned information; 1=Mostly positive, 2=Mostly negative"
##                     ecigintx
## ecigselfdirectscan_n Definitely no intention to vape
##                    1                              10
##                    2                              40
##                     ecigintx
## ecigselfdirectscan_n Some intention to vape
##                    1                     18
##                    2                     11
##               ecigintx
## valscan_ecig_n Definitely no intention to vape Some intention to vape
##              1                              32                     26
##              2                              18                      3

Main effects

Self-relevant and positive media (T1) predict intentions to vape (T2, controlling T1)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.3613 -0.5499 -0.1588  0.1996  1.6347 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    4.64110    0.87149   5.325
## qn22_n                                         0.19603    0.23529   0.833
## as.factor(ecigselfdirectscan_n)2              -0.88575    0.21363  -4.146
## as.factor(valscan_ecig_n)2                    -0.63768    0.26465  -2.410
## as.factor(ecigsmoker)Current e-cigarette user  0.56559    0.52179   1.084
## as.factor(age2cat)18-25                       -0.07786    0.26586  -0.293
## as.factor(sex)Female                          -0.43939    0.23394  -1.878
## as.factor(race4cat_n)1                        -0.23871    0.32389  -0.737
## as.factor(race4cat_n)2                        -0.75318    0.32694  -2.304
## as.factor(race4cat_n)3                        -0.82458    0.51719  -1.594
## paredu_n                                       0.01443    0.10153   0.142
## goodgrades_n                                  -0.48217    0.13489  -3.575
## as.factor(hhuse_vap_n)1                       -0.18593    0.31127  -0.597
## as.factor(hhuse_vap_n)2                       -0.52985    0.33824  -1.566
##                                               Pr(>|t|)    
## (Intercept)                                   1.92e-06 ***
## qn22_n                                        0.408382    
## as.factor(ecigselfdirectscan_n)2              0.000118 ***
## as.factor(valscan_ecig_n)2                    0.019348 *  
## as.factor(ecigsmoker)Current e-cigarette user 0.283121    
## as.factor(age2cat)18-25                       0.770737    
## as.factor(sex)Female                          0.065656 .  
## as.factor(race4cat_n)1                        0.464239    
## as.factor(race4cat_n)2                        0.025043 *  
## as.factor(race4cat_n)3                        0.116589    
## paredu_n                                      0.887527    
## goodgrades_n                                  0.000739 ***
## as.factor(hhuse_vap_n)1                       0.552745    
## as.factor(hhuse_vap_n)2                       0.122971    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7122 on 55 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.6479, Adjusted R-squared:  0.5646 
## F-statistic: 7.783 on 13 and 55 DF,  p-value: 1.844e-08
## [1] "Binary intention - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ as.factor(ecigint) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(ecigsmoker) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n, family = binomial, 
##     data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.63685  -0.43928  -0.16144   0.00009   2.21660  
## 
## Coefficients:
##                                                 Estimate Std. Error
## (Intercept)                                    2.082e+00  3.320e+00
## as.factor(ecigint)Some intention to vape       1.574e+00  1.381e+00
## as.factor(ecigselfdirectscan_n)2              -1.710e+00  9.473e-01
## as.factor(valscan_ecig_n)2                    -2.297e+00  1.305e+00
## as.factor(ecigsmoker)Current e-cigarette user  1.859e+01  2.672e+03
## as.factor(age2cat)18-25                        5.052e-01  9.700e-01
## as.factor(sex)Female                          -2.419e-03  9.912e-01
## as.factor(race4cat_n)1                         6.620e-01  1.551e+00
## as.factor(race4cat_n)2                        -1.355e+00  1.473e+00
## as.factor(race4cat_n)3                        -4.934e-01  1.843e+00
## paredu_n                                       9.292e-03  4.302e-01
## goodgrades_n                                  -3.600e-01  6.893e-01
##                                               z value Pr(>|z|)  
## (Intercept)                                     0.627   0.5306  
## as.factor(ecigint)Some intention to vape        1.140   0.2544  
## as.factor(ecigselfdirectscan_n)2               -1.805   0.0710 .
## as.factor(valscan_ecig_n)2                     -1.760   0.0784 .
## as.factor(ecigsmoker)Current e-cigarette user   0.007   0.9944  
## as.factor(age2cat)18-25                         0.521   0.6025  
## as.factor(sex)Female                           -0.002   0.9981  
## as.factor(race4cat_n)1                          0.427   0.6695  
## as.factor(race4cat_n)2                         -0.920   0.3578  
## as.factor(race4cat_n)3                         -0.268   0.7889  
## paredu_n                                        0.022   0.9828  
## goodgrades_n                                   -0.522   0.6015  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 71.35  on 68  degrees of freedom
## Residual deviance: 34.19  on 57  degrees of freedom
##   (10 observations deleted due to missingness)
## AIC: 58.112
## 
## Number of Fisher Scoring iterations: 18

Mediations

(1) Intentions to vape mediate the relationship between self-relevance of media and having ever tried vaping

(a) Self-relevance of media (T1) predicts having ever vaped (T2, controlling T1)

## 
## Call:
## glm(formula = as.factor(survey_ecigs$qn15_rx) ~ as.factor(qn15_r) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     goodgrades_n, family = binomial, data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -2.00281  -0.24559  -0.03416   0.13871   2.09596  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)   
## (Intercept)                        1.8226     3.9007   0.467  0.64033   
## as.factor(qn15_r)Yes               5.7941     2.1825   2.655  0.00794 **
## as.factor(ecigselfdirectscan_n)2  -2.1457     1.0490  -2.046  0.04080 * 
## as.factor(valscan_ecig_n)2        -3.7681     2.3337  -1.615  0.10639   
## as.factor(age2cat)18-25           -0.7826     1.2344  -0.634  0.52610   
## as.factor(sex)Female              -4.8320     2.2106  -2.186  0.02883 * 
## as.factor(race4cat_n)1             2.7705     1.9582   1.415  0.15713   
## as.factor(race4cat_n)2            -1.3305     1.5754  -0.845  0.39837   
## as.factor(race4cat_n)3             0.3682     2.8317   0.130  0.89654   
## goodgrades_n                      -0.1274     0.9119  -0.140  0.88888   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 79.137  on 77  degrees of freedom
## Residual deviance: 25.342  on 68  degrees of freedom
##   (1 observation deleted due to missingness)
## AIC: 44.526
## 
## Number of Fisher Scoring iterations: 7

(b) Self-relevance of media (T1) predicts intentions (T1) (not significant if controlling for current e-cig smoker)

## [1] "Continuous intentions"
## 
## Call:
## lm(formula = survey_ecigs$qn22_n ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + goodgrades_n, data = survey_ecigs, 
##     weights = weight1_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.2549 -0.5328 -0.2206  0.4562  2.2698 
## 
## Coefficients:
##                                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                       3.81395    0.56811   6.713 4.38e-09 ***
## as.factor(ecigselfdirectscan_n)2 -0.42450    0.21266  -1.996 0.049861 *  
## as.factor(valscan_ecig_n)2       -0.39237    0.22705  -1.728 0.088438 .  
## as.factor(age2cat)18-25           0.32021    0.22174   1.444 0.153240    
## as.factor(sex)Female              0.06054    0.22593   0.268 0.789528    
## as.factor(race4cat_n)1           -0.05351    0.28626  -0.187 0.852269    
## as.factor(race4cat_n)2           -0.82892    0.27337  -3.032 0.003418 ** 
## as.factor(race4cat_n)3           -0.15078    0.39942  -0.378 0.706956    
## goodgrades_n                     -0.41005    0.11603  -3.534 0.000736 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7404 on 69 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.3049, Adjusted R-squared:  0.2243 
## F-statistic: 3.783 on 8 and 69 DF,  p-value: 0.0009937
## [1] "Binary intentions"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigint) ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + goodgrades_n, family = binomial, 
##     data = survey_ecigs, weights = weight1_main)
## 
## Deviance Residuals: 
##     Min       1Q   Median       3Q      Max  
## -1.7246  -0.7838  -0.4092   0.6936   2.3497  
## 
## Coefficients:
##                                  Estimate Std. Error z value Pr(>|z|)  
## (Intercept)                       3.79720    1.87858   2.021   0.0432 *
## as.factor(ecigselfdirectscan_n)2 -1.40097    0.66480  -2.107   0.0351 *
## as.factor(valscan_ecig_n)2       -0.93613    0.74453  -1.257   0.2086  
## as.factor(age2cat)18-25           0.17061    0.68029   0.251   0.8020  
## as.factor(sex)Female             -0.43303    0.69810  -0.620   0.5351  
## as.factor(race4cat_n)1            0.26554    0.86395   0.307   0.7586  
## as.factor(race4cat_n)2           -0.60892    0.90438  -0.673   0.5008  
## as.factor(race4cat_n)3            0.07976    1.27129   0.063   0.9500  
## goodgrades_n                     -0.70351    0.37196  -1.891   0.0586 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 74.531  on 77  degrees of freedom
## Residual deviance: 62.071  on 69  degrees of freedom
##   (1 observation deleted due to missingness)
## AIC: 78.446
## 
## Number of Fisher Scoring iterations: 4

(c) Intentions (T1) predict behavior (T2, controlling T1), controlling self-relevance of media

## [1] "Continuous intentions"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$qn15_rx) ~ as.factor(qn15_r) + 
##     qn22_n + ecigselfdirectscan_n + valscan_ecig_n + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + goodgrades_n, family = binomial, 
##     data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.20726  -0.25058  -0.00707   0.01899   2.16500  
## 
## Coefficients:
##                         Estimate Std. Error z value Pr(>|z|)  
## (Intercept)               7.6895     8.0417   0.956   0.3390  
## as.factor(qn15_r)Yes      4.4572     2.4949   1.786   0.0740 .
## qn22_n                    2.7754     1.4291   1.942   0.0521 .
## ecigselfdirectscan_n     -0.9135     1.2739  -0.717   0.4733  
## valscan_ecig_n           -7.9496     5.4019  -1.472   0.1411  
## as.factor(age2cat)18-25  -1.4691     1.4100  -1.042   0.2974  
## as.factor(sex)Female     -5.2184     2.4808  -2.104   0.0354 *
## as.factor(race4cat_n)1    2.4206     2.1887   1.106   0.2688  
## as.factor(race4cat_n)2   -1.4708     1.8448  -0.797   0.4253  
## as.factor(race4cat_n)3   -0.2115     2.7654  -0.076   0.9390  
## goodgrades_n             -0.2253     1.1906  -0.189   0.8499  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 79.137  on 77  degrees of freedom
## Residual deviance: 19.274  on 67  degrees of freedom
##   (1 observation deleted due to missingness)
## AIC: 39.238
## 
## Number of Fisher Scoring iterations: 9
## [1] "Binary intentions - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$qn15_rx) ~ as.factor(qn15_r) + 
##     as.factor(ecigint) + ecigselfdirectscan_n + valscan_ecig_n + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     goodgrades_n, family = binomial, data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.20975  -0.24633  -0.01071   0.04654   2.43057  
## 
## Coefficients:
##                                          Estimate Std. Error z value
## (Intercept)                               11.2003     7.9251   1.413
## as.factor(qn15_r)Yes                       5.5243     2.8095   1.966
## as.factor(ecigint)Some intention to vape   3.1500     1.7575   1.792
## ecigselfdirectscan_n                      -1.3178     1.2260  -1.075
## valscan_ecig_n                            -6.4182     3.7456  -1.714
## as.factor(age2cat)18-25                   -0.9715     1.2846  -0.756
## as.factor(sex)Female                      -5.4155     2.6940  -2.010
## as.factor(race4cat_n)1                     2.4846     2.2429   1.108
## as.factor(race4cat_n)2                    -2.0020     1.8394  -1.088
## as.factor(race4cat_n)3                    -0.3090     2.9216  -0.106
## goodgrades_n                              -0.6654     1.2526  -0.531
##                                          Pr(>|z|)  
## (Intercept)                                0.1576  
## as.factor(qn15_r)Yes                       0.0493 *
## as.factor(ecigint)Some intention to vape   0.0731 .
## ecigselfdirectscan_n                       0.2824  
## valscan_ecig_n                             0.0866 .
## as.factor(age2cat)18-25                    0.4495  
## as.factor(sex)Female                       0.0444 *
## as.factor(race4cat_n)1                     0.2680  
## as.factor(race4cat_n)2                     0.2764  
## as.factor(race4cat_n)3                     0.9158  
## goodgrades_n                               0.5953  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 79.137  on 77  degrees of freedom
## Residual deviance: 21.028  on 67  degrees of freedom
##   (1 observation deleted due to missingness)
## AIC: 42.611
## 
## Number of Fisher Scoring iterations: 8

Norms

Average of “how many of your close friends vape”; “how many people your age do you think vape”; “friends’ approval if you vaped”

Main effects

None - - self-relevance and valence of media at T1 do not predict norms at T2, controlling norms T1

## 
## Call:
## lm(formula = norms_ecigsx ~ norms_ecigs + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.82406 -0.23489 -0.04896  0.19887  0.88442 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.36731    0.63523   3.727
## norms_ecigs                                    0.41898    0.11591   3.615
## as.factor(ecigselfdirectscan_n)2              -0.01545    0.12424  -0.124
## as.factor(valscan_ecig_n)2                    -0.11887    0.18746  -0.634
## as.factor(ecigsmoker)Current e-cigarette user -0.02357    0.16542  -0.142
## as.factor(age2cat)18-25                       -0.25637    0.16435  -1.560
## as.factor(sex)Female                           0.12594    0.14052   0.896
## as.factor(race4cat_n)1                        -0.16745    0.19273  -0.869
## as.factor(race4cat_n)2                        -0.20987    0.18418  -1.139
## as.factor(race4cat_n)3                         0.20356    0.33424   0.609
## paredu_n                                      -0.06808    0.06239  -1.091
## goodgrades_n                                  -0.23151    0.07783  -2.975
## as.factor(hhuse_vap_n)1                        0.31541    0.20401   1.546
## as.factor(hhuse_vap_n)2                        0.25819    0.20844   1.239
##                                               Pr(>|t|)    
## (Intercept)                                   0.000472 ***
## norms_ecigs                                   0.000670 ***
## as.factor(ecigselfdirectscan_n)2              0.901487    
## as.factor(valscan_ecig_n)2                    0.528721    
## as.factor(ecigsmoker)Current e-cigarette user 0.887244    
## as.factor(age2cat)18-25                       0.124732    
## as.factor(sex)Female                          0.374165    
## as.factor(race4cat_n)1                        0.388851    
## as.factor(race4cat_n)2                        0.259626    
## as.factor(race4cat_n)3                        0.545119    
## paredu_n                                      0.280085    
## goodgrades_n                                  0.004408 ** 
## as.factor(hhuse_vap_n)1                       0.128037    
## as.factor(hhuse_vap_n)2                       0.220932    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4234 on 53 degrees of freedom
##   (12 observations deleted due to missingness)
## Multiple R-squared:  0.5345, Adjusted R-squared:  0.4203 
## F-statistic: 4.681 on 13 and 53 DF,  p-value: 2.66e-05

Mediation

(1) Social norms at T1 mediate the relationship between positive valence of media at T1 and changes in intentions at T2 (consistent main effect of self-relevance)

(a) Positively valenced media (T1) predicts higher intentions T2 (controlling T1)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.3613 -0.5499 -0.1588  0.1996  1.6347 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    4.64110    0.87149   5.325
## qn22_n                                         0.19603    0.23529   0.833
## as.factor(ecigselfdirectscan_n)2              -0.88575    0.21363  -4.146
## as.factor(valscan_ecig_n)2                    -0.63768    0.26465  -2.410
## as.factor(ecigsmoker)Current e-cigarette user  0.56559    0.52179   1.084
## as.factor(age2cat)18-25                       -0.07786    0.26586  -0.293
## as.factor(sex)Female                          -0.43939    0.23394  -1.878
## as.factor(race4cat_n)1                        -0.23871    0.32389  -0.737
## as.factor(race4cat_n)2                        -0.75318    0.32694  -2.304
## as.factor(race4cat_n)3                        -0.82458    0.51719  -1.594
## paredu_n                                       0.01443    0.10153   0.142
## goodgrades_n                                  -0.48217    0.13489  -3.575
## as.factor(hhuse_vap_n)1                       -0.18593    0.31127  -0.597
## as.factor(hhuse_vap_n)2                       -0.52985    0.33824  -1.566
##                                               Pr(>|t|)    
## (Intercept)                                   1.92e-06 ***
## qn22_n                                        0.408382    
## as.factor(ecigselfdirectscan_n)2              0.000118 ***
## as.factor(valscan_ecig_n)2                    0.019348 *  
## as.factor(ecigsmoker)Current e-cigarette user 0.283121    
## as.factor(age2cat)18-25                       0.770737    
## as.factor(sex)Female                          0.065656 .  
## as.factor(race4cat_n)1                        0.464239    
## as.factor(race4cat_n)2                        0.025043 *  
## as.factor(race4cat_n)3                        0.116589    
## paredu_n                                      0.887527    
## goodgrades_n                                  0.000739 ***
## as.factor(hhuse_vap_n)1                       0.552745    
## as.factor(hhuse_vap_n)2                       0.122971    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7122 on 55 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.6479, Adjusted R-squared:  0.5646 
## F-statistic: 7.783 on 13 and 55 DF,  p-value: 1.844e-08
## [1] "Binary intention - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ as.factor(ecigint) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(ecigsmoker) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n, family = binomial, 
##     data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.63685  -0.43928  -0.16144   0.00009   2.21660  
## 
## Coefficients:
##                                                 Estimate Std. Error
## (Intercept)                                    2.082e+00  3.320e+00
## as.factor(ecigint)Some intention to vape       1.574e+00  1.381e+00
## as.factor(ecigselfdirectscan_n)2              -1.710e+00  9.473e-01
## as.factor(valscan_ecig_n)2                    -2.297e+00  1.305e+00
## as.factor(ecigsmoker)Current e-cigarette user  1.859e+01  2.672e+03
## as.factor(age2cat)18-25                        5.052e-01  9.700e-01
## as.factor(sex)Female                          -2.419e-03  9.912e-01
## as.factor(race4cat_n)1                         6.620e-01  1.551e+00
## as.factor(race4cat_n)2                        -1.355e+00  1.473e+00
## as.factor(race4cat_n)3                        -4.934e-01  1.843e+00
## paredu_n                                       9.292e-03  4.302e-01
## goodgrades_n                                  -3.600e-01  6.893e-01
##                                               z value Pr(>|z|)  
## (Intercept)                                     0.627   0.5306  
## as.factor(ecigint)Some intention to vape        1.140   0.2544  
## as.factor(ecigselfdirectscan_n)2               -1.805   0.0710 .
## as.factor(valscan_ecig_n)2                     -1.760   0.0784 .
## as.factor(ecigsmoker)Current e-cigarette user   0.007   0.9944  
## as.factor(age2cat)18-25                         0.521   0.6025  
## as.factor(sex)Female                           -0.002   0.9981  
## as.factor(race4cat_n)1                          0.427   0.6695  
## as.factor(race4cat_n)2                         -0.920   0.3578  
## as.factor(race4cat_n)3                         -0.268   0.7889  
## paredu_n                                        0.022   0.9828  
## goodgrades_n                                   -0.522   0.6015  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 71.35  on 68  degrees of freedom
## Residual deviance: 34.19  on 57  degrees of freedom
##   (10 observations deleted due to missingness)
## AIC: 58.112
## 
## Number of Fisher Scoring iterations: 18

(b) Positively valenced media (T1) predicts positive social norms (T1)

## 
## Call:
## lm(formula = survey_ecigs$norms_ecigs ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight1_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.71969 -0.33660 -0.06117  0.17452  1.45153 
## 
## Coefficients:
##                                                Estimate Std. Error t value
## (Intercept)                                    2.867204   0.604865   4.740
## as.factor(ecigselfdirectscan_n)2              -0.142859   0.161617  -0.884
## as.factor(valscan_ecig_n)2                    -0.590881   0.184205  -3.208
## as.factor(ecigsmoker)Current e-cigarette user  0.465214   0.195259   2.383
## as.factor(age2cat)18-25                        0.037925   0.215745   0.176
## as.factor(sex)Female                          -0.005895   0.169869  -0.035
## as.factor(race4cat_n)1                         0.125117   0.227018   0.551
## as.factor(race4cat_n)2                        -0.218667   0.214650  -1.019
## as.factor(race4cat_n)3                        -0.061543   0.335664  -0.183
## paredu_n                                      -0.088366   0.078290  -1.129
## goodgrades_n                                  -0.154670   0.095130  -1.626
## as.factor(hhuse_vap_n)1                        0.773417   0.235529   3.284
## as.factor(hhuse_vap_n)2                       -0.387233   0.272028  -1.424
##                                               Pr(>|t|)    
## (Intercept)                                    1.6e-05 ***
## as.factor(ecigselfdirectscan_n)2               0.38065    
## as.factor(valscan_ecig_n)2                     0.00225 ** 
## as.factor(ecigsmoker)Current e-cigarette user  0.02074 *  
## as.factor(age2cat)18-25                        0.86112    
## as.factor(sex)Female                           0.97244    
## as.factor(race4cat_n)1                         0.58382    
## as.factor(race4cat_n)2                         0.31288    
## as.factor(race4cat_n)3                         0.85521    
## paredu_n                                       0.26402    
## goodgrades_n                                   0.10980    
## as.factor(hhuse_vap_n)1                        0.00180 ** 
## as.factor(hhuse_vap_n)2                        0.16034    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4997 on 54 degrees of freedom
##   (12 observations deleted due to missingness)
## Multiple R-squared:  0.546,  Adjusted R-squared:  0.4451 
## F-statistic: 5.411 on 12 and 54 DF,  p-value: 6.285e-06

(c) Social norms (T1) predict intentions (T2, controlling T1), controlling for media valence (T1)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + norms_ecigs + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.72215 -0.41510 -0.07418  0.30759  1.31434 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.81117    1.02221   2.750
## qn22_n                                        -0.01789    0.23156  -0.077
## norms_ecigs                                    0.59083    0.19161   3.084
## as.factor(ecigselfdirectscan_n)2              -0.87810    0.20051  -4.379
## as.factor(valscan_ecig_n)2                    -0.19627    0.29851  -0.657
## as.factor(ecigsmoker)Current e-cigarette user  0.81182    0.49421   1.643
## as.factor(age2cat)18-25                        0.06521    0.26735   0.244
## as.factor(sex)Female                          -0.44183    0.22167  -1.993
## as.factor(race4cat_n)1                        -0.08813    0.30641  -0.288
## as.factor(race4cat_n)2                        -0.62110    0.30849  -2.013
## as.factor(race4cat_n)3                        -1.01694    0.52913  -1.922
## paredu_n                                       0.16034    0.10705   1.498
## goodgrades_n                                  -0.41966    0.12981  -3.233
## as.factor(hhuse_vap_n)1                       -0.59130    0.32110  -1.841
## as.factor(hhuse_vap_n)2                       -0.28206    0.32840  -0.859
##                                               Pr(>|t|)    
## (Intercept)                                    0.00818 ** 
## qn22_n                                         0.93872    
## norms_ecigs                                    0.00327 ** 
## as.factor(ecigselfdirectscan_n)2              5.78e-05 ***
## as.factor(valscan_ecig_n)2                     0.51377    
## as.factor(ecigsmoker)Current e-cigarette user  0.10649    
## as.factor(age2cat)18-25                        0.80825    
## as.factor(sex)Female                           0.05150 .  
## as.factor(race4cat_n)1                         0.77479    
## as.factor(race4cat_n)2                         0.04926 *  
## as.factor(race4cat_n)3                         0.06011 .  
## paredu_n                                       0.14025    
## goodgrades_n                                   0.00213 ** 
## as.factor(hhuse_vap_n)1                        0.07126 .  
## as.factor(hhuse_vap_n)2                        0.39434    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.6659 on 52 degrees of freedom
##   (12 observations deleted due to missingness)
## Multiple R-squared:  0.704,  Adjusted R-squared:  0.6243 
## F-statistic: 8.833 on 14 and 52 DF,  p-value: 2.18e-09
## [1] "Binary intention - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ as.factor(ecigint) + 
##     norms_ecigs + as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n, family = binomial, data = survey_ecigs, 
##     weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.91423  -0.28646  -0.06946   0.28751   1.56407  
## 
## Coefficients:
##                                          Estimate Std. Error z value
## (Intercept)                              -4.83258    4.88546  -0.989
## as.factor(ecigint)Some intention to vape  2.46693    1.15316   2.139
## norms_ecigs                               1.80820    0.98580   1.834
## as.factor(ecigselfdirectscan_n)2         -1.13913    1.00218  -1.137
## as.factor(valscan_ecig_n)2               -1.48732    1.49503  -0.995
## as.factor(age2cat)18-25                   1.72797    1.22617   1.409
## as.factor(sex)Female                     -0.04708    1.08439  -0.043
## as.factor(race4cat_n)1                    1.01604    1.74779   0.581
## as.factor(race4cat_n)2                   -0.86062    1.24240  -0.693
## as.factor(race4cat_n)3                   -1.05396    2.32283  -0.454
## paredu_n                                 -0.02197    0.45038  -0.049
## goodgrades_n                              0.19067    0.63906   0.298
##                                          Pr(>|z|)  
## (Intercept)                                0.3226  
## as.factor(ecigint)Some intention to vape   0.0324 *
## norms_ecigs                                0.0666 .
## as.factor(ecigselfdirectscan_n)2           0.2557  
## as.factor(valscan_ecig_n)2                 0.3198  
## as.factor(age2cat)18-25                    0.1588  
## as.factor(sex)Female                       0.9654  
## as.factor(race4cat_n)1                     0.5610  
## as.factor(race4cat_n)2                     0.4885  
## as.factor(race4cat_n)3                     0.6500  
## paredu_n                                   0.9611  
## goodgrades_n                               0.7654  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 69.62  on 66  degrees of freedom
## Residual deviance: 32.57  on 55  degrees of freedom
##   (12 observations deleted due to missingness)
## AIC: 60.101
## 
## Number of Fisher Scoring iterations: 6

Beliefs

Main effects

Exposure to positive (significant) and self-relevant (marginal) medias at T1 predicts increased belief that “vaping is less harmful to me than tobacco cigs” at T2, controlling beliefs T1

## 
## Call:
## lm(formula = qn45_nx ~ qn45_n + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.89673 -0.21743 -0.01988  0.22620  1.47439 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.18937    0.82477   2.655
## qn45_n                                         0.49838    0.14005   3.559
## as.factor(ecigselfdirectscan_n)2              -0.33521    0.17968  -1.866
## as.factor(valscan_ecig_n)2                    -0.60166    0.23453  -2.565
## as.factor(ecigsmoker)Current e-cigarette user -0.28134    0.23363  -1.204
## as.factor(age2cat)18-25                       -0.23319    0.26803  -0.870
## as.factor(sex)Female                          -0.43358    0.21219  -2.043
## as.factor(race4cat_n)1                         0.05083    0.27333   0.186
## as.factor(race4cat_n)2                        -0.03671    0.28913  -0.127
## as.factor(race4cat_n)3                        -0.84983    0.42531  -1.998
## paredu_n                                      -0.01132    0.08294  -0.136
## goodgrades_n                                  -0.04659    0.10595  -0.440
## as.factor(hhuse_vap_n)1                       -0.02203    0.26376  -0.084
## as.factor(hhuse_vap_n)2                       -0.03292    0.31560  -0.104
##                                               Pr(>|t|)    
## (Intercept)                                   0.010514 *  
## qn45_n                                        0.000806 ***
## as.factor(ecigselfdirectscan_n)2              0.067738 .  
## as.factor(valscan_ecig_n)2                    0.013229 *  
## as.factor(ecigsmoker)Current e-cigarette user 0.233961    
## as.factor(age2cat)18-25                       0.388291    
## as.factor(sex)Female                          0.046096 *  
## as.factor(race4cat_n)1                        0.853200    
## as.factor(race4cat_n)2                        0.899461    
## as.factor(race4cat_n)3                        0.050941 .  
## paredu_n                                      0.891998    
## goodgrades_n                                  0.661961    
## as.factor(hhuse_vap_n)1                       0.933755    
## as.factor(hhuse_vap_n)2                       0.917322    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.5842 on 52 degrees of freedom
##   (13 observations deleted due to missingness)
## Multiple R-squared:  0.4335, Adjusted R-squared:  0.2919 
## F-statistic: 3.061 on 13 and 52 DF,  p-value: 0.00205

Mediations

Risk belief - “Will become addicted to nicotine if I use e-cigs” - mediates relationship between valence of media and intentions

(a) Postively valenced media exposure (T1) predicts increased intentions (T2, controlling T1)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.3613 -0.5499 -0.1588  0.1996  1.6347 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    4.64110    0.87149   5.325
## qn22_n                                         0.19603    0.23529   0.833
## as.factor(ecigselfdirectscan_n)2              -0.88575    0.21363  -4.146
## as.factor(valscan_ecig_n)2                    -0.63768    0.26465  -2.410
## as.factor(ecigsmoker)Current e-cigarette user  0.56559    0.52179   1.084
## as.factor(age2cat)18-25                       -0.07786    0.26586  -0.293
## as.factor(sex)Female                          -0.43939    0.23394  -1.878
## as.factor(race4cat_n)1                        -0.23871    0.32389  -0.737
## as.factor(race4cat_n)2                        -0.75318    0.32694  -2.304
## as.factor(race4cat_n)3                        -0.82458    0.51719  -1.594
## paredu_n                                       0.01443    0.10153   0.142
## goodgrades_n                                  -0.48217    0.13489  -3.575
## as.factor(hhuse_vap_n)1                       -0.18593    0.31127  -0.597
## as.factor(hhuse_vap_n)2                       -0.52985    0.33824  -1.566
##                                               Pr(>|t|)    
## (Intercept)                                   1.92e-06 ***
## qn22_n                                        0.408382    
## as.factor(ecigselfdirectscan_n)2              0.000118 ***
## as.factor(valscan_ecig_n)2                    0.019348 *  
## as.factor(ecigsmoker)Current e-cigarette user 0.283121    
## as.factor(age2cat)18-25                       0.770737    
## as.factor(sex)Female                          0.065656 .  
## as.factor(race4cat_n)1                        0.464239    
## as.factor(race4cat_n)2                        0.025043 *  
## as.factor(race4cat_n)3                        0.116589    
## paredu_n                                      0.887527    
## goodgrades_n                                  0.000739 ***
## as.factor(hhuse_vap_n)1                       0.552745    
## as.factor(hhuse_vap_n)2                       0.122971    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7122 on 55 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.6479, Adjusted R-squared:  0.5646 
## F-statistic: 7.783 on 13 and 55 DF,  p-value: 1.844e-08
## [1] "Binary intention - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ ecigint + as.factor(ecigsmoker) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n, family = binomial, data = survey_ecigs, 
##     weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.63685  -0.43928  -0.16144   0.00009   2.21660  
## 
## Coefficients:
##                                                 Estimate Std. Error
## (Intercept)                                    2.082e+00  3.320e+00
## ecigintSome intention to vape                  1.574e+00  1.381e+00
## as.factor(ecigsmoker)Current e-cigarette user  1.859e+01  2.672e+03
## as.factor(ecigselfdirectscan_n)2              -1.710e+00  9.473e-01
## as.factor(valscan_ecig_n)2                    -2.297e+00  1.305e+00
## as.factor(age2cat)18-25                        5.052e-01  9.700e-01
## as.factor(sex)Female                          -2.419e-03  9.912e-01
## as.factor(race4cat_n)1                         6.620e-01  1.551e+00
## as.factor(race4cat_n)2                        -1.355e+00  1.473e+00
## as.factor(race4cat_n)3                        -4.934e-01  1.843e+00
## paredu_n                                       9.292e-03  4.302e-01
## goodgrades_n                                  -3.600e-01  6.893e-01
##                                               z value Pr(>|z|)  
## (Intercept)                                     0.627   0.5306  
## ecigintSome intention to vape                   1.140   0.2544  
## as.factor(ecigsmoker)Current e-cigarette user   0.007   0.9944  
## as.factor(ecigselfdirectscan_n)2               -1.805   0.0710 .
## as.factor(valscan_ecig_n)2                     -1.760   0.0784 .
## as.factor(age2cat)18-25                         0.521   0.6025  
## as.factor(sex)Female                           -0.002   0.9981  
## as.factor(race4cat_n)1                          0.427   0.6695  
## as.factor(race4cat_n)2                         -0.920   0.3578  
## as.factor(race4cat_n)3                         -0.268   0.7889  
## paredu_n                                        0.022   0.9828  
## goodgrades_n                                   -0.522   0.6015  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 71.35  on 68  degrees of freedom
## Residual deviance: 34.19  on 57  degrees of freedom
##   (10 observations deleted due to missingness)
## AIC: 58.112
## 
## Number of Fisher Scoring iterations: 18

(b) Negatively valence media exposure (T1) predicts higher risk beliefs (T1)

## 
## Call:
## lm(formula = survey_ecigs$qn46_n ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight1_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.95368 -0.35953 -0.00948  0.24683  1.27091 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.68417    0.68791   3.902
## as.factor(ecigselfdirectscan_n)2              -0.31689    0.18765  -1.689
## as.factor(valscan_ecig_n)2                     0.55122    0.21339   2.583
## as.factor(ecigsmoker)Current e-cigarette user  0.30942    0.22696   1.363
## as.factor(age2cat)18-25                       -0.32798    0.24713  -1.327
## as.factor(sex)Female                           0.04177    0.19710   0.212
## as.factor(race4cat_n)1                        -0.17812    0.26378  -0.675
## as.factor(race4cat_n)2                         0.21858    0.24984   0.875
## as.factor(race4cat_n)3                        -0.38765    0.37690  -1.029
## paredu_n                                       0.17211    0.08904   1.933
## goodgrades_n                                  -0.05746    0.11041  -0.520
## as.factor(hhuse_vap_n)1                       -0.98191    0.27400  -3.584
## as.factor(hhuse_vap_n)2                        0.34504    0.31657   1.090
##                                               Pr(>|t|)    
## (Intercept)                                   0.000262 ***
## as.factor(ecigselfdirectscan_n)2              0.096938 .  
## as.factor(valscan_ecig_n)2                    0.012480 *  
## as.factor(ecigsmoker)Current e-cigarette user 0.178335    
## as.factor(age2cat)18-25                       0.189947    
## as.factor(sex)Female                          0.832933    
## as.factor(race4cat_n)1                        0.502352    
## as.factor(race4cat_n)2                        0.385452    
## as.factor(race4cat_n)3                        0.308206    
## paredu_n                                      0.058408 .  
## goodgrades_n                                  0.604867    
## as.factor(hhuse_vap_n)1                       0.000719 ***
## as.factor(hhuse_vap_n)2                       0.280491    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.5816 on 55 degrees of freedom
##   (11 observations deleted due to missingness)
## Multiple R-squared:  0.337,  Adjusted R-squared:  0.1923 
## F-statistic:  2.33 on 12 and 55 DF,  p-value: 0.01712

(c) Risk beliefs (T1) predict intentions (T2, controlling T1), controlling for valence of media (T1 - marginal)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + qn46_n + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.3072 -0.5346 -0.1584  0.3466  1.7070 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    5.62761    0.95018   5.923
## qn22_n                                         0.20509    0.22893   0.896
## qn46_n                                        -0.34151    0.15793  -2.162
## as.factor(ecigselfdirectscan_n)2              -1.00632    0.21418  -4.699
## as.factor(valscan_ecig_n)2                    -0.53058    0.27520  -1.928
## as.factor(ecigsmoker)Current e-cigarette user  0.65644    0.50908   1.289
## as.factor(age2cat)18-25                       -0.23386    0.27211  -0.859
## as.factor(sex)Female                          -0.42264    0.23068  -1.832
## as.factor(race4cat_n)1                        -0.26286    0.31521  -0.834
## as.factor(race4cat_n)2                        -0.65262    0.32074  -2.035
## as.factor(race4cat_n)3                        -0.87886    0.50433  -1.743
## paredu_n                                       0.06095    0.10218   0.597
## goodgrades_n                                  -0.50995    0.13268  -3.844
## as.factor(hhuse_vap_n)1                       -0.53915    0.34481  -1.564
## as.factor(hhuse_vap_n)2                       -0.41992    0.33515  -1.253
##                                               Pr(>|t|)    
## (Intercept)                                    2.4e-07 ***
## qn22_n                                        0.374374    
## qn46_n                                        0.035117 *  
## as.factor(ecigselfdirectscan_n)2               1.9e-05 ***
## as.factor(valscan_ecig_n)2                    0.059225 .  
## as.factor(ecigsmoker)Current e-cigarette user 0.202834    
## as.factor(age2cat)18-25                       0.393974    
## as.factor(sex)Female                          0.072545 .  
## as.factor(race4cat_n)1                        0.408067    
## as.factor(race4cat_n)2                        0.046891 *  
## as.factor(race4cat_n)3                        0.087195 .  
## paredu_n                                      0.553363    
## goodgrades_n                                  0.000327 ***
## as.factor(hhuse_vap_n)1                       0.123864    
## as.factor(hhuse_vap_n)2                       0.215727    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.6921 on 53 degrees of freedom
##   (11 observations deleted due to missingness)
## Multiple R-squared:  0.675,  Adjusted R-squared:  0.5891 
## F-statistic: 7.861 on 14 and 53 DF,  p-value: 1.231e-08
## [1] "Binary intention - all effects marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ as.factor(ecigint) + 
##     qn46_n + as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(ecigsmoker) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n, family = binomial, 
##     data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -2.25854  -0.37799  -0.10247   0.00006   1.78545  
## 
## Coefficients:
##                                                 Estimate Std. Error
## (Intercept)                                      6.34265    4.56625
## as.factor(ecigint)Some intention to vape         1.51194    1.78413
## qn46_n                                          -1.75629    0.98985
## as.factor(ecigselfdirectscan_n)2                -3.14560    1.42442
## as.factor(valscan_ecig_n)2                      -1.68497    1.45564
## as.factor(ecigsmoker)Current e-cigarette user   20.11761 2386.56093
## as.factor(age2cat)18-25                          0.39555    1.08344
## as.factor(sex)Female                             0.17976    1.13947
## as.factor(race4cat_n)1                           0.63972    1.72597
## as.factor(race4cat_n)2                          -0.94173    1.57805
## as.factor(race4cat_n)3                          -0.04411    2.36033
## paredu_n                                         0.20674    0.56054
## goodgrades_n                                    -0.25799    0.78693
##                                               z value Pr(>|z|)  
## (Intercept)                                     1.389   0.1648  
## as.factor(ecigint)Some intention to vape        0.847   0.3968  
## qn46_n                                         -1.774   0.0760 .
## as.factor(ecigselfdirectscan_n)2               -2.208   0.0272 *
## as.factor(valscan_ecig_n)2                     -1.158   0.2470  
## as.factor(ecigsmoker)Current e-cigarette user   0.008   0.9933  
## as.factor(age2cat)18-25                         0.365   0.7150  
## as.factor(sex)Female                            0.158   0.8746  
## as.factor(race4cat_n)1                          0.371   0.7109  
## as.factor(race4cat_n)2                         -0.597   0.5507  
## as.factor(race4cat_n)3                         -0.019   0.9851  
## paredu_n                                        0.369   0.7123  
## goodgrades_n                                   -0.328   0.7430  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 70.000  on 67  degrees of freedom
## Residual deviance: 29.527  on 55  degrees of freedom
##   (11 observations deleted due to missingness)
## AIC: 56.868
## 
## Number of Fisher Scoring iterations: 18

Belief “Can quit tobacco cigs using e-cigs” (T1) mediates effect of positive media exposure (T1) on intentions (T2, controlling T1)

(a) Exposure to positive media (T1) predicts intentions (T2, controlling T1)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + as.factor(ecigsmoker) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n + as.factor(hhuse_vap_n), data = survey_ecigs, 
##     weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.3613 -0.5499 -0.1588  0.1996  1.6347 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    4.64110    0.87149   5.325
## qn22_n                                         0.19603    0.23529   0.833
## as.factor(ecigsmoker)Current e-cigarette user  0.56559    0.52179   1.084
## as.factor(ecigselfdirectscan_n)2              -0.88575    0.21363  -4.146
## as.factor(valscan_ecig_n)2                    -0.63768    0.26465  -2.410
## as.factor(age2cat)18-25                       -0.07786    0.26586  -0.293
## as.factor(sex)Female                          -0.43939    0.23394  -1.878
## as.factor(race4cat_n)1                        -0.23871    0.32389  -0.737
## as.factor(race4cat_n)2                        -0.75318    0.32694  -2.304
## as.factor(race4cat_n)3                        -0.82458    0.51719  -1.594
## paredu_n                                       0.01443    0.10153   0.142
## goodgrades_n                                  -0.48217    0.13489  -3.575
## as.factor(hhuse_vap_n)1                       -0.18593    0.31127  -0.597
## as.factor(hhuse_vap_n)2                       -0.52985    0.33824  -1.566
##                                               Pr(>|t|)    
## (Intercept)                                   1.92e-06 ***
## qn22_n                                        0.408382    
## as.factor(ecigsmoker)Current e-cigarette user 0.283121    
## as.factor(ecigselfdirectscan_n)2              0.000118 ***
## as.factor(valscan_ecig_n)2                    0.019348 *  
## as.factor(age2cat)18-25                       0.770737    
## as.factor(sex)Female                          0.065656 .  
## as.factor(race4cat_n)1                        0.464239    
## as.factor(race4cat_n)2                        0.025043 *  
## as.factor(race4cat_n)3                        0.116589    
## paredu_n                                      0.887527    
## goodgrades_n                                  0.000739 ***
## as.factor(hhuse_vap_n)1                       0.552745    
## as.factor(hhuse_vap_n)2                       0.122971    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.7122 on 55 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.6479, Adjusted R-squared:  0.5646 
## F-statistic: 7.783 on 13 and 55 DF,  p-value: 1.844e-08
## [1] "Binary intention - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ ecigint + as.factor(ecigsmoker) + 
##     as.factor(ecigselfdirectscan_n) + as.factor(valscan_ecig_n) + 
##     as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) + 
##     paredu_n + goodgrades_n, family = binomial, data = survey_ecigs, 
##     weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.63685  -0.43928  -0.16144   0.00009   2.21660  
## 
## Coefficients:
##                                                 Estimate Std. Error
## (Intercept)                                    2.082e+00  3.320e+00
## ecigintSome intention to vape                  1.574e+00  1.381e+00
## as.factor(ecigsmoker)Current e-cigarette user  1.859e+01  2.672e+03
## as.factor(ecigselfdirectscan_n)2              -1.710e+00  9.473e-01
## as.factor(valscan_ecig_n)2                    -2.297e+00  1.305e+00
## as.factor(age2cat)18-25                        5.052e-01  9.700e-01
## as.factor(sex)Female                          -2.419e-03  9.912e-01
## as.factor(race4cat_n)1                         6.620e-01  1.551e+00
## as.factor(race4cat_n)2                        -1.355e+00  1.473e+00
## as.factor(race4cat_n)3                        -4.934e-01  1.843e+00
## paredu_n                                       9.292e-03  4.302e-01
## goodgrades_n                                  -3.600e-01  6.893e-01
##                                               z value Pr(>|z|)  
## (Intercept)                                     0.627   0.5306  
## ecigintSome intention to vape                   1.140   0.2544  
## as.factor(ecigsmoker)Current e-cigarette user   0.007   0.9944  
## as.factor(ecigselfdirectscan_n)2               -1.805   0.0710 .
## as.factor(valscan_ecig_n)2                     -1.760   0.0784 .
## as.factor(age2cat)18-25                         0.521   0.6025  
## as.factor(sex)Female                           -0.002   0.9981  
## as.factor(race4cat_n)1                          0.427   0.6695  
## as.factor(race4cat_n)2                         -0.920   0.3578  
## as.factor(race4cat_n)3                         -0.268   0.7889  
## paredu_n                                        0.022   0.9828  
## goodgrades_n                                   -0.522   0.6015  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 71.35  on 68  degrees of freedom
## Residual deviance: 34.19  on 57  degrees of freedom
##   (10 observations deleted due to missingness)
## AIC: 58.112
## 
## Number of Fisher Scoring iterations: 18

(b) Exposure to positive media (T1) predicts beliefs (T1) [“can quit tobacco using ecigs”]

## 
## Call:
## lm(formula = survey_ecigs$qn47_n ~ as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight1_main)
## 
## Weighted Residuals:
##      Min       1Q   Median       3Q      Max 
## -1.56031 -0.35625  0.01974  0.29457  1.23881 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    3.19585    0.64372   4.965
## as.factor(ecigselfdirectscan_n)2               0.04397    0.18379   0.239
## as.factor(valscan_ecig_n)2                    -0.45167    0.19905  -2.269
## as.factor(ecigsmoker)Current e-cigarette user  0.15089    0.22393   0.674
## as.factor(age2cat)18-25                        0.30774    0.21785   1.413
## as.factor(sex)Female                          -0.12457    0.18754  -0.664
## as.factor(race4cat_n)1                        -0.03886    0.25946  -0.150
## as.factor(race4cat_n)2                        -0.54226    0.24615  -2.203
## as.factor(race4cat_n)3                        -0.86853    0.37099  -2.341
## paredu_n                                       0.06794    0.08730   0.778
## goodgrades_n                                  -0.12560    0.10591  -1.186
## as.factor(hhuse_vap_n)1                       -0.06788    0.27081  -0.251
## as.factor(hhuse_vap_n)2                       -0.24464    0.30113  -0.812
##                                               Pr(>|t|)    
## (Intercept)                                    6.8e-06 ***
## as.factor(ecigselfdirectscan_n)2                0.8118    
## as.factor(valscan_ecig_n)2                      0.0271 *  
## as.factor(ecigsmoker)Current e-cigarette user   0.5032    
## as.factor(age2cat)18-25                         0.1633    
## as.factor(sex)Female                            0.5093    
## as.factor(race4cat_n)1                          0.8815    
## as.factor(race4cat_n)2                          0.0317 *  
## as.factor(race4cat_n)3                          0.0228 *  
## paredu_n                                        0.4397    
## goodgrades_n                                    0.2406    
## as.factor(hhuse_vap_n)1                         0.8030    
## as.factor(hhuse_vap_n)2                         0.4200    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.575 on 56 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.2932, Adjusted R-squared:  0.1417 
## F-statistic: 1.936 on 12 and 56 DF,  p-value: 0.0492

(c) Beliefs (T1) predict intentions (T2, controlling T1), controlling for valence of media (T1)

## [1] "Continuous intention"
## 
## Call:
## lm(formula = survey_ecigs$qn22_nx ~ qn22_n + qn47_n + as.factor(ecigselfdirectscan_n) + 
##     as.factor(valscan_ecig_n) + as.factor(ecigsmoker) + as.factor(age2cat) + 
##     as.factor(sex) + as.factor(race4cat_n) + paredu_n + goodgrades_n + 
##     as.factor(hhuse_vap_n), data = survey_ecigs, weights = weight2_main)
## 
## Weighted Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.0800 -0.4468 -0.1883  0.1885  1.6021 
## 
## Coefficients:
##                                               Estimate Std. Error t value
## (Intercept)                                    2.82453    0.94807   2.979
## qn22_n                                         0.13623    0.21501   0.634
## qn47_n                                         0.53436    0.15246   3.505
## as.factor(ecigselfdirectscan_n)2              -0.84339    0.19497  -4.326
## as.factor(valscan_ecig_n)2                    -0.32826    0.25673  -1.279
## as.factor(ecigsmoker)Current e-cigarette user  0.55756    0.47531   1.173
## as.factor(age2cat)18-25                       -0.20810    0.24501  -0.849
## as.factor(sex)Female                          -0.35185    0.21456  -1.640
## as.factor(race4cat_n)1                        -0.11636    0.29709  -0.392
## as.factor(race4cat_n)2                        -0.50659    0.30601  -1.655
## as.factor(race4cat_n)3                        -0.29534    0.49472  -0.597
## paredu_n                                      -0.02388    0.09313  -0.256
## goodgrades_n                                  -0.38939    0.12569  -3.098
## as.factor(hhuse_vap_n)1                       -0.13442    0.28392  -0.473
## as.factor(hhuse_vap_n)2                       -0.40461    0.31018  -1.304
##                                               Pr(>|t|)    
## (Intercept)                                   0.004323 ** 
## qn22_n                                        0.529022    
## qn47_n                                        0.000927 ***
## as.factor(ecigselfdirectscan_n)2               6.6e-05 ***
## as.factor(valscan_ecig_n)2                    0.206506    
## as.factor(ecigsmoker)Current e-cigarette user 0.245926    
## as.factor(age2cat)18-25                       0.399441    
## as.factor(sex)Female                          0.106842    
## as.factor(race4cat_n)1                        0.696847    
## as.factor(race4cat_n)2                        0.103636    
## as.factor(race4cat_n)3                        0.553011    
## paredu_n                                      0.798566    
## goodgrades_n                                  0.003089 ** 
## as.factor(hhuse_vap_n)1                       0.637809    
## as.factor(hhuse_vap_n)2                       0.197617    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.6487 on 54 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.7131, Adjusted R-squared:  0.6387 
## F-statistic: 9.588 on 14 and 54 DF,  p-value: 3.63e-10
## [1] "Binary intention - marginal"
## 
## Call:
## glm(formula = as.factor(survey_ecigs$ecigintx) ~ as.factor(ecigint) + 
##     qn47_n + as.factor(valscan_ecig_n) + as.factor(ecigselfdirectscan_n) + 
##     as.factor(ecigsmoker) + as.factor(age2cat) + as.factor(sex) + 
##     as.factor(race4cat_n) + paredu_n + goodgrades_n, family = binomial, 
##     data = survey_ecigs, weights = weight2_main)
## 
## Deviance Residuals: 
##      Min        1Q    Median        3Q       Max  
## -1.64314  -0.43627  -0.06509   0.00007   2.10420  
## 
## Coefficients:
##                                                Estimate Std. Error z value
## (Intercept)                                     -4.8258     5.8184  -0.829
## as.factor(ecigint)Some intention to vape         2.4358     1.6659   1.462
## qn47_n                                           1.8090     1.0992   1.646
## as.factor(valscan_ecig_n)2                      -2.1444     1.6011  -1.339
## as.factor(ecigselfdirectscan_n)2                -1.6713     1.0488  -1.593
## as.factor(ecigsmoker)Current e-cigarette user   18.1155  2516.7576   0.007
## as.factor(age2cat)18-25                          0.4931     1.0243   0.481
## as.factor(sex)Female                            -0.1832     1.0665  -0.172
## as.factor(race4cat_n)1                           1.0067     1.7020   0.592
## as.factor(race4cat_n)2                          -0.7994     1.5589  -0.513
## as.factor(race4cat_n)3                           0.8702     2.0841   0.418
## paredu_n                                        -0.3278     0.5522  -0.594
## goodgrades_n                                     0.2719     0.9850   0.276
##                                               Pr(>|z|)  
## (Intercept)                                     0.4069  
## as.factor(ecigint)Some intention to vape        0.1437  
## qn47_n                                          0.0998 .
## as.factor(valscan_ecig_n)2                      0.1805  
## as.factor(ecigselfdirectscan_n)2                0.1111  
## as.factor(ecigsmoker)Current e-cigarette user   0.9943  
## as.factor(age2cat)18-25                         0.6302  
## as.factor(sex)Female                            0.8636  
## as.factor(race4cat_n)1                          0.5542  
## as.factor(race4cat_n)2                          0.6081  
## as.factor(race4cat_n)3                          0.6763  
## paredu_n                                        0.5528  
## goodgrades_n                                    0.7825  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 71.350  on 68  degrees of freedom
## Residual deviance: 30.261  on 56  degrees of freedom
##   (10 observations deleted due to missingness)
## AIC: 52.396
## 
## Number of Fisher Scoring iterations: 18