0 = No scanning
1 = Positive
2 = Mixed
3 = Negative
(1). Cross-sectional: Negative advertising reduces odds of vaping
(2). Longitudinal: Mixed valence advertising significantly reduces odds of smoking (controlling T1 vaping); negative advertising marginally reduces odds of smoking (don’t know what’s driving the mixed category, maybe the larger N?)
(3). Cross-sectional: Positive and mixed valence ads increase intentions to vape; significant effects only in under 18s (marginal interaction w/ age in positive category)
(4). Longitudinal: Positive advertising significantly increases intentions to vape (controlling T1 intentions)
(5). Cross-sectional: Positive advertising significantly increases the belief that vaping is less harmful; negative advertising marginally reduces the belief that vaping is less harmful.
(6). Longitudinal: No effects
(7). Cross-sectional: Negative advertising significantly increases the belief that I will become addicted to nicotine (under 18, positive ads significantly reduced this belief; in over 18s, negative ads significantly increased this belief)
(8). Longitudinal: Positive advertising significantly reduces the belief that I will become addicted to nicotine (significant in under 18s, but not over 18s)
(9). Cross-sectional: Negative advertising significantly reduces the belief that can quit tobacco cigs using cigs
(10). Longitudinal: Mixed advertising significantly reduces the belief that can quit tobacco cigs using cigs (no effect at all in positive or negative???)
(11). Cross-sectional: All advertising reduces the belief that breathing vapor from others ecigs is harmful (significant in positive and negative, marginal in mixed)
(12). Longitudinal: All advertising reduces the belief that breathing vapor from others ecigs is harmful (significant in positive and negative, marginal in mixed. In over 18s, negative ads marginally reduces this belief and nothing else is significant; in under 18s, positive and mixed advertising significantly reduce this belief and negative is just trending)
(15). Cross-sectional: No effects overall. Under 18, positive ads marginally increase reported number of people your age who vape; over 18, no effects
(16). Longitudinal: [seems backwards!] Negative advertising significantly increases reported number of people your age who vape (in under 18s, this is significant, and there are marginal effects of positive and mix; in over 18s, mixed advertising significantly reduces perceived people who vape, positive advertising marginally reduces perceived people who vape, and negative advertising marginally increases perceived people who vape)
## [1] "Cross-sectional N=6629"## [1] "Cross-sectional w/scan N=1797"## valselfscan
## 0_none 1_PS 2_NS 3_PM 4_NM 5_PO 6_NO 7_MS 8_MO 9_MM
## 4832 120 43 412 144 159 87 108 187 537## [1] "Some models control for:"## ecigscan4level_n
## 0 1 2 3
## 4832 979 565 244## cigsmoker
## Not current cigarette smoker Current cigarette smoker
## 5782 824## sex
## age2cat Female Male Refused
## 13-17 1503 1673 0
## 18-25 1701 1743 0## race4cat
## Hispanic White (Non-Hisp) Black or AA (Non-Hisp)
## 1499 3359 982
## Other/1+
## 741## goodgrades
## Mostly F's Mostly D's Mostly C's Mostly B's Mostly A's
## 58 110 745 2742 2883## paredu
## Less than high school (0-11th grade)
## 351
## High school degree (completed 12th grade, high school diploma or GED)
## 1329
## Some college (1-3 years, Associate's Degree)
## 1022
## College Degree (4 years, Bachelor's Degree)
## 1872
## Completed Graduate or professional school after college (for example: MA or PhD, MBA, MD, or JD, etc.)
## 1474
## Don't Know
## 548
## Refused
## 33## paredu_n
## 1 2 3 4 5
## 351 1329 1022 1872 1474## hhuse_vap
## No Yes Lives alone
## 5088 631 861## valscan_ecig_3lev_n
## 0 1 2 3
## 4832 691 832 274## ecigsmoker
## valscan_ecig_3lev_n Not current e-cigarette user Current e-cigarette user
## 0 4413 408
## 1 531 160
## 2 712 118
## 3 258 16##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8901 -0.4206 -0.2954 -0.1956 4.4227
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -2.69122 0.28502 -9.442
## as.factor(valscan_ecig_3lev_n)1 0.32609 0.21133 1.543
## as.factor(valscan_ecig_3lev_n)2 -0.11024 0.21008 -0.525
## as.factor(valscan_ecig_3lev_n)3 -0.63078 0.30536 -2.066
## as.factor(cigsmoker)Current cigarette smoker 1.73039 0.09888 17.501
## ecigscan4level_n 0.30643 0.09554 3.207
## as.factor(age2cat)18-25 0.29095 0.11162 2.607
## as.factor(sex)Male 0.39743 0.09371 4.241
## as.factor(race4cat_n)1 -0.17578 0.12096 -1.453
## as.factor(race4cat_n)2 -0.55897 0.15632 -3.576
## as.factor(race4cat_n)3 -0.07076 0.14481 -0.489
## goodgrades_n -0.15729 0.05357 -2.936
## paredu_n 0.02718 0.03802 0.715
## as.factor(hhuse_vap)Yes 1.36263 0.11857 11.492
## as.factor(hhuse_vap)Lives alone 0.18252 0.12408 1.471
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.122823
## as.factor(valscan_ecig_3lev_n)2 0.599762
## as.factor(valscan_ecig_3lev_n)3 0.038859 *
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.001340 **
## as.factor(age2cat)18-25 0.009144 **
## as.factor(sex)Male 2.23e-05 ***
## as.factor(race4cat_n)1 0.146175
## as.factor(race4cat_n)2 0.000349 ***
## as.factor(race4cat_n)3 0.625104
## goodgrades_n 0.003322 **
## paredu_n 0.474628
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.141297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3400.7 on 5844 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3501.6
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8694 -0.4217 -0.2956 -0.1928 4.4069
##
## Coefficients:
## Estimate
## (Intercept) -2.77137
## as.factor(valscan_ecig_3lev_n)1 0.47582
## as.factor(valscan_ecig_3lev_n)2 0.11044
## as.factor(valscan_ecig_3lev_n)3 -0.65325
## as.factor(age2cat)18-25 0.38562
## as.factor(cigsmoker)Current cigarette smoker 1.73227
## ecigscan4level_n 0.31220
## as.factor(sex)Male 0.39980
## as.factor(race4cat_n)1 -0.17176
## as.factor(race4cat_n)2 -0.55522
## as.factor(race4cat_n)3 -0.06703
## goodgrades_n -0.15568
## paredu_n 0.02651
## as.factor(hhuse_vap)Yes 1.36343
## as.factor(hhuse_vap)Lives alone 0.18047
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.21482
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.31755
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.03327
## Std. Error z value
## (Intercept) 0.29535 -9.383
## as.factor(valscan_ecig_3lev_n)1 0.29472 1.614
## as.factor(valscan_ecig_3lev_n)2 0.28257 0.391
## as.factor(valscan_ecig_3lev_n)3 0.50433 -1.295
## as.factor(age2cat)18-25 0.14177 2.720
## as.factor(cigsmoker)Current cigarette smoker 0.09889 17.518
## ecigscan4level_n 0.09560 3.266
## as.factor(sex)Male 0.09385 4.260
## as.factor(race4cat_n)1 0.12102 -1.419
## as.factor(race4cat_n)2 0.15629 -3.553
## as.factor(race4cat_n)3 0.14485 -0.463
## goodgrades_n 0.05371 -2.899
## paredu_n 0.03800 0.698
## as.factor(hhuse_vap)Yes 0.11867 11.489
## as.factor(hhuse_vap)Lives alone 0.12398 1.456
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.27238 -0.789
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.28307 -1.122
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.58137 0.057
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.106426
## as.factor(valscan_ecig_3lev_n)2 0.695916
## as.factor(valscan_ecig_3lev_n)3 0.195224
## as.factor(age2cat)18-25 0.006528 **
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.001092 **
## as.factor(sex)Male 2.04e-05 ***
## as.factor(race4cat_n)1 0.155824
## as.factor(race4cat_n)2 0.000381 ***
## as.factor(race4cat_n)3 0.643517
## goodgrades_n 0.003749 **
## paredu_n 0.485408
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.145489
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.430308
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.261950
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.954369
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3399.1 on 5841 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3506.9
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_under18, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.0387 -0.2954 -0.2034 -0.1350 3.9824
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -10.29138 1.44523 -7.121
## as.factor(valscan_ecig_3lev_n)1 0.09463 0.44489 0.213
## as.factor(valscan_ecig_3lev_n)2 -0.22772 0.40816 -0.558
## as.factor(valscan_ecig_3lev_n)3 -0.73748 0.58373 -1.263
## as.factor(cigsmoker)Current cigarette smoker 2.54010 0.26196 9.696
## ecigscan4level_n 0.51753 0.19095 2.710
## ager_r 0.48757 0.08273 5.893
## as.factor(sex)Male 0.53703 0.20153 2.665
## as.factor(race4cat_n)1 -0.35022 0.26699 -1.312
## as.factor(race4cat_n)2 -0.52299 0.34817 -1.502
## as.factor(race4cat_n)3 0.09001 0.30360 0.296
## goodgrades_n -0.29664 0.10959 -2.707
## paredu_n 0.11094 0.08167 1.358
## as.factor(hhuse_vap)Yes 1.22572 0.22626 5.417
## as.factor(hhuse_vap)Lives alone 0.97357 0.49154 1.981
## Pr(>|z|)
## (Intercept) 1.07e-12 ***
## as.factor(valscan_ecig_3lev_n)1 0.83156
## as.factor(valscan_ecig_3lev_n)2 0.57690
## as.factor(valscan_ecig_3lev_n)3 0.20645
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.00672 **
## ager_r 3.78e-09 ***
## as.factor(sex)Male 0.00771 **
## as.factor(race4cat_n)1 0.18961
## as.factor(race4cat_n)2 0.13306
## as.factor(race4cat_n)3 0.76687
## goodgrades_n 0.00679 **
## paredu_n 0.17435
## as.factor(hhuse_vap)Yes 6.05e-08 ***
## as.factor(hhuse_vap)Lives alone 0.04763 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1076.05 on 2657 degrees of freedom
## Residual deviance: 807.95 on 2643 degrees of freedom
## (521 observations deleted due to missingness)
## AIC: 824.58
##
## Number of Fisher Scoring iterations: 6##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_over18, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.5966 -0.5133 -0.3646 -0.2461 4.4147
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) 0.47217 0.57933 0.815
## as.factor(valscan_ecig_3lev_n)1 0.32167 0.24424 1.317
## as.factor(valscan_ecig_3lev_n)2 -0.10931 0.25118 -0.435
## as.factor(valscan_ecig_3lev_n)3 -0.58501 0.36298 -1.612
## as.factor(cigsmoker)Current cigarette smoker 1.70816 0.11037 15.477
## ecigscan4level_n 0.26407 0.11209 2.356
## ager_r -0.13669 0.02252 -6.071
## as.factor(sex)Male 0.34351 0.10877 3.158
## as.factor(race4cat_n)1 -0.21016 0.14004 -1.501
## as.factor(race4cat_n)2 -0.51706 0.17706 -2.920
## as.factor(race4cat_n)3 -0.22581 0.16890 -1.337
## goodgrades_n -0.09895 0.06295 -1.572
## paredu_n -0.00955 0.04397 -0.217
## as.factor(hhuse_vap)Yes 1.47982 0.14549 10.171
## as.factor(hhuse_vap)Lives alone 0.24175 0.13097 1.846
## Pr(>|z|)
## (Intercept) 0.41505
## as.factor(valscan_ecig_3lev_n)1 0.18782
## as.factor(valscan_ecig_3lev_n)2 0.66343
## as.factor(valscan_ecig_3lev_n)3 0.10703
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.01848 *
## ager_r 1.27e-09 ***
## as.factor(sex)Male 0.00159 **
## as.factor(race4cat_n)1 0.13344
## as.factor(race4cat_n)2 0.00350 **
## as.factor(race4cat_n)3 0.18124
## goodgrades_n 0.11597
## paredu_n 0.82804
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.06492 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 2990.2 on 3197 degrees of freedom
## Residual deviance: 2478.3 on 3183 degrees of freedom
## (252 observations deleted due to missingness)
## AIC: 2592.3
##
## Number of Fisher Scoring iterations: 5## valscan_ecig_3lev_diff_f
## none neg mix pos
## 4832 274 832 691## ecigsmoker
## valscan_ecig_3lev_diff_f Not current e-cigarette user
## none 4413
## neg 258
## mix 712
## pos 531
## ecigsmoker
## valscan_ecig_3lev_diff_f Current e-cigarette user
## none 408
## neg 16
## mix 118
## pos 160##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(valscan_ecig_3lev_diff_f) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8901 -0.4206 -0.2954 -0.1956 4.4227
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -2.79495 0.31544 -8.861
## as.factor(valscan_ecig_3lev_diff_f)1 -0.63078 0.30536 -2.066
## as.factor(valscan_ecig_3lev_diff_f)2 0.52054 0.28747 1.811
## as.factor(valscan_ecig_3lev_diff_f)3 0.43633 0.15523 2.811
## as.factor(cigsmoker)Current cigarette smoker 1.73039 0.09888 17.501
## ecigscan4level_n 0.30643 0.09554 3.207
## as.factor(age2cat)18-25 0.29095 0.11162 2.607
## as.factor(sex)Male 0.39743 0.09371 4.241
## as.factor(race4cat_n)1 -0.17578 0.12096 -1.453
## as.factor(race4cat_n)2 -0.55897 0.15632 -3.576
## as.factor(race4cat_n)3 -0.07076 0.14481 -0.489
## goodgrades_n -0.15729 0.05357 -2.936
## paredu_n 0.02718 0.03802 0.715
## as.factor(hhuse_vap)Yes 1.36263 0.11857 11.492
## as.factor(hhuse_vap)Lives alone 0.18252 0.12408 1.471
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_diff_f)1 0.038859 *
## as.factor(valscan_ecig_3lev_diff_f)2 0.070175 .
## as.factor(valscan_ecig_3lev_diff_f)3 0.004940 **
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.001340 **
## as.factor(age2cat)18-25 0.009144 **
## as.factor(sex)Male 2.23e-05 ***
## as.factor(race4cat_n)1 0.146175
## as.factor(race4cat_n)2 0.000349 ***
## as.factor(race4cat_n)3 0.625104
## goodgrades_n 0.003322 **
## paredu_n 0.474628
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.141297
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3400.7 on 5844 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3501.6
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ as.factor(valscan_ecig_3lev_diff_f) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8694 -0.4217 -0.2956 -0.1928 4.4069
##
## Coefficients:
## Estimate
## (Intercept) -2.78811
## as.factor(valscan_ecig_3lev_diff_f)1 -0.65325
## as.factor(valscan_ecig_3lev_diff_f)2 0.76369
## as.factor(valscan_ecig_3lev_diff_f)3 0.36538
## as.factor(age2cat)18-25 0.26085
## as.factor(cigsmoker)Current cigarette smoker 1.73227
## ecigscan4level_n 0.31220
## as.factor(sex)Male 0.39980
## as.factor(race4cat_n)1 -0.17176
## as.factor(race4cat_n)2 -0.55522
## as.factor(race4cat_n)3 -0.06703
## goodgrades_n -0.15568
## paredu_n 0.02651
## as.factor(hhuse_vap)Yes 1.36343
## as.factor(hhuse_vap)Lives alone 0.18047
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 0.03327
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 -0.35082
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 0.10273
## Std. Error
## (Intercept) 0.32705
## as.factor(valscan_ecig_3lev_diff_f)1 0.50433
## as.factor(valscan_ecig_3lev_diff_f)2 0.51067
## as.factor(valscan_ecig_3lev_diff_f)3 0.29017
## as.factor(age2cat)18-25 0.17321
## as.factor(cigsmoker)Current cigarette smoker 0.09889
## ecigscan4level_n 0.09560
## as.factor(sex)Male 0.09385
## as.factor(race4cat_n)1 0.12102
## as.factor(race4cat_n)2 0.15629
## as.factor(race4cat_n)3 0.14485
## goodgrades_n 0.05371
## paredu_n 0.03800
## as.factor(hhuse_vap)Yes 0.11867
## as.factor(hhuse_vap)Lives alone 0.12398
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 0.58137
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 0.61790
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 0.34395
## z value
## (Intercept) -8.525
## as.factor(valscan_ecig_3lev_diff_f)1 -1.295
## as.factor(valscan_ecig_3lev_diff_f)2 1.495
## as.factor(valscan_ecig_3lev_diff_f)3 1.259
## as.factor(age2cat)18-25 1.506
## as.factor(cigsmoker)Current cigarette smoker 17.518
## ecigscan4level_n 3.266
## as.factor(sex)Male 4.260
## as.factor(race4cat_n)1 -1.419
## as.factor(race4cat_n)2 -3.553
## as.factor(race4cat_n)3 -0.463
## goodgrades_n -2.899
## paredu_n 0.698
## as.factor(hhuse_vap)Yes 11.489
## as.factor(hhuse_vap)Lives alone 1.456
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 0.057
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 -0.568
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 0.299
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_diff_f)1 0.195224
## as.factor(valscan_ecig_3lev_diff_f)2 0.134797
## as.factor(valscan_ecig_3lev_diff_f)3 0.207952
## as.factor(age2cat)18-25 0.132074
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.001092 **
## as.factor(sex)Male 2.04e-05 ***
## as.factor(race4cat_n)1 0.155824
## as.factor(race4cat_n)2 0.000381 ***
## as.factor(race4cat_n)3 0.643517
## goodgrades_n 0.003749 **
## paredu_n 0.485408
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.145489
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 0.954369
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 0.570201
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 0.765180
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3399.1 on 5841 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3506.9
##
## Number of Fisher Scoring iterations: 5## valscan_ecig_3lev_diff
## 0 1 2 3
## 4832 274 832 691## ecigsmoker
## valscan_ecig_3lev_diff Not current e-cigarette user
## 0 4413
## 1 258
## 2 712
## 3 531
## ecigsmoker
## valscan_ecig_3lev_diff Current e-cigarette user
## 0 408
## 1 16
## 2 118
## 3 160##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ valscan_ecig_3lev_diff +
## ecigscan4level_n + as.factor(cigsmoker) + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8022 -0.4213 -0.2963 -0.1957 4.4403
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -2.72191 0.28466 -9.562
## valscan_ecig_3lev_diff 0.15874 0.06772 2.344
## ecigscan4level_n 0.17103 0.08526 2.006
## as.factor(cigsmoker)Current cigarette smoker 1.73840 0.09866 17.619
## as.factor(age2cat)18-25 0.30492 0.11134 2.739
## as.factor(sex)Male 0.39187 0.09348 4.192
## as.factor(race4cat_n)1 -0.16616 0.12076 -1.376
## as.factor(race4cat_n)2 -0.55500 0.15623 -3.552
## as.factor(race4cat_n)3 -0.05772 0.14433 -0.400
## goodgrades_n -0.16041 0.05350 -2.998
## paredu_n 0.02560 0.03794 0.675
## as.factor(hhuse_vap)Yes 1.36111 0.11833 11.502
## as.factor(hhuse_vap)Lives alone 0.17885 0.12382 1.444
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## valscan_ecig_3lev_diff 0.019075 *
## ecigscan4level_n 0.044864 *
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## as.factor(age2cat)18-25 0.006168 **
## as.factor(sex)Male 2.77e-05 ***
## as.factor(race4cat_n)1 0.168821
## as.factor(race4cat_n)2 0.000382 ***
## as.factor(race4cat_n)3 0.689222
## goodgrades_n 0.002715 **
## paredu_n 0.499921
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.148610
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3411.6 on 5846 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3507.5
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ valscan_ecig_3lev_diff *
## as.factor(age2cat) + ecigscan4level_n + as.factor(cigsmoker) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7653 -0.4243 -0.2967 -0.1935 4.4239
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -2.80155 0.29479 -9.504
## valscan_ecig_3lev_diff 0.22617 0.09158 2.470
## as.factor(age2cat)18-25 0.39469 0.14013 2.817
## ecigscan4level_n 0.17237 0.08509 2.026
## as.factor(cigsmoker)Current cigarette smoker 1.73872 0.09863 17.628
## as.factor(sex)Male 0.39141 0.09346 4.188
## as.factor(race4cat_n)1 -0.16411 0.12074 -1.359
## as.factor(race4cat_n)2 -0.55198 0.15616 -3.535
## as.factor(race4cat_n)3 -0.05674 0.14432 -0.393
## goodgrades_n -0.15756 0.05356 -2.942
## paredu_n 0.02534 0.03791 0.668
## as.factor(hhuse_vap)Yes 1.35976 0.11837 11.487
## as.factor(hhuse_vap)Lives alone 0.17655 0.12370 1.427
## valscan_ecig_3lev_diff:as.factor(age2cat)18-25 -0.09185 0.08475 -1.084
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## valscan_ecig_3lev_diff 0.013521 *
## as.factor(age2cat)18-25 0.004854 **
## ecigscan4level_n 0.042788 *
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## as.factor(sex)Male 2.82e-05 ***
## as.factor(race4cat_n)1 0.174083
## as.factor(race4cat_n)2 0.000408 ***
## as.factor(race4cat_n)3 0.694192
## goodgrades_n 0.003260 **
## paredu_n 0.503873
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.153503
## valscan_ecig_3lev_diff:as.factor(age2cat)18-25 0.278495
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3410.4 on 5845 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3509.2
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigsmoker) ~ valscan_ecig_3lev_diff *
## ecigscan4level_n + as.factor(age2cat) + as.factor(cigsmoker) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_all,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.9250 -0.4183 -0.2951 -0.1963 4.4150
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -2.714631 0.285306 -9.515
## valscan_ecig_3lev_diff 0.007703 0.078376 0.098
## ecigscan4level_n -0.407803 0.170072 -2.398
## as.factor(age2cat)18-25 0.295533 0.111798 2.643
## as.factor(cigsmoker)Current cigarette smoker 1.735630 0.098956 17.539
## as.factor(sex)Male 0.398813 0.093852 4.249
## as.factor(race4cat_n)1 -0.166552 0.120898 -1.378
## as.factor(race4cat_n)2 -0.559195 0.156522 -3.573
## as.factor(race4cat_n)3 -0.073785 0.145078 -0.509
## goodgrades_n -0.155064 0.053616 -2.892
## paredu_n 0.030675 0.038062 0.806
## as.factor(hhuse_vap)Yes 1.361226 0.118760 11.462
## as.factor(hhuse_vap)Lives alone 0.182408 0.124167 1.469
## valscan_ecig_3lev_diff:ecigscan4level_n 0.298852 0.072102 4.145
## Pr(>|z|)
## (Intercept) < 2e-16 ***
## valscan_ecig_3lev_diff 0.921713
## ecigscan4level_n 0.016493 *
## as.factor(age2cat)18-25 0.008207 **
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## as.factor(sex)Male 2.14e-05 ***
## as.factor(race4cat_n)1 0.168320
## as.factor(race4cat_n)2 0.000353 ***
## as.factor(race4cat_n)3 0.611042
## goodgrades_n 0.003826 **
## paredu_n 0.420284
## as.factor(hhuse_vap)Yes < 2e-16 ***
## as.factor(hhuse_vap)Lives alone 0.141817
## valscan_ecig_3lev_diff:ecigscan4level_n 3.40e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 4122.8 on 5858 degrees of freedom
## Residual deviance: 3393.8 on 5845 degrees of freedom
## (770 observations deleted due to missingness)
## AIC: 3493.2
##
## Number of Fisher Scoring iterations: 5## ecigint
## valscan_ecig_3lev_n Definitely no intention to vape Some intention to vape
## 0 3711 1103
## 1 381 310
## 2 534 296
## 3 216 57##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3682 -0.6463 -0.4742 -0.2833 3.7551
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -1.10160 0.23618 -4.664
## as.factor(valscan_ecig_3lev_n)1 0.50991 0.18490 2.758
## as.factor(valscan_ecig_3lev_n)2 0.35475 0.17718 2.002
## as.factor(valscan_ecig_3lev_n)3 0.18589 0.21959 0.847
## as.factor(cigsmoker)Current cigarette smoker 1.63109 0.09765 16.703
## ecigscan4level_n 0.10338 0.08838 1.170
## as.factor(age2cat)18-25 0.08383 0.08284 1.012
## as.factor(sex)Male 0.27315 0.07365 3.709
## as.factor(race4cat_n)1 0.10526 0.09564 1.101
## as.factor(race4cat_n)2 -0.13562 0.11233 -1.207
## as.factor(race4cat_n)3 0.18367 0.11602 1.583
## goodgrades_n -0.15640 0.04567 -3.425
## paredu_n -0.07137 0.03042 -2.346
## as.factor(hhuse_vap)Yes 0.52780 0.12264 4.304
## as.factor(hhuse_vap)Lives alone -0.06881 0.10743 -0.641
## Pr(>|z|)
## (Intercept) 3.10e-06 ***
## as.factor(valscan_ecig_3lev_n)1 0.005821 **
## as.factor(valscan_ecig_3lev_n)2 0.045263 *
## as.factor(valscan_ecig_3lev_n)3 0.397246
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.242095
## as.factor(age2cat)18-25 0.311593
## as.factor(sex)Male 0.000208 ***
## as.factor(race4cat_n)1 0.271106
## as.factor(race4cat_n)2 0.227279
## as.factor(race4cat_n)3 0.113384
## goodgrades_n 0.000616 ***
## paredu_n 0.018970 *
## as.factor(hhuse_vap)Yes 1.68e-05 ***
## as.factor(hhuse_vap)Lives alone 0.521824
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 5255.9 on 5210 degrees of freedom
## Residual deviance: 4783.7 on 5196 degrees of freedom
## (703 observations deleted due to missingness)
## AIC: 4942.2
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.5409 -0.6490 -0.4755 -0.2760 3.8059
##
## Coefficients:
## Estimate
## (Intercept) -1.17922
## as.factor(valscan_ecig_3lev_n)1 0.77427
## as.factor(valscan_ecig_3lev_n)2 0.51881
## as.factor(valscan_ecig_3lev_n)3 0.22581
## as.factor(age2cat)18-25 0.18351
## as.factor(cigsmoker)Current cigarette smoker 1.62982
## ecigscan4level_n 0.11115
## as.factor(sex)Male 0.27516
## as.factor(race4cat_n)1 0.10865
## as.factor(race4cat_n)2 -0.13325
## as.factor(race4cat_n)3 0.18726
## goodgrades_n -0.15403
## paredu_n -0.07191
## as.factor(hhuse_vap)Yes 0.52630
## as.factor(hhuse_vap)Lives alone -0.07041
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.41425
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.28183
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.07251
## Std. Error z value
## (Intercept) 0.24037 -4.906
## as.factor(valscan_ecig_3lev_n)1 0.24288 3.188
## as.factor(valscan_ecig_3lev_n)2 0.21180 2.450
## as.factor(valscan_ecig_3lev_n)3 0.30907 0.731
## as.factor(age2cat)18-25 0.09964 1.842
## as.factor(cigsmoker)Current cigarette smoker 0.09749 16.718
## ecigscan4level_n 0.08850 1.256
## as.factor(sex)Male 0.07371 3.733
## as.factor(race4cat_n)1 0.09574 1.135
## as.factor(race4cat_n)2 0.11245 -1.185
## as.factor(race4cat_n)3 0.11602 1.614
## goodgrades_n 0.04579 -3.364
## paredu_n 0.03042 -2.364
## as.factor(hhuse_vap)Yes 0.12283 4.285
## as.factor(hhuse_vap)Lives alone 0.10724 -0.657
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.23715 -1.747
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.21521 -1.310
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.36100 -0.201
## Pr(>|z|)
## (Intercept) 9.31e-07 ***
## as.factor(valscan_ecig_3lev_n)1 0.001433 **
## as.factor(valscan_ecig_3lev_n)2 0.014303 *
## as.factor(valscan_ecig_3lev_n)3 0.465025
## as.factor(age2cat)18-25 0.065521 .
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.209170
## as.factor(sex)Male 0.000189 ***
## as.factor(race4cat_n)1 0.256462
## as.factor(race4cat_n)2 0.236038
## as.factor(race4cat_n)3 0.106535
## goodgrades_n 0.000768 ***
## paredu_n 0.018097 *
## as.factor(hhuse_vap)Yes 1.83e-05 ***
## as.factor(hhuse_vap)Lives alone 0.511448
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.080671 .
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.190334
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.840804
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 5255.9 on 5210 degrees of freedom
## Residual deviance: 4779.7 on 5193 degrees of freedom
## (703 observations deleted due to missingness)
## AIC: 4945.9
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.4147 -0.7220 -0.5318 -0.3238 3.7877
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) 1.76608 0.51062 3.459
## as.factor(valscan_ecig_3lev_n)1 0.31983 0.23311 1.372
## as.factor(valscan_ecig_3lev_n)2 0.21366 0.23541 0.908
## as.factor(valscan_ecig_3lev_n)3 0.13088 0.28429 0.460
## as.factor(cigsmoker)Current cigarette smoker 1.82367 0.10703 17.040
## ecigscan4level_n 0.13525 0.11310 1.196
## ager_r -0.12938 0.01930 -6.703
## as.factor(sex)Male 0.29729 0.09188 3.236
## as.factor(race4cat_n)1 0.02837 0.12025 0.236
## as.factor(race4cat_n)2 -0.14544 0.13800 -1.054
## as.factor(race4cat_n)3 0.06804 0.14195 0.479
## goodgrades_n -0.15332 0.05703 -2.688
## paredu_n -0.08390 0.03784 -2.217
## as.factor(hhuse_vap)Yes 0.54912 0.17154 3.201
## as.factor(hhuse_vap)Lives alone 0.02238 0.11372 0.197
## Pr(>|z|)
## (Intercept) 0.000543 ***
## as.factor(valscan_ecig_3lev_n)1 0.170048
## as.factor(valscan_ecig_3lev_n)2 0.364088
## as.factor(valscan_ecig_3lev_n)3 0.645236
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.231786
## ager_r 2.04e-11 ***
## as.factor(sex)Male 0.001213 **
## as.factor(race4cat_n)1 0.813519
## as.factor(race4cat_n)2 0.291920
## as.factor(race4cat_n)3 0.631690
## goodgrades_n 0.007178 **
## paredu_n 0.026629 *
## as.factor(hhuse_vap)Yes 0.001369 **
## as.factor(hhuse_vap)Lives alone 0.843993
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 3482.3 on 2764 degrees of freedom
## Residual deviance: 3059.0 on 2750 degrees of freedom
## (209 observations deleted due to missingness)
## AIC: 3232.7
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7199 -0.5593 -0.4017 -0.2597 3.7243
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -3.58850 0.85314 -4.206
## as.factor(valscan_ecig_3lev_n)1 0.77878 0.31104 2.504
## as.factor(valscan_ecig_3lev_n)2 0.49493 0.27514 1.799
## as.factor(valscan_ecig_3lev_n)3 0.27775 0.35535 0.782
## as.factor(cigsmoker)Current cigarette smoker 0.99459 0.32731 3.039
## ecigscan4level_n 0.10428 0.14661 0.711
## ager_r 0.16919 0.04762 3.553
## as.factor(sex)Male 0.18342 0.12696 1.445
## as.factor(race4cat_n)1 0.11237 0.16511 0.681
## as.factor(race4cat_n)2 -0.11835 0.19799 -0.598
## as.factor(race4cat_n)3 0.30469 0.20609 1.478
## goodgrades_n -0.17233 0.08006 -2.153
## paredu_n -0.08929 0.05366 -1.664
## as.factor(hhuse_vap)Yes 0.54382 0.17925 3.034
## as.factor(hhuse_vap)Lives alone 0.30591 0.49497 0.618
## Pr(>|z|)
## (Intercept) 2.6e-05 ***
## as.factor(valscan_ecig_3lev_n)1 0.012288 *
## as.factor(valscan_ecig_3lev_n)2 0.072043 .
## as.factor(valscan_ecig_3lev_n)3 0.434435
## as.factor(cigsmoker)Current cigarette smoker 0.002377 **
## ecigscan4level_n 0.476911
## ager_r 0.000381 ***
## as.factor(sex)Male 0.148544
## as.factor(race4cat_n)1 0.496127
## as.factor(race4cat_n)2 0.550007
## as.factor(race4cat_n)3 0.139294
## goodgrades_n 0.031350 *
## paredu_n 0.096105 .
## as.factor(hhuse_vap)Yes 0.002415 **
## as.factor(hhuse_vap)Lives alone 0.536552
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1744.8 on 2442 degrees of freedom
## Residual deviance: 1650.9 on 2428 degrees of freedom
## (497 observations deleted due to missingness)
## AIC: 1658
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_diff_f) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3682 -0.6463 -0.4742 -0.2833 3.7551
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -0.83896 0.26132 -3.211
## as.factor(valscan_ecig_3lev_diff_f)1 0.18589 0.21959 0.847
## as.factor(valscan_ecig_3lev_diff_f)2 0.16885 0.19576 0.863
## as.factor(valscan_ecig_3lev_diff_f)3 0.15517 0.14064 1.103
## as.factor(cigsmoker)Current cigarette smoker 1.63109 0.09765 16.703
## ecigscan4level_n 0.10338 0.08838 1.170
## as.factor(age2cat)18-25 0.08383 0.08284 1.012
## as.factor(sex)Male 0.27315 0.07365 3.709
## as.factor(race4cat_n)1 0.10526 0.09564 1.101
## as.factor(race4cat_n)2 -0.13562 0.11233 -1.207
## as.factor(race4cat_n)3 0.18367 0.11602 1.583
## goodgrades_n -0.15640 0.04567 -3.425
## paredu_n -0.07137 0.03042 -2.346
## as.factor(hhuse_vap)Yes 0.52780 0.12264 4.304
## as.factor(hhuse_vap)Lives alone -0.06881 0.10743 -0.641
## Pr(>|z|)
## (Intercept) 0.001325 **
## as.factor(valscan_ecig_3lev_diff_f)1 0.397246
## as.factor(valscan_ecig_3lev_diff_f)2 0.388398
## as.factor(valscan_ecig_3lev_diff_f)3 0.269906
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.242095
## as.factor(age2cat)18-25 0.311593
## as.factor(sex)Male 0.000208 ***
## as.factor(race4cat_n)1 0.271106
## as.factor(race4cat_n)2 0.227279
## as.factor(race4cat_n)3 0.113384
## goodgrades_n 0.000616 ***
## paredu_n 0.018970 *
## as.factor(hhuse_vap)Yes 1.68e-05 ***
## as.factor(hhuse_vap)Lives alone 0.521824
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 5255.9 on 5210 degrees of freedom
## Residual deviance: 4783.7 on 5196 degrees of freedom
## (703 observations deleted due to missingness)
## AIC: 4942.2
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_diff_f) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), family = binomial, data = survey_reduced_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.5409 -0.6490 -0.4755 -0.2760 3.8059
##
## Coefficients:
## Estimate
## (Intercept) -0.799500
## as.factor(valscan_ecig_3lev_diff_f)1 0.225807
## as.factor(valscan_ecig_3lev_diff_f)2 0.293006
## as.factor(valscan_ecig_3lev_diff_f)3 0.255459
## as.factor(age2cat)18-25 -0.008636
## as.factor(cigsmoker)Current cigarette smoker 1.629819
## ecigscan4level_n 0.111146
## as.factor(sex)Male 0.275165
## as.factor(race4cat_n)1 0.108648
## as.factor(race4cat_n)2 -0.133253
## as.factor(race4cat_n)3 0.187256
## goodgrades_n -0.154034
## paredu_n -0.071912
## as.factor(hhuse_vap)Yes 0.526299
## as.factor(hhuse_vap)Lives alone -0.070413
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 -0.072513
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 -0.209320
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 -0.132414
## Std. Error
## (Intercept) 0.265228
## as.factor(valscan_ecig_3lev_diff_f)1 0.309071
## as.factor(valscan_ecig_3lev_diff_f)2 0.306461
## as.factor(valscan_ecig_3lev_diff_f)3 0.230304
## as.factor(age2cat)18-25 0.119711
## as.factor(cigsmoker)Current cigarette smoker 0.097490
## ecigscan4level_n 0.088502
## as.factor(sex)Male 0.073712
## as.factor(race4cat_n)1 0.095743
## as.factor(race4cat_n)2 0.112454
## as.factor(race4cat_n)3 0.116022
## goodgrades_n 0.045790
## paredu_n 0.030424
## as.factor(hhuse_vap)Yes 0.122832
## as.factor(hhuse_vap)Lives alone 0.107241
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 0.361003
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 0.398412
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 0.291396
## z value
## (Intercept) -3.014
## as.factor(valscan_ecig_3lev_diff_f)1 0.731
## as.factor(valscan_ecig_3lev_diff_f)2 0.956
## as.factor(valscan_ecig_3lev_diff_f)3 1.109
## as.factor(age2cat)18-25 -0.072
## as.factor(cigsmoker)Current cigarette smoker 16.718
## ecigscan4level_n 1.256
## as.factor(sex)Male 3.733
## as.factor(race4cat_n)1 1.135
## as.factor(race4cat_n)2 -1.185
## as.factor(race4cat_n)3 1.614
## goodgrades_n -3.364
## paredu_n -2.364
## as.factor(hhuse_vap)Yes 4.285
## as.factor(hhuse_vap)Lives alone -0.657
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 -0.201
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 -0.525
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 -0.454
## Pr(>|z|)
## (Intercept) 0.002575 **
## as.factor(valscan_ecig_3lev_diff_f)1 0.465025
## as.factor(valscan_ecig_3lev_diff_f)2 0.339023
## as.factor(valscan_ecig_3lev_diff_f)3 0.267333
## as.factor(age2cat)18-25 0.942488
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.209170
## as.factor(sex)Male 0.000189 ***
## as.factor(race4cat_n)1 0.256462
## as.factor(race4cat_n)2 0.236038
## as.factor(race4cat_n)3 0.106535
## goodgrades_n 0.000768 ***
## paredu_n 0.018097 *
## as.factor(hhuse_vap)Yes 1.83e-05 ***
## as.factor(hhuse_vap)Lives alone 0.511448
## as.factor(valscan_ecig_3lev_diff_f)1:as.factor(age2cat)18-25 0.840804
## as.factor(valscan_ecig_3lev_diff_f)2:as.factor(age2cat)18-25 0.599315
## as.factor(valscan_ecig_3lev_diff_f)3:as.factor(age2cat)18-25 0.649532
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 5255.9 on 5210 degrees of freedom
## Residual deviance: 4779.7 on 5193 degrees of freedom
## (703 observations deleted due to missingness)
## AIC: 4945.9
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_diff_f) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7199 -0.5593 -0.4017 -0.2597 3.7243
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -3.20064 0.87162 -3.672
## as.factor(valscan_ecig_3lev_diff_f)1 0.27775 0.35535 0.782
## as.factor(valscan_ecig_3lev_diff_f)2 0.21718 0.30977 0.701
## as.factor(valscan_ecig_3lev_diff_f)3 0.28385 0.23138 1.227
## as.factor(cigsmoker)Current cigarette smoker 0.99459 0.32731 3.039
## ecigscan4level_n 0.10428 0.14661 0.711
## ager_r 0.16919 0.04762 3.553
## as.factor(sex)Male 0.18342 0.12696 1.445
## as.factor(race4cat_n)1 0.11237 0.16511 0.681
## as.factor(race4cat_n)2 -0.11835 0.19799 -0.598
## as.factor(race4cat_n)3 0.30469 0.20609 1.478
## goodgrades_n -0.17233 0.08006 -2.153
## paredu_n -0.08929 0.05366 -1.664
## as.factor(hhuse_vap)Yes 0.54382 0.17925 3.034
## as.factor(hhuse_vap)Lives alone 0.30591 0.49497 0.618
## Pr(>|z|)
## (Intercept) 0.000241 ***
## as.factor(valscan_ecig_3lev_diff_f)1 0.434435
## as.factor(valscan_ecig_3lev_diff_f)2 0.483248
## as.factor(valscan_ecig_3lev_diff_f)3 0.219904
## as.factor(cigsmoker)Current cigarette smoker 0.002377 **
## ecigscan4level_n 0.476911
## ager_r 0.000381 ***
## as.factor(sex)Male 0.148544
## as.factor(race4cat_n)1 0.496127
## as.factor(race4cat_n)2 0.550007
## as.factor(race4cat_n)3 0.139294
## goodgrades_n 0.031350 *
## paredu_n 0.096105 .
## as.factor(hhuse_vap)Yes 0.002415 **
## as.factor(hhuse_vap)Lives alone 0.536552
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1744.8 on 2442 degrees of freedom
## Residual deviance: 1650.9 on 2428 degrees of freedom
## (497 observations deleted due to missingness)
## AIC: 1658
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ as.factor(valscan_ecig_3lev_diff_f) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.4147 -0.7220 -0.5318 -0.3238 3.7877
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) 1.93217 0.52985 3.647
## as.factor(valscan_ecig_3lev_diff_f)1 0.13088 0.28429 0.460
## as.factor(valscan_ecig_3lev_diff_f)2 0.08278 0.25938 0.319
## as.factor(valscan_ecig_3lev_diff_f)3 0.10617 0.18027 0.589
## as.factor(cigsmoker)Current cigarette smoker 1.82367 0.10703 17.040
## ecigscan4level_n 0.13525 0.11310 1.196
## ager_r -0.12938 0.01930 -6.703
## as.factor(sex)Male 0.29729 0.09188 3.236
## as.factor(race4cat_n)1 0.02837 0.12025 0.236
## as.factor(race4cat_n)2 -0.14544 0.13800 -1.054
## as.factor(race4cat_n)3 0.06804 0.14195 0.479
## goodgrades_n -0.15332 0.05703 -2.688
## paredu_n -0.08390 0.03784 -2.217
## as.factor(hhuse_vap)Yes 0.54912 0.17154 3.201
## as.factor(hhuse_vap)Lives alone 0.02238 0.11372 0.197
## Pr(>|z|)
## (Intercept) 0.000266 ***
## as.factor(valscan_ecig_3lev_diff_f)1 0.645236
## as.factor(valscan_ecig_3lev_diff_f)2 0.749622
## as.factor(valscan_ecig_3lev_diff_f)3 0.555899
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.231786
## ager_r 2.04e-11 ***
## as.factor(sex)Male 0.001213 **
## as.factor(race4cat_n)1 0.813519
## as.factor(race4cat_n)2 0.291920
## as.factor(race4cat_n)3 0.631690
## goodgrades_n 0.007178 **
## paredu_n 0.026629 *
## as.factor(hhuse_vap)Yes 0.001369 **
## as.factor(hhuse_vap)Lives alone 0.843993
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 3482.3 on 2764 degrees of freedom
## Residual deviance: 3059.0 on 2750 degrees of freedom
## (209 observations deleted due to missingness)
## AIC: 3232.7
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ valscan_ecig_3lev_diff + ecigscan4level_n +
## as.factor(cigsmoker) + as.factor(age2cat) + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3751 -0.6461 -0.4742 -0.2835 3.7541
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -1.10073 0.23603 -4.664
## valscan_ecig_3lev_diff 0.16903 0.05920 2.855
## ecigscan4level_n 0.10863 0.07700 1.411
## as.factor(cigsmoker)Current cigarette smoker 1.63107 0.09763 16.706
## as.factor(age2cat)18-25 0.08319 0.08269 1.006
## as.factor(sex)Male 0.27305 0.07365 3.707
## as.factor(race4cat_n)1 0.10493 0.09560 1.098
## as.factor(race4cat_n)2 -0.13590 0.11227 -1.210
## as.factor(race4cat_n)3 0.18336 0.11599 1.581
## goodgrades_n -0.15631 0.04566 -3.423
## paredu_n -0.07129 0.03042 -2.344
## as.factor(hhuse_vap)Yes 0.52768 0.12263 4.303
## as.factor(hhuse_vap)Lives alone -0.06881 0.10743 -0.641
## Pr(>|z|)
## (Intercept) 3.11e-06 ***
## valscan_ecig_3lev_diff 0.004300 **
## ecigscan4level_n 0.158282
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## as.factor(age2cat)18-25 0.314397
## as.factor(sex)Male 0.000209 ***
## as.factor(race4cat_n)1 0.272374
## as.factor(race4cat_n)2 0.226101
## as.factor(race4cat_n)3 0.113924
## goodgrades_n 0.000619 ***
## paredu_n 0.019083 *
## as.factor(hhuse_vap)Yes 1.69e-05 ***
## as.factor(hhuse_vap)Lives alone 0.521833
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 5255.9 on 5210 degrees of freedom
## Residual deviance: 4783.8 on 5198 degrees of freedom
## (703 observations deleted due to missingness)
## AIC: 4938.1
##
## Number of Fisher Scoring iterations: 4##
## Call:
## glm(formula = as.factor(ecigint) ~ valscan_ecig_3lev_diff * as.factor(age2cat) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## family = binomial, data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.5392 -0.6494 -0.4753 -0.2761 3.8069
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -1.18117 0.23995 -4.923
## valscan_ecig_3lev_diff 0.25785 0.07325 3.520
## as.factor(age2cat)18-25 0.18598 0.09775 1.903
## as.factor(cigsmoker)Current cigarette smoker 1.62960 0.09746 16.721
## ecigscan4level_n 0.11177 0.07681 1.455
## as.factor(sex)Male 0.27514 0.07368 3.734
## as.factor(race4cat_n)1 0.10809 0.09566 1.130
## as.factor(race4cat_n)2 -0.13374 0.11227 -1.191
## as.factor(race4cat_n)3 0.18688 0.11599 1.611
## goodgrades_n -0.15371 0.04572 -3.362
## paredu_n -0.07210 0.03040 -2.372
## as.factor(hhuse_vap)Yes 0.52607 0.12279 4.284
## as.factor(hhuse_vap)Lives alone -0.07018 0.10723 -0.654
## valscan_ecig_3lev_diff:as.factor(age2cat)18-25 -0.13834 0.06848 -2.020
## Pr(>|z|)
## (Intercept) 8.54e-07 ***
## valscan_ecig_3lev_diff 0.000432 ***
## as.factor(age2cat)18-25 0.057096 .
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.145622
## as.factor(sex)Male 0.000188 ***
## as.factor(race4cat_n)1 0.258467
## as.factor(race4cat_n)2 0.233577
## as.factor(race4cat_n)3 0.107149
## goodgrades_n 0.000774 ***
## paredu_n 0.017703 *
## as.factor(hhuse_vap)Yes 1.83e-05 ***
## as.factor(hhuse_vap)Lives alone 0.512794
## valscan_ecig_3lev_diff:as.factor(age2cat)18-25 0.043378 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 5255.9 on 5210 degrees of freedom
## Residual deviance: 4779.7 on 5197 degrees of freedom
## (703 observations deleted due to missingness)
## AIC: 4938
##
## Number of Fisher Scoring iterations: 4## qn45_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 397 1792 2182 284
## 1 47 185 348 98
## 2 70 296 390 63
## 3 43 108 104 14##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8248 -0.4627 0.2179 0.4940 4.4427
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.435426 0.071309 34.153
## as.factor(valscan_ecig_3lev_n)1 0.162375 0.058972 2.753
## as.factor(valscan_ecig_3lev_n)2 0.043412 0.055395 0.784
## as.factor(valscan_ecig_3lev_n)3 -0.120253 0.067011 -1.795
## as.factor(cigsmoker)Current cigarette smoker -0.032061 0.033804 -0.948
## ecigscan4level_n -0.018153 0.028528 -0.636
## as.factor(age2cat)18-25 0.032221 0.023378 1.378
## as.factor(sex)Male 0.120398 0.021237 5.669
## as.factor(race4cat_n)1 -0.109328 0.028253 -3.870
## as.factor(race4cat_n)2 -0.028425 0.030939 -0.919
## as.factor(race4cat_n)3 -0.061124 0.034127 -1.791
## goodgrades_n 0.002949 0.013833 0.213
## paredu_n -0.003998 0.008829 -0.453
## as.factor(hhuse_vap)Yes 0.144989 0.039151 3.703
## as.factor(hhuse_vap)Lives alone -0.035671 0.031483 -1.133
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.005918 **
## as.factor(valscan_ecig_3lev_n)2 0.433261
## as.factor(valscan_ecig_3lev_n)3 0.072790 .
## as.factor(cigsmoker)Current cigarette smoker 0.342956
## ecigscan4level_n 0.524598
## as.factor(age2cat)18-25 0.168177
## as.factor(sex)Male 1.51e-08 ***
## as.factor(race4cat_n)1 0.000110 ***
## as.factor(race4cat_n)2 0.358265
## as.factor(race4cat_n)3 0.073342 .
## goodgrades_n 0.831209
## paredu_n 0.650682
## as.factor(hhuse_vap)Yes 0.000215 ***
## as.factor(hhuse_vap)Lives alone 0.257261
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5406485)
##
## Null deviance: 2778.3 on 5059 degrees of freedom
## Residual deviance: 2727.6 on 5045 degrees of freedom
## (854 observations deleted due to missingness)
## AIC: 12333
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8278 -0.4619 0.2122 0.4943 4.4134
##
## Coefficients:
## Estimate
## (Intercept) 2.418314
## as.factor(valscan_ecig_3lev_n)1 0.231017
## as.factor(valscan_ecig_3lev_n)2 0.087426
## as.factor(valscan_ecig_3lev_n)3 -0.084353
## as.factor(age2cat)18-25 0.055713
## as.factor(cigsmoker)Current cigarette smoker -0.030481
## ecigscan4level_n -0.014941
## as.factor(sex)Male 0.121189
## as.factor(race4cat_n)1 -0.108819
## as.factor(race4cat_n)2 -0.028651
## as.factor(race4cat_n)3 -0.060664
## goodgrades_n 0.003618
## paredu_n -0.004351
## as.factor(hhuse_vap)Yes 0.144115
## as.factor(hhuse_vap)Lives alone -0.036222
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.111010
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.082402
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.068774
## Std. Error t value
## (Intercept) 0.071922 33.624
## as.factor(valscan_ecig_3lev_n)1 0.078606 2.939
## as.factor(valscan_ecig_3lev_n)2 0.065015 1.345
## as.factor(valscan_ecig_3lev_n)3 0.090054 -0.937
## as.factor(age2cat)18-25 0.026713 2.086
## as.factor(cigsmoker)Current cigarette smoker 0.033815 -0.901
## ecigscan4level_n 0.028679 -0.521
## as.factor(sex)Male 0.021244 5.705
## as.factor(race4cat_n)1 0.028264 -3.850
## as.factor(race4cat_n)2 0.030975 -0.925
## as.factor(race4cat_n)3 0.034134 -1.777
## goodgrades_n 0.013847 0.261
## paredu_n 0.008834 -0.493
## as.factor(hhuse_vap)Yes 0.039157 3.680
## as.factor(hhuse_vap)Lives alone 0.031487 -1.150
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.077121 -1.439
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.065612 -1.256
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.106548 -0.645
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.003308 **
## as.factor(valscan_ecig_3lev_n)2 0.178786
## as.factor(valscan_ecig_3lev_n)3 0.348961
## as.factor(age2cat)18-25 0.037064 *
## as.factor(cigsmoker)Current cigarette smoker 0.367417
## ecigscan4level_n 0.602414
## as.factor(sex)Male 1.23e-08 ***
## as.factor(race4cat_n)1 0.000120 ***
## as.factor(race4cat_n)2 0.355019
## as.factor(race4cat_n)3 0.075594 .
## goodgrades_n 0.793870
## paredu_n 0.622384
## as.factor(hhuse_vap)Yes 0.000235 ***
## as.factor(hhuse_vap)Lives alone 0.250044
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.150092
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.209209
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.518652
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.540601)
##
## Null deviance: 2778.3 on 5059 degrees of freedom
## Residual deviance: 2725.7 on 5042 degrees of freedom
## (854 observations deleted due to missingness)
## AIC: 12336
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.9633 -0.3897 0.1219 0.4186 2.5114
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.8874186 0.2107534 8.956
## as.factor(valscan_ecig_3lev_n)1 0.2003956 0.0909944 2.202
## as.factor(valscan_ecig_3lev_n)2 0.0652275 0.0774285 0.842
## as.factor(valscan_ecig_3lev_n)3 -0.1047531 0.0953576 -1.099
## as.factor(cigsmoker)Current cigarette smoker 0.0934647 0.1132956 0.825
## ecigscan4level_n -0.0007381 0.0433672 -0.017
## ager_r 0.0404115 0.0115407 3.502
## as.factor(sex)Male 0.1896785 0.0314327 6.034
## as.factor(race4cat_n)1 -0.0202357 0.0420840 -0.481
## as.factor(race4cat_n)2 0.0322395 0.0468955 0.687
## as.factor(race4cat_n)3 0.0378783 0.0531067 0.713
## goodgrades_n -0.0229339 0.0213062 -1.076
## paredu_n -0.0197076 0.0134992 -1.460
## as.factor(hhuse_vap)Yes 0.2405990 0.0500104 4.811
## as.factor(hhuse_vap)Lives alone -0.2607510 0.1518559 -1.717
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.027741 *
## as.factor(valscan_ecig_3lev_n)2 0.399636
## as.factor(valscan_ecig_3lev_n)3 0.272085
## as.factor(cigsmoker)Current cigarette smoker 0.409476
## ecigscan4level_n 0.986422
## ager_r 0.000471 ***
## as.factor(sex)Male 1.85e-09 ***
## as.factor(race4cat_n)1 0.630674
## as.factor(race4cat_n)2 0.491851
## as.factor(race4cat_n)3 0.475762
## goodgrades_n 0.281862
## paredu_n 0.144448
## as.factor(hhuse_vap)Yes 1.60e-06 ***
## as.factor(hhuse_vap)Lives alone 0.086092 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4425841)
##
## Null deviance: 1093.8 on 2383 degrees of freedom
## Residual deviance: 1048.5 on 2369 degrees of freedom
## (556 observations deleted due to missingness)
## AIC: 6021.9
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7042 -0.5175 0.3078 0.5212 4.4450
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.876111 0.160724 17.895
## as.factor(valscan_ecig_3lev_n)1 0.138716 0.078465 1.768
## as.factor(valscan_ecig_3lev_n)2 0.027170 0.078379 0.347
## as.factor(valscan_ecig_3lev_n)3 -0.136590 0.093669 -1.458
## as.factor(cigsmoker)Current cigarette smoker -0.011646 0.038046 -0.306
## ecigscan4level_n -0.025354 0.038341 -0.661
## ager_r -0.021086 0.005888 -3.581
## as.factor(sex)Male 0.077364 0.028858 2.681
## as.factor(race4cat_n)1 -0.174604 0.038357 -4.552
## as.factor(race4cat_n)2 -0.074360 0.041495 -1.792
## as.factor(race4cat_n)3 -0.124217 0.045021 -2.759
## goodgrades_n 0.020018 0.018390 1.088
## paredu_n 0.004111 0.011836 0.347
## as.factor(hhuse_vap)Yes 0.058945 0.059624 0.989
## as.factor(hhuse_vap)Lives alone -0.012993 0.035082 -0.370
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.077198 .
## as.factor(valscan_ecig_3lev_n)2 0.728884
## as.factor(valscan_ecig_3lev_n)3 0.144899
## as.factor(cigsmoker)Current cigarette smoker 0.759543
## ecigscan4level_n 0.508493
## ager_r 0.000348 ***
## as.factor(sex)Male 0.007388 **
## as.factor(race4cat_n)1 5.55e-06 ***
## as.factor(race4cat_n)2 0.073241 .
## as.factor(race4cat_n)3 0.005836 **
## goodgrades_n 0.276482
## paredu_n 0.728379
## as.factor(hhuse_vap)Yes 0.322945
## as.factor(hhuse_vap)Lives alone 0.711144
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.6186313)
##
## Null deviance: 1683.7 on 2672 degrees of freedom
## Residual deviance: 1644.3 on 2658 degrees of freedom
## (301 observations deleted due to missingness)
## AIC: 6203
##
## Number of Fisher Scoring iterations: 2## qn46_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 158 1250 2579 657
## 1 44 208 327 93
## 2 23 219 444 125
## 3 5 49 147 68##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.6882 -0.5267 0.0960 0.2473 2.3727
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.629173 0.066829 39.342
## as.factor(valscan_ecig_3lev_n)1 -0.081053 0.055255 -1.467
## as.factor(valscan_ecig_3lev_n)2 -0.043611 0.052141 -0.836
## as.factor(valscan_ecig_3lev_n)3 0.194987 0.062717 3.109
## as.factor(cigsmoker)Current cigarette smoker -0.161870 0.031651 -5.114
## ecigscan4level_n 0.037050 0.026861 1.379
## as.factor(age2cat)18-25 -0.062396 0.021887 -2.851
## as.factor(sex)Male -0.024285 0.019926 -1.219
## as.factor(race4cat_n)1 -0.012197 0.026383 -0.462
## as.factor(race4cat_n)2 -0.114487 0.029132 -3.930
## as.factor(race4cat_n)3 -0.033193 0.031963 -1.038
## goodgrades_n 0.059069 0.012968 4.555
## paredu_n 0.014571 0.008252 1.766
## as.factor(hhuse_vap)Yes -0.095845 0.036629 -2.617
## as.factor(hhuse_vap)Lives alone -0.052768 0.029429 -1.793
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.14247
## as.factor(valscan_ecig_3lev_n)2 0.40297
## as.factor(valscan_ecig_3lev_n)3 0.00189 **
## as.factor(cigsmoker)Current cigarette smoker 3.27e-07 ***
## ecigscan4level_n 0.16786
## as.factor(age2cat)18-25 0.00438 **
## as.factor(sex)Male 0.22298
## as.factor(race4cat_n)1 0.64389
## as.factor(race4cat_n)2 8.61e-05 ***
## as.factor(race4cat_n)3 0.29910
## goodgrades_n 5.37e-06 ***
## paredu_n 0.07750 .
## as.factor(hhuse_vap)Yes 0.00891 **
## as.factor(hhuse_vap)Lives alone 0.07302 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4728819)
##
## Null deviance: 2444.4 on 5033 degrees of freedom
## Residual deviance: 2373.4 on 5019 degrees of freedom
## (880 observations deleted due to missingness)
## AIC: 11601
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.7320 -0.5215 0.0960 0.2557 2.4012
##
## Coefficients:
## Estimate
## (Intercept) 2.662627
## as.factor(valscan_ecig_3lev_n)1 -0.239288
## as.factor(valscan_ecig_3lev_n)2 -0.092929
## as.factor(valscan_ecig_3lev_n)3 0.081554
## as.factor(age2cat)18-25 -0.104241
## as.factor(cigsmoker)Current cigarette smoker -0.164870
## ecigscan4level_n 0.034766
## as.factor(sex)Male -0.025019
## as.factor(race4cat_n)1 -0.012253
## as.factor(race4cat_n)2 -0.114341
## as.factor(race4cat_n)3 -0.033829
## goodgrades_n 0.056889
## paredu_n 0.015414
## as.factor(hhuse_vap)Yes -0.094146
## as.factor(hhuse_vap)Lives alone -0.051882
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.243618
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.087484
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.199260
## Std. Error t value
## (Intercept) 0.067349 39.535
## as.factor(valscan_ecig_3lev_n)1 0.073498 -3.256
## as.factor(valscan_ecig_3lev_n)2 0.061142 -1.520
## as.factor(valscan_ecig_3lev_n)3 0.084757 0.962
## as.factor(age2cat)18-25 0.024979 -4.173
## as.factor(cigsmoker)Current cigarette smoker 0.031626 -5.213
## ecigscan4level_n 0.026972 1.289
## as.factor(sex)Male 0.019908 -1.257
## as.factor(race4cat_n)1 0.026362 -0.465
## as.factor(race4cat_n)2 0.029128 -3.926
## as.factor(race4cat_n)3 0.031930 -1.059
## goodgrades_n 0.012968 4.387
## paredu_n 0.008247 1.869
## as.factor(hhuse_vap)Yes 0.036592 -2.573
## as.factor(hhuse_vap)Lives alone 0.029399 -1.765
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.071976 3.385
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.061673 1.419
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.099573 2.001
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.001139 **
## as.factor(valscan_ecig_3lev_n)2 0.128602
## as.factor(valscan_ecig_3lev_n)3 0.335990
## as.factor(age2cat)18-25 3.05e-05 ***
## as.factor(cigsmoker)Current cigarette smoker 1.93e-07 ***
## ecigscan4level_n 0.197467
## as.factor(sex)Male 0.208909
## as.factor(race4cat_n)1 0.642115
## as.factor(race4cat_n)2 8.77e-05 ***
## as.factor(race4cat_n)3 0.289439
## goodgrades_n 1.17e-05 ***
## paredu_n 0.061673 .
## as.factor(hhuse_vap)Yes 0.010115 *
## as.factor(hhuse_vap)Lives alone 0.077660 .
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.000718 ***
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.156099
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.045432 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4717329)
##
## Null deviance: 2444.4 on 5033 degrees of freedom
## Residual deviance: 2366.2 on 5016 degrees of freedom
## (880 observations deleted due to missingness)
## AIC: 11592
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.5883 -0.2864 0.0432 0.2014 2.2266
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.955315 0.194056 15.229
## as.factor(valscan_ecig_3lev_n)1 -0.173392 0.083508 -2.076
## as.factor(valscan_ecig_3lev_n)2 -0.038450 0.071265 -0.540
## as.factor(valscan_ecig_3lev_n)3 0.131039 0.088079 1.488
## as.factor(cigsmoker)Current cigarette smoker -0.168114 0.097600 -1.722
## ecigscan4level_n -0.005162 0.039797 -0.130
## ager_r -0.020626 0.010608 -1.944
## as.factor(sex)Male -0.073550 0.028925 -2.543
## as.factor(race4cat_n)1 -0.047006 0.038618 -1.217
## as.factor(race4cat_n)2 -0.159907 0.043493 -3.677
## as.factor(race4cat_n)3 -0.088886 0.048701 -1.825
## goodgrades_n 0.058410 0.019583 2.983
## paredu_n 0.033685 0.012368 2.723
## as.factor(hhuse_vap)Yes -0.084859 0.045821 -1.852
## as.factor(hhuse_vap)Lives alone -0.205739 0.139491 -1.475
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.037969 *
## as.factor(valscan_ecig_3lev_n)2 0.589564
## as.factor(valscan_ecig_3lev_n)3 0.136951
## as.factor(cigsmoker)Current cigarette smoker 0.085112 .
## ecigscan4level_n 0.896814
## ager_r 0.051957 .
## as.factor(sex)Male 0.011059 *
## as.factor(race4cat_n)1 0.223651
## as.factor(race4cat_n)2 0.000242 ***
## as.factor(race4cat_n)3 0.068110 .
## goodgrades_n 0.002887 **
## paredu_n 0.006508 **
## as.factor(hhuse_vap)Yes 0.064155 .
## as.factor(hhuse_vap)Lives alone 0.140365
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.3737162)
##
## Null deviance: 915.99 on 2379 degrees of freedom
## Residual deviance: 883.84 on 2365 degrees of freedom
## (560 observations deleted due to missingness)
## AIC: 5612.6
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7746 -0.6449 0.1586 0.2917 2.3617
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.408763 0.152883 15.756
## as.factor(valscan_ecig_3lev_n)1 -0.027972 0.074822 -0.374
## as.factor(valscan_ecig_3lev_n)2 -0.041075 0.075158 -0.547
## as.factor(valscan_ecig_3lev_n)3 0.250249 0.088690 2.822
## as.factor(cigsmoker)Current cigarette smoker -0.173773 0.036386 -4.776
## ecigscan4level_n 0.056741 0.036846 1.540
## ager_r 0.007936 0.005607 1.415
## as.factor(sex)Male 0.005481 0.027527 0.199
## as.factor(race4cat_n)1 0.018235 0.036411 0.501
## as.factor(race4cat_n)2 -0.079784 0.039649 -2.012
## as.factor(race4cat_n)3 0.004303 0.042928 0.100
## goodgrades_n 0.054032 0.017541 3.080
## paredu_n 0.004208 0.011258 0.374
## as.factor(hhuse_vap)Yes -0.112120 0.056869 -1.972
## as.factor(hhuse_vap)Lives alone -0.056695 0.033303 -1.702
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.70855
## as.factor(valscan_ecig_3lev_n)2 0.58476
## as.factor(valscan_ecig_3lev_n)3 0.00481 **
## as.factor(cigsmoker)Current cigarette smoker 1.89e-06 ***
## ecigscan4level_n 0.12369
## ager_r 0.15708
## as.factor(sex)Male 0.84219
## as.factor(race4cat_n)1 0.61653
## as.factor(race4cat_n)2 0.04429 *
## as.factor(race4cat_n)3 0.92016
## goodgrades_n 0.00209 **
## paredu_n 0.70860
## as.factor(hhuse_vap)Yes 0.04876 *
## as.factor(hhuse_vap)Lives alone 0.08880 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5584889)
##
## Null deviance: 1515.6 on 2650 degrees of freedom
## Residual deviance: 1472.2 on 2636 degrees of freedom
## (323 observations deleted due to missingness)
## AIC: 5878.9
##
## Number of Fisher Scoring iterations: 2## qn47_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 377 1633 2376 273
## 1 50 151 377 101
## 2 50 246 469 54
## 3 36 103 117 13##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.6877 -0.4781 0.2429 0.4435 4.1949
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.440008 0.068021 35.872
## as.factor(valscan_ecig_3lev_n)1 0.089541 0.056468 1.586
## as.factor(valscan_ecig_3lev_n)2 0.049660 0.053330 0.931
## as.factor(valscan_ecig_3lev_n)3 -0.212403 0.064251 -3.306
## as.factor(cigsmoker)Current cigarette smoker -0.004955 0.032403 -0.153
## ecigscan4level_n 0.041428 0.027356 1.514
## as.factor(age2cat)18-25 0.084359 0.022392 3.767
## as.factor(sex)Male 0.058755 0.020388 2.882
## as.factor(race4cat_n)1 -0.137657 0.027142 -5.072
## as.factor(race4cat_n)2 -0.111946 0.029750 -3.763
## as.factor(race4cat_n)3 -0.071789 0.032653 -2.199
## goodgrades_n -0.001265 0.013198 -0.096
## paredu_n 0.015849 0.008457 1.874
## as.factor(hhuse_vap)Yes 0.200903 0.037507 5.356
## as.factor(hhuse_vap)Lives alone -0.031715 0.030172 -1.051
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.112872
## as.factor(valscan_ecig_3lev_n)2 0.351809
## as.factor(valscan_ecig_3lev_n)3 0.000954 ***
## as.factor(cigsmoker)Current cigarette smoker 0.878465
## ecigscan4level_n 0.129985
## as.factor(age2cat)18-25 0.000167 ***
## as.factor(sex)Male 0.003970 **
## as.factor(race4cat_n)1 4.08e-07 ***
## as.factor(race4cat_n)2 0.000170 ***
## as.factor(race4cat_n)3 0.027958 *
## goodgrades_n 0.923649
## paredu_n 0.060973 .
## as.factor(hhuse_vap)Yes 8.87e-08 ***
## as.factor(hhuse_vap)Lives alone 0.293247
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.498334)
##
## Null deviance: 2593.5 on 5062 degrees of freedom
## Residual deviance: 2515.6 on 5048 degrees of freedom
## (851 observations deleted due to missingness)
## AIC: 11923
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.6919 -0.4801 0.2446 0.4445 4.1772
##
## Coefficients:
## Estimate
## (Intercept) 2.4260445
## as.factor(valscan_ecig_3lev_n)1 0.1699349
## as.factor(valscan_ecig_3lev_n)2 0.0593188
## as.factor(valscan_ecig_3lev_n)3 -0.1849264
## as.factor(age2cat)18-25 0.0997287
## as.factor(cigsmoker)Current cigarette smoker -0.0041274
## ecigscan4level_n 0.0415326
## as.factor(sex)Male 0.0587650
## as.factor(race4cat_n)1 -0.1377261
## as.factor(race4cat_n)2 -0.1109902
## as.factor(race4cat_n)3 -0.0714057
## goodgrades_n -0.0002383
## paredu_n 0.0157247
## as.factor(hhuse_vap)Yes 0.2009224
## as.factor(hhuse_vap)Lives alone -0.0321104
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.1220850
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.0154980
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.0468759
## Std. Error t value
## (Intercept) 0.0686908 35.318
## as.factor(valscan_ecig_3lev_n)1 0.0744454 2.283
## as.factor(valscan_ecig_3lev_n)2 0.0627203 0.946
## as.factor(valscan_ecig_3lev_n)3 0.0864545 -2.139
## as.factor(age2cat)18-25 0.0256441 3.889
## as.factor(cigsmoker)Current cigarette smoker 0.0324096 -0.127
## ecigscan4level_n 0.0275007 1.510
## as.factor(sex)Male 0.0203950 2.881
## as.factor(race4cat_n)1 0.0271547 -5.072
## as.factor(race4cat_n)2 0.0297852 -3.726
## as.factor(race4cat_n)3 0.0326613 -2.186
## goodgrades_n 0.0132160 -0.018
## paredu_n 0.0084622 1.858
## as.factor(hhuse_vap)Yes 0.0375161 5.356
## as.factor(hhuse_vap)Lives alone 0.0301764 -1.064
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.0730431 -1.671
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.0632109 -0.245
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.1022242 -0.459
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.022491 *
## as.factor(valscan_ecig_3lev_n)2 0.344313
## as.factor(valscan_ecig_3lev_n)3 0.032483 *
## as.factor(age2cat)18-25 0.000102 ***
## as.factor(cigsmoker)Current cigarette smoker 0.898667
## ecigscan4level_n 0.131045
## as.factor(sex)Male 0.003977 **
## as.factor(race4cat_n)1 4.08e-07 ***
## as.factor(race4cat_n)2 0.000196 ***
## as.factor(race4cat_n)3 0.028843 *
## goodgrades_n 0.985613
## paredu_n 0.063195 .
## as.factor(hhuse_vap)Yes 8.90e-08 ***
## as.factor(hhuse_vap)Lives alone 0.287339
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.094702 .
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.806328
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.646570
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4983438)
##
## Null deviance: 2593.5 on 5062 degrees of freedom
## Residual deviance: 2514.1 on 5045 degrees of freedom
## (851 observations deleted due to missingness)
## AIC: 11926
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7892 -0.3936 0.1796 0.3869 3.2537
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.787982 0.200288 8.927
## as.factor(valscan_ecig_3lev_n)1 0.195508 0.086465 2.261
## as.factor(valscan_ecig_3lev_n)2 0.083864 0.074521 1.125
## as.factor(valscan_ecig_3lev_n)3 -0.149434 0.091427 -1.634
## as.factor(cigsmoker)Current cigarette smoker -0.118659 0.101816 -1.165
## ecigscan4level_n 0.020629 0.041453 0.498
## ager_r 0.043362 0.011037 3.929
## as.factor(sex)Male 0.097889 0.030297 3.231
## as.factor(race4cat_n)1 -0.063855 0.040572 -1.574
## as.factor(race4cat_n)2 -0.075887 0.045275 -1.676
## as.factor(race4cat_n)3 -0.009260 0.051250 -0.181
## goodgrades_n -0.007288 0.020261 -0.360
## paredu_n 0.002851 0.012949 0.220
## as.factor(hhuse_vap)Yes 0.272097 0.047992 5.670
## as.factor(hhuse_vap)Lives alone -0.036131 0.145835 -0.248
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.02384 *
## as.factor(valscan_ecig_3lev_n)2 0.26054
## as.factor(valscan_ecig_3lev_n)3 0.10230
## as.factor(cigsmoker)Current cigarette smoker 0.24396
## ecigscan4level_n 0.61878
## ager_r 8.78e-05 ***
## as.factor(sex)Male 0.00125 **
## as.factor(race4cat_n)1 0.11565
## as.factor(race4cat_n)2 0.09384 .
## as.factor(race4cat_n)3 0.85663
## goodgrades_n 0.71909
## paredu_n 0.82573
## as.factor(hhuse_vap)Yes 1.60e-08 ***
## as.factor(hhuse_vap)Lives alone 0.80435
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4085959)
##
## Null deviance: 1008.63 on 2381 degrees of freedom
## Residual deviance: 967.15 on 2367 degrees of freedom
## (558 observations deleted due to missingness)
## AIC: 5829.8
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.6841 -0.5350 0.2785 0.4595 4.1836
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.871556 0.154005 18.646
## as.factor(valscan_ecig_3lev_n)1 0.030027 0.075625 0.397
## as.factor(valscan_ecig_3lev_n)2 0.028099 0.075667 0.371
## as.factor(valscan_ecig_3lev_n)3 -0.246391 0.090048 -2.736
## as.factor(cigsmoker)Current cigarette smoker 0.023606 0.036712 0.643
## ecigscan4level_n 0.052448 0.036944 1.420
## ager_r -0.016826 0.005649 -2.978
## as.factor(sex)Male 0.033057 0.027706 1.193
## as.factor(race4cat_n)1 -0.193508 0.036927 -5.240
## as.factor(race4cat_n)2 -0.139748 0.039936 -3.499
## as.factor(race4cat_n)3 -0.116053 0.043022 -2.697
## goodgrades_n 0.004963 0.017666 0.281
## paredu_n 0.022989 0.011365 2.023
## as.factor(hhuse_vap)Yes 0.143372 0.057229 2.505
## as.factor(hhuse_vap)Lives alone -0.020797 0.033667 -0.618
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.691364
## as.factor(valscan_ecig_3lev_n)2 0.710402
## as.factor(valscan_ecig_3lev_n)3 0.006256 **
## as.factor(cigsmoker)Current cigarette smoker 0.520287
## ecigscan4level_n 0.155817
## ager_r 0.002924 **
## as.factor(sex)Male 0.232913
## as.factor(race4cat_n)1 1.73e-07 ***
## as.factor(race4cat_n)2 0.000474 ***
## as.factor(race4cat_n)3 0.007030 **
## goodgrades_n 0.778759
## paredu_n 0.043195 *
## as.factor(hhuse_vap)Yes 0.012297 *
## as.factor(hhuse_vap)Lives alone 0.536803
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5732307)
##
## Null deviance: 1578.4 on 2677 degrees of freedom
## Residual deviance: 1526.5 on 2663 degrees of freedom
## (296 observations deleted due to missingness)
## AIC: 6004.5
##
## Number of Fisher Scoring iterations: 2## qn48c_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 1090 1379 1447 823
## 1 245 145 240 52
## 2 198 272 266 91
## 3 37 94 86 54##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3905 -0.6341 -0.1376 0.6605 3.2978
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.3762676 0.0942058 25.224
## as.factor(valscan_ecig_3lev_n)1 -0.3417314 0.0781707 -4.372
## as.factor(valscan_ecig_3lev_n)2 -0.2230230 0.0737375 -3.025
## as.factor(valscan_ecig_3lev_n)3 -0.0362811 0.0888270 -0.408
## as.factor(cigsmoker)Current cigarette smoker -0.3299860 0.0450046 -7.332
## ecigscan4level_n 0.0868228 0.0379593 2.287
## as.factor(age2cat)18-25 -0.0973124 0.0308776 -3.152
## as.factor(sex)Male -0.0557938 0.0281179 -1.984
## as.factor(race4cat_n)1 0.2103489 0.0372827 5.642
## as.factor(race4cat_n)2 0.0900265 0.0411545 2.188
## as.factor(race4cat_n)3 0.0953883 0.0451053 2.115
## goodgrades_n 0.0476209 0.0182729 2.606
## paredu_n -0.0198918 0.0116778 -1.703
## as.factor(hhuse_vap)Yes -0.2533522 0.0520523 -4.867
## as.factor(hhuse_vap)Lives alone -0.0003845 0.0417647 -0.009
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 1.26e-05 ***
## as.factor(valscan_ecig_3lev_n)2 0.00250 **
## as.factor(valscan_ecig_3lev_n)3 0.68296
## as.factor(cigsmoker)Current cigarette smoker 2.62e-13 ***
## ecigscan4level_n 0.02222 *
## as.factor(age2cat)18-25 0.00163 **
## as.factor(sex)Male 0.04728 *
## as.factor(race4cat_n)1 1.77e-08 ***
## as.factor(race4cat_n)2 0.02875 *
## as.factor(race4cat_n)3 0.03450 *
## goodgrades_n 0.00918 **
## paredu_n 0.08856 .
## as.factor(hhuse_vap)Yes 1.17e-06 ***
## as.factor(hhuse_vap)Lives alone 0.99265
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.9610501)
##
## Null deviance: 5129.1 on 5141 degrees of freedom
## Residual deviance: 4927.3 on 5127 degrees of freedom
## (772 observations deleted due to missingness)
## AIC: 15499
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3994 -0.6360 -0.1327 0.6607 3.3027
##
## Coefficients:
## Estimate
## (Intercept) 2.3841420
## as.factor(valscan_ecig_3lev_n)1 -0.3864616
## as.factor(valscan_ecig_3lev_n)2 -0.2178190
## as.factor(valscan_ecig_3lev_n)3 -0.0904603
## as.factor(age2cat)18-25 -0.1056827
## as.factor(cigsmoker)Current cigarette smoker -0.3305051
## ecigscan4level_n 0.0877056
## as.factor(sex)Male -0.0557520
## as.factor(race4cat_n)1 0.2108095
## as.factor(race4cat_n)2 0.0899984
## as.factor(race4cat_n)3 0.0956075
## goodgrades_n 0.0468278
## paredu_n -0.0196806
## as.factor(hhuse_vap)Yes -0.2531662
## as.factor(hhuse_vap)Lives alone -0.0003835
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.0653009
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.0119311
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.0918685
## Std. Error t value
## (Intercept) 0.0950227 25.090
## as.factor(valscan_ecig_3lev_n)1 0.1037245 -3.726
## as.factor(valscan_ecig_3lev_n)2 0.0863695 -2.522
## as.factor(valscan_ecig_3lev_n)3 0.1200072 -0.754
## as.factor(age2cat)18-25 0.0352611 -2.997
## as.factor(cigsmoker)Current cigarette smoker 0.0450316 -7.339
## ecigscan4level_n 0.0381995 2.296
## as.factor(sex)Male 0.0281317 -1.982
## as.factor(race4cat_n)1 0.0373051 5.651
## as.factor(race4cat_n)2 0.0412112 2.184
## as.factor(race4cat_n)3 0.0451229 2.119
## goodgrades_n 0.0182971 2.559
## paredu_n 0.0116879 -1.684
## as.factor(hhuse_vap)Yes 0.0520765 -4.861
## as.factor(hhuse_vap)Lives alone 0.0417796 -0.009
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.1019475 0.641
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.0871694 -0.137
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.1414357 0.650
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.000197 ***
## as.factor(valscan_ecig_3lev_n)2 0.011701 *
## as.factor(valscan_ecig_3lev_n)3 0.451009
## as.factor(age2cat)18-25 0.002738 **
## as.factor(cigsmoker)Current cigarette smoker 2.48e-13 ***
## ecigscan4level_n 0.021717 *
## as.factor(sex)Male 0.047553 *
## as.factor(race4cat_n)1 1.68e-08 ***
## as.factor(race4cat_n)2 0.029020 *
## as.factor(race4cat_n)3 0.034153 *
## goodgrades_n 0.010517 *
## paredu_n 0.092272 .
## as.factor(hhuse_vap)Yes 1.20e-06 ***
## as.factor(hhuse_vap)Lives alone 0.992677
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.521854
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.891137
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.516017
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.9614541)
##
## Null deviance: 5129.1 on 5141 degrees of freedom
## Residual deviance: 4926.5 on 5124 degrees of freedom
## (772 observations deleted due to missingness)
## AIC: 15504
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.4225 -0.5521 0.0625 0.5357 2.8953
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 3.176328 0.266074 11.938
## as.factor(valscan_ecig_3lev_n)1 -0.349125 0.114679 -3.044
## as.factor(valscan_ecig_3lev_n)2 -0.174354 0.097983 -1.779
## as.factor(valscan_ecig_3lev_n)3 -0.077984 0.121116 -0.644
## as.factor(cigsmoker)Current cigarette smoker -0.412089 0.135750 -3.036
## ecigscan4level_n 0.064555 0.055049 1.173
## ager_r -0.049184 0.014532 -3.385
## as.factor(sex)Male -0.059823 0.039648 -1.509
## as.factor(race4cat_n)1 0.270634 0.052748 5.131
## as.factor(race4cat_n)2 0.041806 0.059689 0.700
## as.factor(race4cat_n)3 -0.082775 0.066984 -1.236
## goodgrades_n 0.022460 0.026832 0.837
## paredu_n 0.003895 0.016954 0.230
## as.factor(hhuse_vap)Yes -0.244487 0.063483 -3.851
## as.factor(hhuse_vap)Lives alone -0.140630 0.193005 -0.729
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.002357 **
## as.factor(valscan_ecig_3lev_n)2 0.075295 .
## as.factor(valscan_ecig_3lev_n)3 0.519717
## as.factor(cigsmoker)Current cigarette smoker 0.002426 **
## ecigscan4level_n 0.241038
## ager_r 0.000724 ***
## as.factor(sex)Male 0.131473
## as.factor(race4cat_n)1 3.12e-07 ***
## as.factor(race4cat_n)2 0.483740
## as.factor(race4cat_n)3 0.216673
## goodgrades_n 0.402631
## paredu_n 0.818299
## as.factor(hhuse_vap)Yes 0.000121 ***
## as.factor(hhuse_vap)Lives alone 0.466296
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.7159063)
##
## Null deviance: 1800.9 on 2429 degrees of freedom
## Residual deviance: 1728.9 on 2415 degrees of freedom
## (510 observations deleted due to missingness)
## AIC: 7310.7
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3412 -0.7478 -0.1727 0.7602 3.1579
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.977036 0.220249 8.976
## as.factor(valscan_ecig_3lev_n)1 -0.333132 0.107780 -3.091
## as.factor(valscan_ecig_3lev_n)2 -0.243317 0.108148 -2.250
## as.factor(valscan_ecig_3lev_n)3 -0.014556 0.127971 -0.114
## as.factor(cigsmoker)Current cigarette smoker -0.326749 0.052610 -6.211
## ecigscan4level_n 0.097544 0.052809 1.847
## ager_r 0.013154 0.008064 1.631
## as.factor(sex)Male -0.051858 0.039524 -1.312
## as.factor(race4cat_n)1 0.180865 0.052499 3.445
## as.factor(race4cat_n)2 0.121149 0.056963 2.127
## as.factor(race4cat_n)3 0.201714 0.061512 3.279
## goodgrades_n 0.059592 0.025132 2.371
## paredu_n -0.033686 0.016236 -2.075
## as.factor(hhuse_vap)Yes -0.273258 0.081949 -3.334
## as.factor(hhuse_vap)Lives alone -0.011904 0.048108 -0.247
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.002016 **
## as.factor(valscan_ecig_3lev_n)2 0.024538 *
## as.factor(valscan_ecig_3lev_n)3 0.909450
## as.factor(cigsmoker)Current cigarette smoker 6.09e-10 ***
## ecigscan4level_n 0.064843 .
## ager_r 0.102973
## as.factor(sex)Male 0.189607
## as.factor(race4cat_n)1 0.000580 ***
## as.factor(race4cat_n)2 0.033528 *
## as.factor(race4cat_n)3 0.001054 **
## goodgrades_n 0.017804 *
## paredu_n 0.038099 *
## as.factor(hhuse_vap)Yes 0.000866 ***
## as.factor(hhuse_vap)Lives alone 0.804586
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 1.175793)
##
## Null deviance: 3302.1 on 2708 degrees of freedom
## Residual deviance: 3167.6 on 2694 degrees of freedom
## (265 observations deleted due to missingness)
## AIC: 8025.8
##
## Number of Fisher Scoring iterations: 2## se_vape_all_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 409 2009 2006 250
## 1 47 236 309 79
## 2 66 366 340 52
## 3 43 128 83 16##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8419 -0.4241 -0.1374 0.5122 3.0437
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.438063 0.067378 36.185
## as.factor(valscan_ecig_3lev_n)1 -0.017934 0.055727 -0.322
## as.factor(valscan_ecig_3lev_n)2 -0.058230 0.052554 -1.108
## as.factor(valscan_ecig_3lev_n)3 -0.229832 0.063215 -3.636
## as.factor(cigsmoker)Current cigarette smoker 0.091922 0.032039 2.869
## ecigscan4level_n 0.051553 0.027037 1.907
## as.factor(age2cat)18-25 0.178324 0.022086 8.074
## as.factor(sex)Male 0.068330 0.020101 3.399
## as.factor(race4cat_n)1 0.020619 0.026680 0.773
## as.factor(race4cat_n)2 0.088877 0.029377 3.025
## as.factor(race4cat_n)3 -0.083179 0.032107 -2.591
## goodgrades_n -0.036854 0.013072 -2.819
## paredu_n -0.016703 0.008343 -2.002
## as.factor(hhuse_vap)Yes 0.194104 0.036988 5.248
## as.factor(hhuse_vap)Lives alone 0.072724 0.029766 2.443
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.747603
## as.factor(valscan_ecig_3lev_n)2 0.267915
## as.factor(valscan_ecig_3lev_n)3 0.000280 ***
## as.factor(cigsmoker)Current cigarette smoker 0.004133 **
## ecigscan4level_n 0.056604 .
## as.factor(age2cat)18-25 8.42e-16 ***
## as.factor(sex)Male 0.000681 ***
## as.factor(race4cat_n)1 0.439663
## as.factor(race4cat_n)2 0.002495 **
## as.factor(race4cat_n)3 0.009605 **
## goodgrades_n 0.004833 **
## paredu_n 0.045341 *
## as.factor(hhuse_vap)Yes 1.60e-07 ***
## as.factor(hhuse_vap)Lives alone 0.014591 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4851775)
##
## Null deviance: 2559.6 on 5068 degrees of freedom
## Residual deviance: 2452.1 on 5054 degrees of freedom
## (845 observations deleted due to missingness)
## AIC: 11803
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[beliefs[x]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8635 -0.4261 -0.1325 0.5123 3.0697
##
## Coefficients:
## Estimate
## (Intercept) 2.415070
## as.factor(valscan_ecig_3lev_n)1 0.096404
## as.factor(valscan_ecig_3lev_n)2 -0.043219
## as.factor(valscan_ecig_3lev_n)3 -0.118069
## as.factor(age2cat)18-25 0.205561
## as.factor(cigsmoker)Current cigarette smoker 0.093768
## ecigscan4level_n 0.051731
## as.factor(sex)Male 0.068587
## as.factor(race4cat_n)1 0.019859
## as.factor(race4cat_n)2 0.088616
## as.factor(race4cat_n)3 -0.083305
## goodgrades_n -0.035087
## paredu_n -0.017241
## as.factor(hhuse_vap)Yes 0.193402
## as.factor(hhuse_vap)Lives alone 0.072442
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.173505
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.024121
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.193686
## Std. Error t value
## (Intercept) 0.067940 35.547
## as.factor(valscan_ecig_3lev_n)1 0.073882 1.305
## as.factor(valscan_ecig_3lev_n)2 0.061657 -0.701
## as.factor(valscan_ecig_3lev_n)3 0.085273 -1.385
## as.factor(age2cat)18-25 0.025229 8.148
## as.factor(cigsmoker)Current cigarette smoker 0.032034 2.927
## ecigscan4level_n 0.027176 1.904
## as.factor(sex)Male 0.020096 3.413
## as.factor(race4cat_n)1 0.026677 0.744
## as.factor(race4cat_n)2 0.029392 3.015
## as.factor(race4cat_n)3 0.032095 -2.596
## goodgrades_n 0.013080 -2.683
## paredu_n 0.008343 -2.067
## as.factor(hhuse_vap)Yes 0.036976 5.231
## as.factor(hhuse_vap)Lives alone 0.029755 2.435
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.072672 -2.388
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.062132 -0.388
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.100531 -1.927
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.192008
## as.factor(valscan_ecig_3lev_n)2 0.483366
## as.factor(valscan_ecig_3lev_n)3 0.166235
## as.factor(age2cat)18-25 4.63e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.003436 **
## ecigscan4level_n 0.057029 .
## as.factor(sex)Male 0.000648 ***
## as.factor(race4cat_n)1 0.456665
## as.factor(race4cat_n)2 0.002583 **
## as.factor(race4cat_n)3 0.009472 **
## goodgrades_n 0.007329 **
## paredu_n 0.038828 *
## as.factor(hhuse_vap)Yes 1.76e-07 ***
## as.factor(hhuse_vap)Lives alone 0.014943 *
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.017000 *
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.697870
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.054082 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4846262)
##
## Null deviance: 2559.6 on 5068 degrees of freedom
## Residual deviance: 2447.8 on 5051 degrees of freedom
## (845 observations deleted due to missingness)
## AIC: 11801
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.78191 -0.31179 -0.09742 0.45009 3.15522
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.768895 0.200581 8.819
## as.factor(valscan_ecig_3lev_n)1 -0.009132 0.086007 -0.106
## as.factor(valscan_ecig_3lev_n)2 -0.136658 0.073619 -1.856
## as.factor(valscan_ecig_3lev_n)3 -0.182418 0.090708 -2.011
## as.factor(cigsmoker)Current cigarette smoker 0.260431 0.104968 2.481
## ecigscan4level_n 0.116159 0.041157 2.822
## ager_r 0.044914 0.010968 4.095
## as.factor(sex)Male 0.101587 0.029891 3.399
## as.factor(race4cat_n)1 0.018308 0.039822 0.460
## as.factor(race4cat_n)2 0.117899 0.044972 2.622
## as.factor(race4cat_n)3 -0.004841 0.050436 -0.096
## goodgrades_n -0.011440 0.020267 -0.564
## paredu_n -0.070197 0.012758 -5.502
## as.factor(hhuse_vap)Yes 0.191635 0.047624 4.024
## as.factor(hhuse_vap)Lives alone 0.036506 0.144699 0.252
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.915452
## as.factor(valscan_ecig_3lev_n)2 0.063537 .
## as.factor(valscan_ecig_3lev_n)3 0.044434 *
## as.factor(cigsmoker)Current cigarette smoker 0.013168 *
## ecigscan4level_n 0.004808 **
## ager_r 4.36e-05 ***
## as.factor(sex)Male 0.000688 ***
## as.factor(race4cat_n)1 0.645747
## as.factor(race4cat_n)2 0.008807 **
## as.factor(race4cat_n)3 0.923543
## goodgrades_n 0.572482
## paredu_n 4.15e-08 ***
## as.factor(hhuse_vap)Yes 5.90e-05 ***
## as.factor(hhuse_vap)Lives alone 0.800838
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4020547)
##
## Null deviance: 1010.02 on 2394 degrees of freedom
## Residual deviance: 956.89 on 2380 degrees of freedom
## (545 observations deleted due to missingness)
## AIC: 5818.3
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[beliefs[x]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_over18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8028 -0.4974 0.2528 0.5277 2.3836
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.633258 0.151163 17.420
## as.factor(valscan_ecig_3lev_n)1 -0.022289 0.074092 -0.301
## as.factor(valscan_ecig_3lev_n)2 -0.009510 0.074220 -0.128
## as.factor(valscan_ecig_3lev_n)3 -0.259484 0.087822 -2.955
## as.factor(cigsmoker)Current cigarette smoker 0.079808 0.035971 2.219
## ecigscan4level_n 0.015159 0.036312 0.417
## ager_r -0.002756 0.005545 -0.497
## as.factor(sex)Male 0.052028 0.027219 1.911
## as.factor(race4cat_n)1 0.011861 0.036180 0.328
## as.factor(race4cat_n)2 0.062477 0.039157 1.596
## as.factor(race4cat_n)3 -0.136849 0.042117 -3.249
## goodgrades_n -0.044800 0.017312 -2.588
## paredu_n 0.015947 0.011178 1.427
## as.factor(hhuse_vap)Yes 0.204420 0.056020 3.649
## as.factor(hhuse_vap)Lives alone 0.076324 0.033035 2.310
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.763566
## as.factor(valscan_ecig_3lev_n)2 0.898052
## as.factor(valscan_ecig_3lev_n)3 0.003158 **
## as.factor(cigsmoker)Current cigarette smoker 0.026593 *
## ecigscan4level_n 0.676368
## ager_r 0.619200
## as.factor(sex)Male 0.056052 .
## as.factor(race4cat_n)1 0.743056
## as.factor(race4cat_n)2 0.110705
## as.factor(race4cat_n)3 0.001172 **
## goodgrades_n 0.009710 **
## paredu_n 0.153810
## as.factor(hhuse_vap)Yes 0.000268 ***
## as.factor(hhuse_vap)Lives alone 0.020944 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5508325)
##
## Null deviance: 1500.3 on 2670 degrees of freedom
## Residual deviance: 1463.0 on 2656 degrees of freedom
## (303 observations deleted due to missingness)
## AIC: 5882.9
##
## Number of Fisher Scoring iterations: 2## qn55a_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 650 2358 1186 594
## 1 42 301 203 142
## 2 49 387 267 124
## 3 22 143 64 42##
## Call:
## glm(formula = survey_reduced_nonsmoker[[norms[y]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.2200 -0.4289 -0.2234 0.5377 3.5618
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.420898 0.080042 30.245
## as.factor(valscan_ecig_3lev_n)1 0.051891 0.066814 0.777
## as.factor(valscan_ecig_3lev_n)2 0.045429 0.063190 0.719
## as.factor(valscan_ecig_3lev_n)3 -0.004236 0.076217 -0.056
## as.factor(cigsmoker)Current cigarette smoker -0.040210 0.038158 -1.054
## ecigscan4level_n 0.104882 0.032451 3.232
## as.factor(age2cat)18-25 0.074322 0.026359 2.820
## as.factor(sex)Male -0.029042 0.024020 -1.209
## as.factor(race4cat_n)1 0.151288 0.031859 4.749
## as.factor(race4cat_n)2 0.053244 0.035100 1.517
## as.factor(race4cat_n)3 0.066355 0.038407 1.728
## goodgrades_n -0.020075 0.015531 -1.293
## paredu_n -0.024806 0.009936 -2.497
## as.factor(hhuse_vap)Yes 0.200062 0.044701 4.476
## as.factor(hhuse_vap)Lives alone -0.026229 0.035546 -0.738
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.43740
## as.factor(valscan_ecig_3lev_n)2 0.47222
## as.factor(valscan_ecig_3lev_n)3 0.95568
## as.factor(cigsmoker)Current cigarette smoker 0.29203
## ecigscan4level_n 0.00124 **
## as.factor(age2cat)18-25 0.00483 **
## as.factor(sex)Male 0.22669
## as.factor(race4cat_n)1 2.10e-06 ***
## as.factor(race4cat_n)2 0.12935
## as.factor(race4cat_n)3 0.08410 .
## goodgrades_n 0.19621
## paredu_n 0.01257 *
## as.factor(hhuse_vap)Yes 7.78e-06 ***
## as.factor(hhuse_vap)Lives alone 0.46063
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.7073833)
##
## Null deviance: 3758.7 on 5186 degrees of freedom
## Residual deviance: 3658.6 on 5172 degrees of freedom
## (727 observations deleted due to missingness)
## AIC: 14041
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[norms[y]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.5076 -0.4331 -0.2208 0.5441 3.5036
##
## Coefficients:
## Estimate
## (Intercept) 2.374379
## as.factor(valscan_ecig_3lev_n)1 0.226187
## as.factor(valscan_ecig_3lev_n)2 0.164272
## as.factor(valscan_ecig_3lev_n)3 0.083667
## as.factor(age2cat)18-25 0.135795
## as.factor(cigsmoker)Current cigarette smoker -0.036893
## ecigscan4level_n 0.113954
## as.factor(sex)Male -0.027125
## as.factor(race4cat_n)1 0.152470
## as.factor(race4cat_n)2 0.052471
## as.factor(race4cat_n)3 0.067360
## goodgrades_n -0.017991
## paredu_n -0.025644
## as.factor(hhuse_vap)Yes 0.197948
## as.factor(hhuse_vap)Lives alone -0.027019
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.286670
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.222540
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.170075
## Std. Error t value
## (Intercept) 0.080679 29.430
## as.factor(valscan_ecig_3lev_n)1 0.088147 2.566
## as.factor(valscan_ecig_3lev_n)2 0.074050 2.218
## as.factor(valscan_ecig_3lev_n)3 0.102703 0.815
## as.factor(age2cat)18-25 0.030069 4.516
## as.factor(cigsmoker)Current cigarette smoker 0.038109 -0.968
## ecigscan4level_n 0.032591 3.497
## as.factor(sex)Male 0.023993 -1.131
## as.factor(race4cat_n)1 0.031822 4.791
## as.factor(race4cat_n)2 0.035088 1.495
## as.factor(race4cat_n)3 0.038354 1.756
## goodgrades_n 0.015530 -1.159
## paredu_n 0.009928 -2.583
## as.factor(hhuse_vap)Yes 0.044642 4.434
## as.factor(hhuse_vap)Lives alone 0.035501 -0.761
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.086381 -3.319
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.074712 -2.979
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.121300 -1.402
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.010316 *
## as.factor(valscan_ecig_3lev_n)2 0.026571 *
## as.factor(valscan_ecig_3lev_n)3 0.415310
## as.factor(age2cat)18-25 6.44e-06 ***
## as.factor(cigsmoker)Current cigarette smoker 0.333039
## ecigscan4level_n 0.000475 ***
## as.factor(sex)Male 0.258313
## as.factor(race4cat_n)1 1.70e-06 ***
## as.factor(race4cat_n)2 0.134868
## as.factor(race4cat_n)3 0.079104 .
## goodgrades_n 0.246708
## paredu_n 0.009823 **
## as.factor(hhuse_vap)Yes 9.44e-06 ***
## as.factor(hhuse_vap)Lives alone 0.446643
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.000911 ***
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.002909 **
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.160946
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.7052606)
##
## Null deviance: 3758.7 on 5186 degrees of freedom
## Residual deviance: 3645.5 on 5169 degrees of freedom
## (727 observations deleted due to missingness)
## AIC: 14028
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[norms[y]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8349 -0.3901 -0.1557 0.4149 3.6013
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 0.7234716 0.2415792 2.995
## as.factor(valscan_ecig_3lev_n)1 0.1897076 0.1046464 1.813
## as.factor(valscan_ecig_3lev_n)2 0.1013678 0.0899499 1.127
## as.factor(valscan_ecig_3lev_n)3 0.0992742 0.1109572 0.895
## as.factor(cigsmoker)Current cigarette smoker -0.0362756 0.1195527 -0.303
## ecigscan4level_n 0.1271365 0.0502821 2.528
## ager_r 0.0991313 0.0132640 7.474
## as.factor(sex)Male -0.1027154 0.0363940 -2.822
## as.factor(race4cat_n)1 0.1023289 0.0483763 2.115
## as.factor(race4cat_n)2 0.0164697 0.0548726 0.300
## as.factor(race4cat_n)3 0.0004734 0.0613629 0.008
## goodgrades_n 0.0278658 0.0243590 1.144
## paredu_n -0.0217011 0.0155047 -1.400
## as.factor(hhuse_vap)Yes 0.2060428 0.0582718 3.536
## as.factor(hhuse_vap)Lives alone -0.1401778 0.1709120 -0.820
## Pr(>|t|)
## (Intercept) 0.002774 **
## as.factor(valscan_ecig_3lev_n)1 0.069980 .
## as.factor(valscan_ecig_3lev_n)2 0.259881
## as.factor(valscan_ecig_3lev_n)3 0.371033
## as.factor(cigsmoker)Current cigarette smoker 0.761590
## ecigscan4level_n 0.011519 *
## ager_r 1.08e-13 ***
## as.factor(sex)Male 0.004807 **
## as.factor(race4cat_n)1 0.034509 *
## as.factor(race4cat_n)2 0.764093
## as.factor(race4cat_n)3 0.993845
## goodgrades_n 0.252751
## paredu_n 0.161748
## as.factor(hhuse_vap)Yes 0.000414 ***
## as.factor(hhuse_vap)Lives alone 0.412197
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.6031968)
##
## Null deviance: 1561.4 on 2432 degrees of freedom
## Residual deviance: 1458.5 on 2418 degrees of freedom
## (507 observations deleted due to missingness)
## AIC: 6905.4
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[norms[y]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8370 -0.4818 -0.2678 0.5815 3.4436
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 3.1504974 0.1776077 17.739
## as.factor(valscan_ecig_3lev_n)1 -0.0494339 0.0874042 -0.566
## as.factor(valscan_ecig_3lev_n)2 -0.0451011 0.0877813 -0.514
## as.factor(valscan_ecig_3lev_n)3 -0.0716278 0.1042254 -0.687
## as.factor(cigsmoker)Current cigarette smoker -0.0298983 0.0423421 -0.706
## ecigscan4level_n 0.1081273 0.0428174 2.525
## ager_r -0.0260439 0.0065028 -4.005
## as.factor(sex)Male 0.0128807 0.0319309 0.403
## as.factor(race4cat_n)1 0.1752357 0.0424888 4.124
## as.factor(race4cat_n)2 0.0811832 0.0458713 1.770
## as.factor(race4cat_n)3 0.0788421 0.0495021 1.593
## goodgrades_n -0.0435410 0.0203153 -2.143
## paredu_n -0.0285285 0.0130720 -2.182
## as.factor(hhuse_vap)Yes 0.1974482 0.0667636 2.957
## as.factor(hhuse_vap)Lives alone 0.0004678 0.0388455 0.012
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.57173
## as.factor(valscan_ecig_3lev_n)2 0.60744
## as.factor(valscan_ecig_3lev_n)3 0.49199
## as.factor(cigsmoker)Current cigarette smoker 0.48018
## ecigscan4level_n 0.01162 *
## ager_r 6.37e-05 ***
## as.factor(sex)Male 0.68669
## as.factor(race4cat_n)1 3.83e-05 ***
## as.factor(race4cat_n)2 0.07687 .
## as.factor(race4cat_n)3 0.11134
## goodgrades_n 0.03218 *
## paredu_n 0.02916 *
## as.factor(hhuse_vap)Yes 0.00313 **
## as.factor(hhuse_vap)Lives alone 0.99039
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.7778058)
##
## Null deviance: 2192.3 on 2750 degrees of freedom
## Residual deviance: 2128.1 on 2736 degrees of freedom
## (223 observations deleted due to missingness)
## AIC: 7016.9
##
## Number of Fisher Scoring iterations: 2## qn53_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 1685 2047 863 119
## 1 132 264 221 56
## 2 224 352 207 28
## 3 120 101 46 4##
## Call:
## glm(formula = survey_reduced_nonsmoker[[norms[y]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.6310 -0.5291 0.0691 0.3266 4.5202
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.110483 0.068946 30.611
## as.factor(valscan_ecig_3lev_n)1 0.083256 0.057501 1.448
## as.factor(valscan_ecig_3lev_n)2 0.004000 0.054087 0.074
## as.factor(valscan_ecig_3lev_n)3 -0.245194 0.064776 -3.785
## as.factor(cigsmoker)Current cigarette smoker 0.618149 0.033325 18.549
## ecigscan4level_n 0.108068 0.027909 3.872
## as.factor(age2cat)18-25 0.178332 0.022544 7.910
## as.factor(sex)Male 0.098905 0.020632 4.794
## as.factor(race4cat_n)1 0.066978 0.027328 2.451
## as.factor(race4cat_n)2 0.045043 0.030168 1.493
## as.factor(race4cat_n)3 0.081551 0.032923 2.477
## goodgrades_n -0.093477 0.013417 -6.967
## paredu_n -0.045546 0.008527 -5.341
## as.factor(hhuse_vap)Yes 0.291042 0.038148 7.629
## as.factor(hhuse_vap)Lives alone 0.118526 0.030721 3.858
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.147700
## as.factor(valscan_ecig_3lev_n)2 0.941052
## as.factor(valscan_ecig_3lev_n)3 0.000155 ***
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.000109 ***
## as.factor(age2cat)18-25 3.13e-15 ***
## as.factor(sex)Male 1.68e-06 ***
## as.factor(race4cat_n)1 0.014284 *
## as.factor(race4cat_n)2 0.135475
## as.factor(race4cat_n)3 0.013280 *
## goodgrades_n 3.65e-12 ***
## paredu_n 9.62e-08 ***
## as.factor(hhuse_vap)Yes 2.80e-14 ***
## as.factor(hhuse_vap)Lives alone 0.000116 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.511583)
##
## Null deviance: 3100.4 on 5098 degrees of freedom
## Residual deviance: 2600.9 on 5084 degrees of freedom
## (815 observations deleted due to missingness)
## AIC: 12161
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker[[norms[y]]] ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.6437 -0.5313 0.0643 0.3252 4.5434
##
## Coefficients:
## Estimate
## (Intercept) 2.096041
## as.factor(valscan_ecig_3lev_n)1 0.119958
## as.factor(valscan_ecig_3lev_n)2 0.045645
## as.factor(valscan_ecig_3lev_n)3 -0.211025
## as.factor(age2cat)18-25 0.197070
## as.factor(cigsmoker)Current cigarette smoker 0.619624
## ecigscan4level_n 0.111289
## as.factor(sex)Male 0.099697
## as.factor(race4cat_n)1 0.067465
## as.factor(race4cat_n)2 0.044437
## as.factor(race4cat_n)3 0.081782
## goodgrades_n -0.092730
## paredu_n -0.045861
## as.factor(hhuse_vap)Yes 0.290146
## as.factor(hhuse_vap)Lives alone 0.118169
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.064085
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.079856
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.065767
## Std. Error t value
## (Intercept) 0.069688 30.078
## as.factor(valscan_ecig_3lev_n)1 0.075772 1.583
## as.factor(valscan_ecig_3lev_n)2 0.063270 0.721
## as.factor(valscan_ecig_3lev_n)3 0.087692 -2.406
## as.factor(age2cat)18-25 0.025779 7.645
## as.factor(cigsmoker)Current cigarette smoker 0.033344 18.583
## ecigscan4level_n 0.028058 3.966
## as.factor(sex)Male 0.020642 4.830
## as.factor(race4cat_n)1 0.027344 2.467
## as.factor(race4cat_n)2 0.030203 1.471
## as.factor(race4cat_n)3 0.032931 2.483
## goodgrades_n 0.013441 -6.899
## paredu_n 0.008533 -5.375
## as.factor(hhuse_vap)Yes 0.038158 7.604
## as.factor(hhuse_vap)Lives alone 0.030730 3.845
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.074099 -0.865
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.064242 -1.243
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.103068 -0.638
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.113454
## as.factor(valscan_ecig_3lev_n)2 0.470679
## as.factor(valscan_ecig_3lev_n)3 0.016145 *
## as.factor(age2cat)18-25 2.49e-14 ***
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 7.40e-05 ***
## as.factor(sex)Male 1.41e-06 ***
## as.factor(race4cat_n)1 0.013647 *
## as.factor(race4cat_n)2 0.141277
## as.factor(race4cat_n)3 0.013044 *
## goodgrades_n 5.87e-12 ***
## paredu_n 8.02e-08 ***
## as.factor(hhuse_vap)Yes 3.41e-14 ***
## as.factor(hhuse_vap)Lives alone 0.000122 ***
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.387163
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.213908
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.523440
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5116551)
##
## Null deviance: 3100.4 on 5098 degrees of freedom
## Residual deviance: 2599.7 on 5081 degrees of freedom
## (815 observations deleted due to missingness)
## AIC: 12165
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker[[norms[y]]] ~
## as.factor(valscan_ecig_3lev_n) + as.factor(cigsmoker) + ecigscan4level_n +
## ager_r + as.factor(sex) + as.factor(race4cat_n) + goodgrades_n +
## paredu_n + as.factor(hhuse_vap), data = survey_reduced_under18_nonsmoker,
## weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.0355 -0.4380 -0.0098 0.2992 4.6163
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 0.912342 0.191954 4.753
## as.factor(valscan_ecig_3lev_n)1 0.107421 0.083906 1.280
## as.factor(valscan_ecig_3lev_n)2 0.013892 0.071659 0.194
## as.factor(valscan_ecig_3lev_n)3 -0.192163 0.088467 -2.172
## as.factor(cigsmoker)Current cigarette smoker 0.512569 0.096875 5.291
## ecigscan4level_n 0.117039 0.040221 2.910
## ager_r 0.074998 0.010578 7.090
## as.factor(sex)Male 0.030166 0.029038 1.039
## as.factor(race4cat_n)1 0.073957 0.038657 1.913
## as.factor(race4cat_n)2 0.061508 0.043727 1.407
## as.factor(race4cat_n)3 0.002435 0.048951 0.050
## goodgrades_n -0.060556 0.019492 -3.107
## paredu_n -0.062333 0.012410 -5.023
## as.factor(hhuse_vap)Yes 0.305144 0.046328 6.587
## as.factor(hhuse_vap)Lives alone 0.034437 0.134615 0.256
## Pr(>|t|)
## (Intercept) 2.12e-06 ***
## as.factor(valscan_ecig_3lev_n)1 0.20058
## as.factor(valscan_ecig_3lev_n)2 0.84631
## as.factor(valscan_ecig_3lev_n)3 0.02994 *
## as.factor(cigsmoker)Current cigarette smoker 1.33e-07 ***
## ecigscan4level_n 0.00365 **
## ager_r 1.76e-12 ***
## as.factor(sex)Male 0.29898
## as.factor(race4cat_n)1 0.05584 .
## as.factor(race4cat_n)2 0.15967
## as.factor(race4cat_n)3 0.96032
## goodgrades_n 0.00191 **
## paredu_n 5.46e-07 ***
## as.factor(hhuse_vap)Yes 5.51e-11 ***
## as.factor(hhuse_vap)Lives alone 0.79812
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.3817118)
##
## Null deviance: 1026.92 on 2413 degrees of freedom
## Residual deviance: 915.73 on 2399 degrees of freedom
## (526 observations deleted due to missingness)
## AIC: 5741.5
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker[[norms[y]]] ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(cigsmoker) + ecigscan4level_n + ager_r + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker, weights = weight1_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.6486 -0.6546 0.0747 0.3431 4.4169
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.212852 0.160799 13.762
## as.factor(valscan_ecig_3lev_n)1 0.062720 0.079121 0.793
## as.factor(valscan_ecig_3lev_n)2 -0.028126 0.079233 -0.355
## as.factor(valscan_ecig_3lev_n)3 -0.268852 0.092741 -2.899
## as.factor(cigsmoker)Current cigarette smoker 0.616610 0.038880 15.859
## ecigscan4level_n 0.105076 0.038762 2.711
## ager_r 0.003512 0.005879 0.597
## as.factor(sex)Male 0.143090 0.028929 4.946
## as.factor(race4cat_n)1 0.062215 0.038356 1.622
## as.factor(race4cat_n)2 0.037585 0.041603 0.903
## as.factor(race4cat_n)3 0.108859 0.044679 2.437
## goodgrades_n -0.107470 0.018534 -5.798
## paredu_n -0.031418 0.011788 -2.665
## as.factor(hhuse_vap)Yes 0.282096 0.060058 4.697
## as.factor(hhuse_vap)Lives alone 0.112206 0.035220 3.186
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.42802
## as.factor(valscan_ecig_3lev_n)2 0.72263
## as.factor(valscan_ecig_3lev_n)3 0.00377 **
## as.factor(cigsmoker)Current cigarette smoker < 2e-16 ***
## ecigscan4level_n 0.00675 **
## ager_r 0.55032
## as.factor(sex)Male 8.04e-07 ***
## as.factor(race4cat_n)1 0.10492
## as.factor(race4cat_n)2 0.36638
## as.factor(race4cat_n)3 0.01490 *
## goodgrades_n 7.48e-09 ***
## paredu_n 0.00774 **
## as.factor(hhuse_vap)Yes 2.77e-06 ***
## as.factor(hhuse_vap)Lives alone 0.00146 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.6200891)
##
## Null deviance: 1973.4 on 2681 degrees of freedom
## Residual deviance: 1653.8 on 2667 degrees of freedom
## (292 observations deleted due to missingness)
## AIC: 6237.8
##
## Number of Fisher Scoring iterations: 2## valscan_ecig_3lev_n
## 0 1 2 3
## 1063 179 181 56## ecigsmoker
## valscan_ecig_3lev_n Not current e-cigarette user Current e-cigarette user
## 0 991 70
## 1 138 41
## 2 162 19
## 3 53 3## ecigsmokerx
## valscan_ecig_3lev_n Not current e-cigarette user Current e-cigarette user
## 0 988 74
## 1 142 37
## 2 166 15
## 3 54 2##
## Call:
## glm(formula = as.factor(ecigsmokerx) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(ecigsmoker) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(age2cat) + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), family = binomial,
## data = survey_reduced_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7265 -0.3828 -0.2545 -0.1627 4.5536
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -3.00603 0.67969 -4.423
## as.factor(valscan_ecig_3lev_n)1 -0.08568 0.46069 -0.186
## as.factor(valscan_ecig_3lev_n)2 -1.10187 0.48477 -2.273
## as.factor(valscan_ecig_3lev_n)3 -1.31990 0.76457 -1.726
## as.factor(ecigsmoker)Current e-cigarette user 1.64677 0.22743 7.241
## as.factor(cigsmoker)Current cigarette smoker 1.62299 0.22690 7.153
## ecigscan4level_n 0.61353 0.21047 2.915
## as.factor(age2cat)18-25 -0.30511 0.24129 -1.264
## as.factor(sex)Male -0.02167 0.20653 -0.105
## as.factor(race4cat_n)1 -0.73401 0.28730 -2.555
## as.factor(race4cat_n)2 -0.09559 0.33590 -0.285
## as.factor(race4cat_n)3 -0.09313 0.31982 -0.291
## goodgrades_n -0.05173 0.12654 -0.409
## paredu_n 0.09912 0.08159 1.215
## as.factor(hhuse_vap)Yes 0.96072 0.27911 3.442
## as.factor(hhuse_vap)Lives alone 1.00594 0.25667 3.919
## Pr(>|z|)
## (Intercept) 9.75e-06 ***
## as.factor(valscan_ecig_3lev_n)1 0.852468
## as.factor(valscan_ecig_3lev_n)2 0.023027 *
## as.factor(valscan_ecig_3lev_n)3 0.084288 .
## as.factor(ecigsmoker)Current e-cigarette user 4.47e-13 ***
## as.factor(cigsmoker)Current cigarette smoker 8.50e-13 ***
## ecigscan4level_n 0.003557 **
## as.factor(age2cat)18-25 0.206055
## as.factor(sex)Male 0.916428
## as.factor(race4cat_n)1 0.010623 *
## as.factor(race4cat_n)2 0.775967
## as.factor(race4cat_n)3 0.770910
## goodgrades_n 0.682664
## paredu_n 0.224421
## as.factor(hhuse_vap)Yes 0.000577 ***
## as.factor(hhuse_vap)Lives alone 8.88e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1027.24 on 1274 degrees of freedom
## Residual deviance: 734.58 on 1259 degrees of freedom
## (229 observations deleted due to missingness)
## AIC: 762.73
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigsmokerx) ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat) + as.factor(ecigsmoker) + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), family = binomial,
## data = survey_reduced_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.7445 -0.3847 -0.2501 -0.1604 4.5363
##
## Coefficients:
## Estimate
## (Intercept) -3.06821
## as.factor(valscan_ecig_3lev_n)1 -0.02343
## as.factor(valscan_ecig_3lev_n)2 -0.75634
## as.factor(valscan_ecig_3lev_n)3 -1.08097
## as.factor(age2cat)18-25 -0.21124
## as.factor(ecigsmoker)Current e-cigarette user 1.65367
## as.factor(cigsmoker)Current cigarette smoker 1.61388
## ecigscan4level_n 0.61725
## as.factor(sex)Male -0.01851
## as.factor(race4cat_n)1 -0.73430
## as.factor(race4cat_n)2 -0.08785
## as.factor(race4cat_n)3 -0.09006
## goodgrades_n -0.05150
## paredu_n 0.09635
## as.factor(hhuse_vap)Yes 0.96204
## as.factor(hhuse_vap)Lives alone 1.01098
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 -0.09760
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 -0.51148
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 -0.34224
## Std. Error z value
## (Intercept) 0.69393 -4.421
## as.factor(valscan_ecig_3lev_n)1 0.60175 -0.039
## as.factor(valscan_ecig_3lev_n)2 0.65449 -1.156
## as.factor(valscan_ecig_3lev_n)3 1.26843 -0.852
## as.factor(age2cat)18-25 0.29919 -0.706
## as.factor(ecigsmoker)Current e-cigarette user 0.22834 7.242
## as.factor(cigsmoker)Current cigarette smoker 0.22770 7.088
## ecigscan4level_n 0.21044 2.933
## as.factor(sex)Male 0.20683 -0.090
## as.factor(race4cat_n)1 0.28775 -2.552
## as.factor(race4cat_n)2 0.33612 -0.261
## as.factor(race4cat_n)3 0.32122 -0.280
## goodgrades_n 0.12693 -0.406
## paredu_n 0.08180 1.178
## as.factor(hhuse_vap)Yes 0.27952 3.442
## as.factor(hhuse_vap)Lives alone 0.25783 3.921
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.53180 -0.184
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.66585 -0.768
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 1.48198 -0.231
## Pr(>|z|)
## (Intercept) 9.80e-06 ***
## as.factor(valscan_ecig_3lev_n)1 0.968935
## as.factor(valscan_ecig_3lev_n)2 0.247832
## as.factor(valscan_ecig_3lev_n)3 0.394097
## as.factor(age2cat)18-25 0.480153
## as.factor(ecigsmoker)Current e-cigarette user 4.41e-13 ***
## as.factor(cigsmoker)Current cigarette smoker 1.36e-12 ***
## ecigscan4level_n 0.003355 **
## as.factor(sex)Male 0.928680
## as.factor(race4cat_n)1 0.010714 *
## as.factor(race4cat_n)2 0.793801
## as.factor(race4cat_n)3 0.779189
## goodgrades_n 0.684950
## paredu_n 0.238833
## as.factor(hhuse_vap)Yes 0.000578 ***
## as.factor(hhuse_vap)Lives alone 8.81e-05 ***
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat)18-25 0.854378
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat)18-25 0.442396
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat)18-25 0.817366
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1027.24 on 1274 degrees of freedom
## Residual deviance: 733.98 on 1256 degrees of freedom
## (229 observations deleted due to missingness)
## AIC: 768.26
##
## Number of Fisher Scoring iterations: 5## ecigint
## valscan_ecig_3lev_n Definitely no intention to vape Some intention to vape
## 0 861 129
## 1 102 36
## 2 121 41
## 3 42 11## ecigintx
## valscan_ecig_3lev_n Definitely no intention to vape Some intention to vape
## 0 838 152
## 1 95 43
## 2 117 45
## 3 46 7##
## Call:
## glm(formula = as.factor(ecigintx) ~ as.factor(valscan_ecig_3lev_n) +
## as.factor(ecigint) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(age2cat_t1x) + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), family = binomial,
## data = survey_reduced_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.8201 -0.5261 -0.3216 -0.1572 3.8713
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) -0.00780 0.58513 -0.013
## as.factor(valscan_ecig_3lev_n)1 1.16096 0.41673 2.786
## as.factor(valscan_ecig_3lev_n)2 0.57995 0.41545 1.396
## as.factor(valscan_ecig_3lev_n)3 0.27295 0.54214 0.503
## as.factor(ecigint)Some intention to vape 2.32389 0.18396 12.632
## as.factor(cigsmoker)Current cigarette smoker 1.43069 0.24737 5.784
## ecigscan4level_n -0.12208 0.20354 -0.600
## as.factor(age2cat_t1x)18-25 -0.34845 0.19388 -1.797
## as.factor(sex)Male -0.12333 0.17530 -0.704
## as.factor(race4cat_n)1 0.02748 0.24250 0.113
## as.factor(race4cat_n)2 0.21485 0.25594 0.839
## as.factor(race4cat_n)3 0.44231 0.26630 1.661
## goodgrades_n -0.54008 0.11047 -4.889
## paredu_n 0.04776 0.07245 0.659
## as.factor(hhuse_vap)Yes -0.24990 0.33177 -0.753
## as.factor(hhuse_vap)Lives alone 0.89799 0.25397 3.536
## Pr(>|z|)
## (Intercept) 0.989364
## as.factor(valscan_ecig_3lev_n)1 0.005338 **
## as.factor(valscan_ecig_3lev_n)2 0.162720
## as.factor(valscan_ecig_3lev_n)3 0.614634
## as.factor(ecigint)Some intention to vape < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 7.31e-09 ***
## ecigscan4level_n 0.548654
## as.factor(age2cat_t1x)18-25 0.072291 .
## as.factor(sex)Male 0.481711
## as.factor(race4cat_n)1 0.909791
## as.factor(race4cat_n)2 0.401210
## as.factor(race4cat_n)3 0.096719 .
## goodgrades_n 1.01e-06 ***
## paredu_n 0.509775
## as.factor(hhuse_vap)Yes 0.451311
## as.factor(hhuse_vap)Lives alone 0.000407 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1252.49 on 1148 degrees of freedom
## Residual deviance: 904.25 on 1133 degrees of freedom
## (222 observations deleted due to missingness)
## AIC: 943.03
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigintx) ~ as.factor(valscan_ecig_3lev_n) *
## as.factor(age2cat_t1x) + as.factor(ecigint) + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), family = binomial,
## data = survey_reduced_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.8228 -0.5338 -0.3231 -0.1573 3.8666
##
## Coefficients:
## Estimate
## (Intercept) 0.01657
## as.factor(valscan_ecig_3lev_n)1 0.98440
## as.factor(valscan_ecig_3lev_n)2 0.61660
## as.factor(valscan_ecig_3lev_n)3 0.44427
## as.factor(age2cat_t1x)18-25 -0.34722
## as.factor(ecigint)Some intention to vape 2.31503
## as.factor(cigsmoker)Current cigarette smoker 1.43973
## ecigscan4level_n -0.09382
## as.factor(sex)Male -0.12715
## as.factor(race4cat_n)1 0.03077
## as.factor(race4cat_n)2 0.22059
## as.factor(race4cat_n)3 0.44011
## goodgrades_n -0.54814
## paredu_n 0.05048
## as.factor(hhuse_vap)Yes -0.24704
## as.factor(hhuse_vap)Lives alone 0.90167
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.22851
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.14863
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 -0.40481
## Std. Error
## (Intercept) 0.59352
## as.factor(valscan_ecig_3lev_n)1 0.54212
## as.factor(valscan_ecig_3lev_n)2 0.49290
## as.factor(valscan_ecig_3lev_n)3 0.70058
## as.factor(age2cat_t1x)18-25 0.23019
## as.factor(ecigint)Some intention to vape 0.18495
## as.factor(cigsmoker)Current cigarette smoker 0.24848
## ecigscan4level_n 0.20743
## as.factor(sex)Male 0.17741
## as.factor(race4cat_n)1 0.24280
## as.factor(race4cat_n)2 0.25618
## as.factor(race4cat_n)3 0.26646
## goodgrades_n 0.11115
## paredu_n 0.07274
## as.factor(hhuse_vap)Yes 0.33224
## as.factor(hhuse_vap)Lives alone 0.25470
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.52281
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.50648
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.94661
## z value
## (Intercept) 0.028
## as.factor(valscan_ecig_3lev_n)1 1.816
## as.factor(valscan_ecig_3lev_n)2 1.251
## as.factor(valscan_ecig_3lev_n)3 0.634
## as.factor(age2cat_t1x)18-25 -1.508
## as.factor(ecigint)Some intention to vape 12.517
## as.factor(cigsmoker)Current cigarette smoker 5.794
## ecigscan4level_n -0.452
## as.factor(sex)Male -0.717
## as.factor(race4cat_n)1 0.127
## as.factor(race4cat_n)2 0.861
## as.factor(race4cat_n)3 1.652
## goodgrades_n -4.932
## paredu_n 0.694
## as.factor(hhuse_vap)Yes -0.744
## as.factor(hhuse_vap)Lives alone 3.540
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.437
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.293
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 -0.428
## Pr(>|z|)
## (Intercept) 0.9777
## as.factor(valscan_ecig_3lev_n)1 0.0694 .
## as.factor(valscan_ecig_3lev_n)2 0.2109
## as.factor(valscan_ecig_3lev_n)3 0.5260
## as.factor(age2cat_t1x)18-25 0.1314
## as.factor(ecigint)Some intention to vape < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 6.87e-09 ***
## ecigscan4level_n 0.6510
## as.factor(sex)Male 0.4735
## as.factor(race4cat_n)1 0.8992
## as.factor(race4cat_n)2 0.3892
## as.factor(race4cat_n)3 0.0986 .
## goodgrades_n 8.15e-07 ***
## paredu_n 0.4877
## as.factor(hhuse_vap)Yes 0.4571
## as.factor(hhuse_vap)Lives alone 0.0004 ***
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.6621
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.7692
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.6689
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1252.49 on 1148 degrees of freedom
## Residual deviance: 903.73 on 1130 degrees of freedom
## (222 observations deleted due to missingness)
## AIC: 948.76
##
## Number of Fisher Scoring iterations: 5##
## Call:
## glm(formula = as.factor(ecigintx) ~ as.factor(valscan_ecig_3lev_diff_f) +
## as.factor(ecigint) + as.factor(cigsmoker) + ecigscan4level_n +
## as.factor(age2cat_t1x) + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), family = binomial,
## data = survey_reduced_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.8201 -0.5261 -0.3216 -0.1572 3.8713
##
## Coefficients:
## Estimate Std. Error z value
## (Intercept) 0.49567 0.65617 0.755
## as.factor(valscan_ecig_3lev_diff_f)1 0.27295 0.54214 0.503
## as.factor(valscan_ecig_3lev_diff_f)2 0.30700 0.50258 0.611
## as.factor(valscan_ecig_3lev_diff_f)3 0.58101 0.32518 1.787
## as.factor(ecigint)Some intention to vape 2.32389 0.18396 12.632
## as.factor(cigsmoker)Current cigarette smoker 1.43069 0.24737 5.784
## ecigscan4level_n -0.12208 0.20354 -0.600
## as.factor(age2cat_t1x)18-25 -0.34845 0.19388 -1.797
## as.factor(sex)Male -0.12333 0.17530 -0.704
## as.factor(race4cat_n)1 0.02748 0.24250 0.113
## as.factor(race4cat_n)2 0.21486 0.25594 0.839
## as.factor(race4cat_n)3 0.44231 0.26630 1.661
## goodgrades_n -0.54008 0.11047 -4.889
## paredu_n 0.04776 0.07245 0.659
## as.factor(hhuse_vap)Yes -0.24990 0.33177 -0.753
## as.factor(hhuse_vap)Lives alone 0.89799 0.25397 3.536
## Pr(>|z|)
## (Intercept) 0.450011
## as.factor(valscan_ecig_3lev_diff_f)1 0.614634
## as.factor(valscan_ecig_3lev_diff_f)2 0.541300
## as.factor(valscan_ecig_3lev_diff_f)3 0.073977 .
## as.factor(ecigint)Some intention to vape < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 7.31e-09 ***
## ecigscan4level_n 0.548654
## as.factor(age2cat_t1x)18-25 0.072291 .
## as.factor(sex)Male 0.481711
## as.factor(race4cat_n)1 0.909791
## as.factor(race4cat_n)2 0.401210
## as.factor(race4cat_n)3 0.096719 .
## goodgrades_n 1.01e-06 ***
## paredu_n 0.509775
## as.factor(hhuse_vap)Yes 0.451311
## as.factor(hhuse_vap)Lives alone 0.000407 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 1252.49 on 1148 degrees of freedom
## Residual deviance: 904.25 on 1133 degrees of freedom
## (222 observations deleted due to missingness)
## AIC: 943.03
##
## Number of Fisher Scoring iterations: 5## qn45_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 102 402 466 58
## 1 15 38 96 27
## 2 23 59 80 16
## 3 9 19 23 3## qn45_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 109 357 515 68
## 1 21 47 96 15
## 2 12 66 97 6
## 3 9 20 24 3##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.89805 -0.33379 0.06256 0.33132 2.57599
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.59546 0.15914 10.026
## as.factor(valscan_ecig_3lev_n)1 -0.01811 0.10909 -0.166
## as.factor(valscan_ecig_3lev_n)2 -0.01594 0.10698 -0.149
## as.factor(valscan_ecig_3lev_n)3 0.09860 0.13522 0.729
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.41429 0.02751 15.060
## as.factor(cigsmoker)Current cigarette smoker 0.17082 0.06604 2.587
## ecigscan4level_n -0.02964 0.05282 -0.561
## as.factor(age2cat_t1x)18-25 -0.05131 0.04413 -1.163
## as.factor(sex)Male 0.15248 0.04208 3.624
## as.factor(race4cat_n)1 -0.17989 0.05670 -3.173
## as.factor(race4cat_n)2 -0.05629 0.06025 -0.934
## as.factor(race4cat_n)3 -0.12874 0.06818 -1.888
## goodgrades_n -0.03679 0.02804 -1.312
## paredu_n 0.01726 0.01680 1.027
## as.factor(hhuse_vap)Yes 0.07508 0.07734 0.971
## as.factor(hhuse_vap)Lives alone 0.07868 0.06641 1.185
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.868196
## as.factor(valscan_ecig_3lev_n)2 0.881595
## as.factor(valscan_ecig_3lev_n)3 0.466081
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.009824 **
## ecigscan4level_n 0.574856
## as.factor(age2cat_t1x)18-25 0.245166
## as.factor(sex)Male 0.000304 ***
## as.factor(race4cat_n)1 0.001551 **
## as.factor(race4cat_n)2 0.350377
## as.factor(race4cat_n)3 0.059253 .
## goodgrades_n 0.189826
## paredu_n 0.304468
## as.factor(hhuse_vap)Yes 0.331844
## as.factor(hhuse_vap)Lives alone 0.236387
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4372858)
##
## Null deviance: 616.40 on 1108 degrees of freedom
## Residual deviance: 477.95 on 1093 degrees of freedom
## (262 observations deleted due to missingness)
## AIC: 2713.2
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[beliefs[x]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.76800 -0.33774 0.05649 0.33262 2.44730
##
## Coefficients:
## Estimate
## (Intercept) 1.56503
## as.factor(valscan_ecig_3lev_n)1 -0.01312
## as.factor(valscan_ecig_3lev_n)2 0.09256
## as.factor(valscan_ecig_3lev_n)3 -0.03796
## as.factor(age2cat_t1x)18-25 -0.03222
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.41285
## as.factor(cigsmoker)Current cigarette smoker 0.17485
## ecigscan4level_n -0.02735
## as.factor(sex)Male 0.16154
## as.factor(race4cat_n)1 -0.17352
## as.factor(race4cat_n)2 -0.06055
## as.factor(race4cat_n)3 -0.12541
## goodgrades_n -0.03444
## paredu_n 0.01939
## as.factor(hhuse_vap)Yes 0.07126
## as.factor(hhuse_vap)Lives alone 0.07412
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.01480
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.20192
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.25551
## Std. Error
## (Intercept) 0.16118
## as.factor(valscan_ecig_3lev_n)1 0.14066
## as.factor(valscan_ecig_3lev_n)2 0.12441
## as.factor(valscan_ecig_3lev_n)3 0.17993
## as.factor(age2cat_t1x)18-25 0.05045
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.02754
## as.factor(cigsmoker)Current cigarette smoker 0.06620
## ecigscan4level_n 0.05340
## as.factor(sex)Male 0.04238
## as.factor(race4cat_n)1 0.05677
## as.factor(race4cat_n)2 0.06027
## as.factor(race4cat_n)3 0.06818
## goodgrades_n 0.02813
## paredu_n 0.01683
## as.factor(hhuse_vap)Yes 0.07742
## as.factor(hhuse_vap)Lives alone 0.06646
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.13572
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.12666
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.23371
## t value
## (Intercept) 9.710
## as.factor(valscan_ecig_3lev_n)1 -0.093
## as.factor(valscan_ecig_3lev_n)2 0.744
## as.factor(valscan_ecig_3lev_n)3 -0.211
## as.factor(age2cat_t1x)18-25 -0.639
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 14.989
## as.factor(cigsmoker)Current cigarette smoker 2.641
## ecigscan4level_n -0.512
## as.factor(sex)Male 3.812
## as.factor(race4cat_n)1 -3.056
## as.factor(race4cat_n)2 -1.005
## as.factor(race4cat_n)3 -1.840
## goodgrades_n -1.224
## paredu_n 1.152
## as.factor(hhuse_vap)Yes 0.920
## as.factor(hhuse_vap)Lives alone 1.115
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.109
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -1.594
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 1.093
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.925679
## as.factor(valscan_ecig_3lev_n)2 0.457055
## as.factor(valscan_ecig_3lev_n)3 0.832974
## as.factor(age2cat_t1x)18-25 0.523221
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.008382 **
## ecigscan4level_n 0.608591
## as.factor(sex)Male 0.000146 ***
## as.factor(race4cat_n)1 0.002295 **
## as.factor(race4cat_n)2 0.315237
## as.factor(race4cat_n)3 0.066107 .
## goodgrades_n 0.221122
## paredu_n 0.249534
## as.factor(hhuse_vap)Yes 0.357593
## as.factor(hhuse_vap)Lives alone 0.264969
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.913211
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.111194
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.274515
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4368691)
##
## Null deviance: 616.40 on 1108 degrees of freedom
## Residual deviance: 476.19 on 1090 degrees of freedom
## (262 observations deleted due to missingness)
## AIC: 2715.1
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.39606 -0.30086 0.04164 0.29835 1.88656
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.13542 0.38047
## as.factor(valscan_ecig_3lev_n)1 -0.24577 0.14487
## as.factor(valscan_ecig_3lev_n)2 -0.10374 0.12935
## as.factor(valscan_ecig_3lev_n)3 -0.13362 0.15817
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 0.38291 0.03546
## as.factor(cigsmoker)Current cigarette smoker 0.35208 0.17436
## ecigscan4level_n 0.11137 0.06827
## age_t1x 0.05085 0.01938
## as.factor(sex)Male 0.11417 0.05521
## as.factor(race4cat_n)1 -0.13945 0.07205
## as.factor(race4cat_n)2 -0.27776 0.08300
## as.factor(race4cat_n)3 -0.17613 0.09170
## goodgrades_n -0.08798 0.03978
## paredu_n 0.02448 0.02222
## as.factor(hhuse_vap)Yes -0.02473 0.08729
## as.factor(hhuse_vap)Lives alone 0.03145 0.27627
## t value Pr(>|t|)
## (Intercept) 2.984 0.002946 **
## as.factor(valscan_ecig_3lev_n)1 -1.696 0.090261 .
## as.factor(valscan_ecig_3lev_n)2 -0.802 0.422839
## as.factor(valscan_ecig_3lev_n)3 -0.845 0.398540
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 10.797 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 2.019 0.043849 *
## ecigscan4level_n 1.631 0.103270
## age_t1x 2.624 0.008882 **
## as.factor(sex)Male 2.068 0.039019 *
## as.factor(race4cat_n)1 -1.935 0.053360 .
## as.factor(race4cat_n)2 -3.346 0.000864 ***
## as.factor(race4cat_n)3 -1.921 0.055200 .
## goodgrades_n -2.212 0.027331 *
## paredu_n 1.102 0.271024
## as.factor(hhuse_vap)Yes -0.283 0.777058
## as.factor(hhuse_vap)Lives alone 0.114 0.909405
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.2882)
##
## Null deviance: 245.90 on 687 degrees of freedom
## Residual deviance: 193.67 on 672 degrees of freedom
## (210 observations deleted due to missingness)
## AIC: 1701.7
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.80265 -0.41593 0.08993 0.44497 2.57875
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.733476 0.394880
## as.factor(valscan_ecig_3lev_n)1 0.107178 0.173573
## as.factor(valscan_ecig_3lev_n)2 0.069864 0.182877
## as.factor(valscan_ecig_3lev_n)3 0.344801 0.236895
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 0.420146 0.044855
## as.factor(cigsmoker)Current cigarette smoker 0.184755 0.087610
## ecigscan4level_n -0.130795 0.086170
## age_t1x -0.016105 0.014244
## as.factor(sex)Male 0.203054 0.067671
## as.factor(race4cat_n)1 -0.218411 0.092200
## as.factor(race4cat_n)2 0.047132 0.092705
## as.factor(race4cat_n)3 -0.125620 0.107242
## goodgrades_n -0.007374 0.042860
## paredu_n 0.012472 0.026707
## as.factor(hhuse_vap)Yes 0.161641 0.141019
## as.factor(hhuse_vap)Lives alone 0.086643 0.085799
## t value Pr(>|t|)
## (Intercept) 4.390 1.45e-05 ***
## as.factor(valscan_ecig_3lev_n)1 0.617 0.53726
## as.factor(valscan_ecig_3lev_n)2 0.382 0.70264
## as.factor(valscan_ecig_3lev_n)3 1.456 0.14630
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 9.367 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 2.109 0.03557 *
## ecigscan4level_n -1.518 0.12983
## age_t1x -1.131 0.25886
## as.factor(sex)Male 3.001 0.00286 **
## as.factor(race4cat_n)1 -2.369 0.01831 *
## as.factor(race4cat_n)2 0.508 0.61144
## as.factor(race4cat_n)3 -1.171 0.24214
## goodgrades_n -0.172 0.86348
## paredu_n 0.467 0.64077
## as.factor(hhuse_vap)Yes 1.146 0.25237
## as.factor(hhuse_vap)Lives alone 1.010 0.31317
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.6681454)
##
## Null deviance: 370.5 on 420 degrees of freedom
## Residual deviance: 270.6 on 405 degrees of freedom
## (79 observations deleted due to missingness)
## AIC: 920.78
##
## Number of Fisher Scoring iterations: 2## qn46_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 35 237 575 183
## 1 13 44 92 26
## 2 4 47 96 28
## 3 1 8 32 14## qn46_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 31 232 589 187
## 1 10 53 85 29
## 2 3 40 115 22
## 3 2 11 32 11##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8901 -0.2675 -0.0019 0.3263 2.4657
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.85692 0.16512 11.246
## as.factor(valscan_ecig_3lev_n)1 -0.25815 0.10743 -2.403
## as.factor(valscan_ecig_3lev_n)2 -0.13574 0.10460 -1.298
## as.factor(valscan_ecig_3lev_n)3 -0.08410 0.13179 -0.638
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.39666 0.02910 13.629
## as.factor(cigsmoker)Current cigarette smoker -0.28086 0.06548 -4.289
## ecigscan4level_n 0.04115 0.05288 0.778
## as.factor(age2cat_t1x)18-25 -0.01139 0.04352 -0.262
## as.factor(sex)Male -0.07320 0.04094 -1.788
## as.factor(race4cat_n)1 0.02657 0.05568 0.477
## as.factor(race4cat_n)2 -0.20270 0.05965 -3.398
## as.factor(race4cat_n)3 0.02361 0.06664 0.354
## goodgrades_n -0.01737 0.02765 -0.628
## paredu_n 0.02777 0.01653 1.680
## as.factor(hhuse_vap)Yes -0.22229 0.07489 -2.968
## as.factor(hhuse_vap)Lives alone -0.09030 0.06554 -1.378
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.016428 *
## as.factor(valscan_ecig_3lev_n)2 0.194676
## as.factor(valscan_ecig_3lev_n)3 0.523501
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 1.95e-05 ***
## ecigscan4level_n 0.436705
## as.factor(age2cat_t1x)18-25 0.793539
## as.factor(sex)Male 0.074084 .
## as.factor(race4cat_n)1 0.633369
## as.factor(race4cat_n)2 0.000703 ***
## as.factor(race4cat_n)3 0.723157
## goodgrades_n 0.529961
## paredu_n 0.093226 .
## as.factor(hhuse_vap)Yes 0.003062 **
## as.factor(hhuse_vap)Lives alone 0.168535
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4151344)
##
## Null deviance: 562.48 on 1097 degrees of freedom
## Residual deviance: 449.18 on 1082 degrees of freedom
## (273 observations deleted due to missingness)
## AIC: 2645.1
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[beliefs[x]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.88642 -0.27258 -0.00013 0.32710 2.46722
##
## Coefficients:
## Estimate
## (Intercept) 1.88984
## as.factor(valscan_ecig_3lev_n)1 -0.43550
## as.factor(valscan_ecig_3lev_n)2 -0.15170
## as.factor(valscan_ecig_3lev_n)3 0.07426
## as.factor(age2cat_t1x)18-25 -0.02552
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.39711
## as.factor(cigsmoker)Current cigarette smoker -0.28741
## ecigscan4level_n 0.05637
## as.factor(sex)Male -0.07655
## as.factor(race4cat_n)1 0.02686
## as.factor(race4cat_n)2 -0.20294
## as.factor(race4cat_n)3 0.02314
## goodgrades_n -0.02299
## paredu_n 0.02762
## as.factor(hhuse_vap)Yes -0.21196
## as.factor(hhuse_vap)Lives alone -0.08397
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.24589
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.01743
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 -0.33230
## Std. Error
## (Intercept) 0.16754
## as.factor(valscan_ecig_3lev_n)1 0.13877
## as.factor(valscan_ecig_3lev_n)2 0.12244
## as.factor(valscan_ecig_3lev_n)3 0.17578
## as.factor(age2cat_t1x)18-25 0.04982
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.02910
## as.factor(cigsmoker)Current cigarette smoker 0.06562
## ecigscan4level_n 0.05328
## as.factor(sex)Male 0.04116
## as.factor(race4cat_n)1 0.05577
## as.factor(race4cat_n)2 0.05960
## as.factor(race4cat_n)3 0.06657
## goodgrades_n 0.02772
## paredu_n 0.01654
## as.factor(hhuse_vap)Yes 0.07490
## as.factor(hhuse_vap)Lives alone 0.06550
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.13255
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.12562
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.22589
## t value
## (Intercept) 11.280
## as.factor(valscan_ecig_3lev_n)1 -3.138
## as.factor(valscan_ecig_3lev_n)2 -1.239
## as.factor(valscan_ecig_3lev_n)3 0.422
## as.factor(age2cat_t1x)18-25 -0.512
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 13.644
## as.factor(cigsmoker)Current cigarette smoker -4.380
## ecigscan4level_n 1.058
## as.factor(sex)Male -1.860
## as.factor(race4cat_n)1 0.482
## as.factor(race4cat_n)2 -3.405
## as.factor(race4cat_n)3 0.348
## goodgrades_n -0.829
## paredu_n 1.670
## as.factor(hhuse_vap)Yes -2.830
## as.factor(hhuse_vap)Lives alone -1.282
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 1.855
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.139
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 -1.471
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.001746 **
## as.factor(valscan_ecig_3lev_n)2 0.215644
## as.factor(valscan_ecig_3lev_n)3 0.672748
## as.factor(age2cat_t1x)18-25 0.608532
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 1.3e-05 ***
## ecigscan4level_n 0.290348
## as.factor(sex)Male 0.063179 .
## as.factor(race4cat_n)1 0.630191
## as.factor(race4cat_n)2 0.000686 ***
## as.factor(race4cat_n)3 0.728230
## goodgrades_n 0.407148
## paredu_n 0.095117 .
## as.factor(hhuse_vap)Yes 0.004744 **
## as.factor(hhuse_vap)Lives alone 0.200153
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.063856 .
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.889666
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.141576
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4139506)
##
## Null deviance: 562.48 on 1097 degrees of freedom
## Residual deviance: 446.65 on 1079 degrees of freedom
## (273 observations deleted due to missingness)
## AIC: 2645
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.25283 -0.24115 -0.01622 0.26605 2.09470
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.79753 0.34860
## as.factor(valscan_ecig_3lev_n)1 -0.32837 0.13485
## as.factor(valscan_ecig_3lev_n)2 -0.05310 0.12028
## as.factor(valscan_ecig_3lev_n)3 0.15501 0.14723
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 0.42979 0.03505
## as.factor(cigsmoker)Current cigarette smoker -0.65907 0.16178
## ecigscan4level_n -0.01649 0.06381
## age_t1x 0.01066 0.01808
## as.factor(sex)Male -0.09767 0.05094
## as.factor(race4cat_n)1 -0.07604 0.06737
## as.factor(race4cat_n)2 -0.12852 0.07849
## as.factor(race4cat_n)3 -0.01942 0.08579
## goodgrades_n -0.05198 0.03690
## paredu_n 0.03259 0.02080
## as.factor(hhuse_vap)Yes -0.27266 0.07905
## as.factor(hhuse_vap)Lives alone -0.17170 0.25669
## t value Pr(>|t|)
## (Intercept) 5.156 3.32e-07 ***
## as.factor(valscan_ecig_3lev_n)1 -2.435 0.015153 *
## as.factor(valscan_ecig_3lev_n)2 -0.441 0.659010
## as.factor(valscan_ecig_3lev_n)3 1.053 0.292788
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 12.261 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker -4.074 5.18e-05 ***
## ecigscan4level_n -0.258 0.796135
## age_t1x 0.589 0.555801
## as.factor(sex)Male -1.917 0.055606 .
## as.factor(race4cat_n)1 -1.129 0.259489
## as.factor(race4cat_n)2 -1.637 0.102002
## as.factor(race4cat_n)3 -0.226 0.821024
## goodgrades_n -1.409 0.159408
## paredu_n 1.567 0.117674
## as.factor(hhuse_vap)Yes -3.449 0.000598 ***
## as.factor(hhuse_vap)Lives alone -0.669 0.503791
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.2483869)
##
## Null deviance: 226.06 on 683 degrees of freedom
## Residual deviance: 165.92 on 668 degrees of freedom
## (214 observations deleted due to missingness)
## AIC: 1597.1
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.83574 -0.37368 0.03666 0.48069 2.37039
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.8146347 0.4241611
## as.factor(valscan_ecig_3lev_n)1 -0.2715833 0.1792475
## as.factor(valscan_ecig_3lev_n)2 -0.2803286 0.1868290
## as.factor(valscan_ecig_3lev_n)3 -0.3359802 0.2401303
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 0.3772076 0.0496028
## as.factor(cigsmoker)Current cigarette smoker -0.2529812 0.0910768
## ecigscan4level_n 0.1124500 0.0909772
## age_t1x 0.0003352 0.0147502
## as.factor(sex)Male -0.0697496 0.0685553
## as.factor(race4cat_n)1 0.1037054 0.0945805
## as.factor(race4cat_n)2 -0.2437255 0.0959971
## as.factor(race4cat_n)3 0.0488573 0.1089152
## goodgrades_n -0.0055393 0.0443626
## paredu_n 0.0266859 0.0274309
## as.factor(hhuse_vap)Yes -0.1190683 0.1437562
## as.factor(hhuse_vap)Lives alone -0.0731887 0.0885794
## t value Pr(>|t|)
## (Intercept) 4.278 2.36e-05 ***
## as.factor(valscan_ecig_3lev_n)1 -1.515 0.13053
## as.factor(valscan_ecig_3lev_n)2 -1.500 0.13429
## as.factor(valscan_ecig_3lev_n)3 -1.399 0.16254
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 7.605 2.08e-13 ***
## as.factor(cigsmoker)Current cigarette smoker -2.778 0.00573 **
## ecigscan4level_n 1.236 0.21718
## age_t1x 0.023 0.98188
## as.factor(sex)Male -1.017 0.30957
## as.factor(race4cat_n)1 1.096 0.27353
## as.factor(race4cat_n)2 -2.539 0.01150 *
## as.factor(race4cat_n)3 0.449 0.65398
## goodgrades_n -0.125 0.90069
## paredu_n 0.973 0.33122
## as.factor(hhuse_vap)Yes -0.828 0.40802
## as.factor(hhuse_vap)Lives alone -0.826 0.40916
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.6919328)
##
## Null deviance: 334.98 on 413 degrees of freedom
## Residual deviance: 275.39 on 398 degrees of freedom
## (86 observations deleted due to missingness)
## AIC: 925.82
##
## Number of Fisher Scoring iterations: 2## qn47_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 90 356 526 57
## 1 17 36 98 26
## 2 14 48 105 10
## 3 5 24 26 0## qn47_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 82 363 536 65
## 1 12 43 101 21
## 2 15 49 106 10
## 3 6 20 27 3##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8338 -0.3211 0.0713 0.3375 3.1799
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.691718 0.164699 10.272
## as.factor(valscan_ecig_3lev_n)1 0.043514 0.110150 0.395
## as.factor(valscan_ecig_3lev_n)2 -0.226809 0.108574 -2.089
## as.factor(valscan_ecig_3lev_n)3 0.109295 0.135026 0.809
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.387703 0.028681 13.518
## as.factor(cigsmoker)Current cigarette smoker 0.098265 0.067936 1.446
## ecigscan4level_n 0.106859 0.053493 1.998
## as.factor(age2cat_t1x)18-25 -0.008424 0.044567 -0.189
## as.factor(sex)Male 0.040643 0.042007 0.968
## as.factor(race4cat_n)1 -0.321931 0.057222 -5.626
## as.factor(race4cat_n)2 -0.164384 0.060464 -2.719
## as.factor(race4cat_n)3 -0.186169 0.068303 -2.726
## goodgrades_n -0.005025 0.028190 -0.178
## paredu_n -0.007956 0.017023 -0.467
## as.factor(hhuse_vap)Yes 0.165898 0.077096 2.152
## as.factor(hhuse_vap)Lives alone 0.036116 0.067296 0.537
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.69288
## as.factor(valscan_ecig_3lev_n)2 0.03694 *
## as.factor(valscan_ecig_3lev_n)3 0.41844
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.14834
## ecigscan4level_n 0.04600 *
## as.factor(age2cat_t1x)18-25 0.85012
## as.factor(sex)Male 0.33350
## as.factor(race4cat_n)1 2.34e-08 ***
## as.factor(race4cat_n)2 0.00666 **
## as.factor(race4cat_n)3 0.00652 **
## goodgrades_n 0.85856
## paredu_n 0.64033
## as.factor(hhuse_vap)Yes 0.03163 *
## as.factor(hhuse_vap)Lives alone 0.59160
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4424065)
##
## Null deviance: 607.75 on 1106 degrees of freedom
## Residual deviance: 482.67 on 1091 degrees of freedom
## (264 observations deleted due to missingness)
## AIC: 2724.6
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[beliefs[x]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.91956 -0.31744 0.07413 0.33558 3.07985
##
## Coefficients:
## Estimate
## (Intercept) 1.691147
## as.factor(valscan_ecig_3lev_n)1 -0.060077
## as.factor(valscan_ecig_3lev_n)2 -0.179356
## as.factor(valscan_ecig_3lev_n)3 -0.067840
## as.factor(age2cat_t1x)18-25 -0.024713
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.388946
## as.factor(cigsmoker)Current cigarette smoker 0.097067
## ecigscan4level_n 0.108020
## as.factor(sex)Male 0.049343
## as.factor(race4cat_n)1 -0.316566
## as.factor(race4cat_n)2 -0.168280
## as.factor(race4cat_n)3 -0.181235
## goodgrades_n -0.005109
## paredu_n -0.006940
## as.factor(hhuse_vap)Yes 0.165902
## as.factor(hhuse_vap)Lives alone 0.033754
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.164740
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.095559
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.320788
## Std. Error
## (Intercept) 0.166283
## as.factor(valscan_ecig_3lev_n)1 0.141398
## as.factor(valscan_ecig_3lev_n)2 0.125479
## as.factor(valscan_ecig_3lev_n)3 0.181141
## as.factor(age2cat_t1x)18-25 0.050974
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.028683
## as.factor(cigsmoker)Current cigarette smoker 0.068068
## ecigscan4level_n 0.054037
## as.factor(sex)Male 0.042258
## as.factor(race4cat_n)1 0.057322
## as.factor(race4cat_n)2 0.060468
## as.factor(race4cat_n)3 0.068313
## goodgrades_n 0.028266
## paredu_n 0.017046
## as.factor(hhuse_vap)Yes 0.077163
## as.factor(hhuse_vap)Lives alone 0.067321
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.136968
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.128977
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.232731
## t value
## (Intercept) 10.170
## as.factor(valscan_ecig_3lev_n)1 -0.425
## as.factor(valscan_ecig_3lev_n)2 -1.429
## as.factor(valscan_ecig_3lev_n)3 -0.375
## as.factor(age2cat_t1x)18-25 -0.485
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 13.560
## as.factor(cigsmoker)Current cigarette smoker 1.426
## ecigscan4level_n 1.999
## as.factor(sex)Male 1.168
## as.factor(race4cat_n)1 -5.523
## as.factor(race4cat_n)2 -2.783
## as.factor(race4cat_n)3 -2.653
## goodgrades_n -0.181
## paredu_n -0.407
## as.factor(hhuse_vap)Yes 2.150
## as.factor(hhuse_vap)Lives alone 0.501
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 1.203
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.741
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 1.378
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.67101
## as.factor(valscan_ecig_3lev_n)2 0.15319
## as.factor(valscan_ecig_3lev_n)3 0.70810
## as.factor(age2cat_t1x)18-25 0.62790
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.15414
## ecigscan4level_n 0.04586 *
## as.factor(sex)Male 0.24319
## as.factor(race4cat_n)1 4.18e-08 ***
## as.factor(race4cat_n)2 0.00548 **
## as.factor(race4cat_n)3 0.00809 **
## goodgrades_n 0.85659
## paredu_n 0.68398
## as.factor(hhuse_vap)Yes 0.03177 *
## as.factor(hhuse_vap)Lives alone 0.61620
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.22933
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.45891
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.16837
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4419452)
##
## Null deviance: 607.75 on 1106 degrees of freedom
## Residual deviance: 480.84 on 1088 degrees of freedom
## (264 observations deleted due to missingness)
## AIC: 2726.4
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.34281 -0.27117 0.06805 0.25226 1.71918
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.300988 0.362161
## as.factor(valscan_ecig_3lev_n)1 -0.148454 0.139977
## as.factor(valscan_ecig_3lev_n)2 -0.245663 0.125961
## as.factor(valscan_ecig_3lev_n)3 -0.111993 0.153618
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 0.384457 0.035592
## as.factor(cigsmoker)Current cigarette smoker 0.117814 0.168985
## ecigscan4level_n 0.166349 0.066549
## age_t1x 0.013821 0.018931
## as.factor(sex)Male 0.078154 0.053347
## as.factor(race4cat_n)1 -0.074457 0.070251
## as.factor(race4cat_n)2 -0.261970 0.081260
## as.factor(race4cat_n)3 -0.027958 0.090589
## goodgrades_n 0.022171 0.038056
## paredu_n -0.009426 0.021731
## as.factor(hhuse_vap)Yes 0.122170 0.082460
## as.factor(hhuse_vap)Lives alone 0.267851 0.267749
## t value Pr(>|t|)
## (Intercept) 3.592 0.000352 ***
## as.factor(valscan_ecig_3lev_n)1 -1.061 0.289275
## as.factor(valscan_ecig_3lev_n)2 -1.950 0.051558 .
## as.factor(valscan_ecig_3lev_n)3 -0.729 0.466239
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 10.802 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.697 0.485928
## ecigscan4level_n 2.500 0.012671 *
## age_t1x 0.730 0.465616
## as.factor(sex)Male 1.465 0.143388
## as.factor(race4cat_n)1 -1.060 0.289589
## as.factor(race4cat_n)2 -3.224 0.001327 **
## as.factor(race4cat_n)3 -0.309 0.757700
## goodgrades_n 0.583 0.560359
## paredu_n -0.434 0.664591
## as.factor(hhuse_vap)Yes 1.482 0.138928
## as.factor(hhuse_vap)Lives alone 1.000 0.317489
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.2705528)
##
## Null deviance: 224.30 on 682 degrees of freedom
## Residual deviance: 180.46 on 667 degrees of freedom
## (215 observations deleted due to missingness)
## AIC: 1650.9
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.9350 -0.3806 0.1133 0.4477 3.0967
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 2.014734 0.420088
## as.factor(valscan_ecig_3lev_n)1 0.176475 0.180378
## as.factor(valscan_ecig_3lev_n)2 -0.161167 0.191141
## as.factor(valscan_ecig_3lev_n)3 0.290334 0.239560
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 0.386729 0.047721
## as.factor(cigsmoker)Current cigarette smoker 0.116826 0.092716
## ecigscan4level_n 0.053541 0.089506
## age_t1x -0.010054 0.014871
## as.factor(sex)Male 0.047526 0.068515
## as.factor(race4cat_n)1 -0.499817 0.094743
## as.factor(race4cat_n)2 -0.130419 0.094517
## as.factor(race4cat_n)3 -0.289545 0.108325
## goodgrades_n -0.026340 0.044194
## paredu_n -0.007153 0.027572
## as.factor(hhuse_vap)Yes 0.226450 0.145303
## as.factor(hhuse_vap)Lives alone 0.031896 0.088784
## t value Pr(>|t|)
## (Intercept) 4.796 2.27e-06 ***
## as.factor(valscan_ecig_3lev_n)1 0.978 0.32848
## as.factor(valscan_ecig_3lev_n)2 -0.843 0.39962
## as.factor(valscan_ecig_3lev_n)3 1.212 0.22623
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 8.104 6.25e-15 ***
## as.factor(cigsmoker)Current cigarette smoker 1.260 0.20837
## ecigscan4level_n 0.598 0.55005
## age_t1x -0.676 0.49937
## as.factor(sex)Male 0.694 0.48829
## as.factor(race4cat_n)1 -5.276 2.15e-07 ***
## as.factor(race4cat_n)2 -1.380 0.16839
## as.factor(race4cat_n)3 -2.673 0.00782 **
## goodgrades_n -0.596 0.55150
## paredu_n -0.259 0.79544
## as.factor(hhuse_vap)Yes 1.558 0.11990
## as.factor(hhuse_vap)Lives alone 0.359 0.71959
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.7072816)
##
## Null deviance: 383.22 on 423 degrees of freedom
## Residual deviance: 288.57 on 408 degrees of freedom
## (76 observations deleted due to missingness)
## AIC: 954.38
##
## Number of Fisher Scoring iterations: 2## qn48c_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 212 318 355 161
## 1 64 30 67 18
## 2 29 61 70 21
## 3 7 15 20 14## qn48c_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 183 321 367 182
## 1 48 45 65 19
## 2 34 49 82 16
## 3 8 18 22 8##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.3361 -0.5037 0.1371 0.6078 3.3789
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.69137 0.20799 8.132
## as.factor(valscan_ecig_3lev_n)1 -0.35096 0.14702 -2.387
## as.factor(valscan_ecig_3lev_n)2 -0.23225 0.14470 -1.605
## as.factor(valscan_ecig_3lev_n)3 -0.44759 0.18044 -2.481
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.23735 0.02986 7.949
## as.factor(cigsmoker)Current cigarette smoker -0.13155 0.09188 -1.432
## ecigscan4level_n 0.07010 0.07155 0.980
## as.factor(age2cat_t1x)18-25 0.03172 0.05966 0.532
## as.factor(sex)Male 0.04521 0.05612 0.806
## as.factor(race4cat_n)1 0.06961 0.07792 0.893
## as.factor(race4cat_n)2 -0.06455 0.08209 -0.786
## as.factor(race4cat_n)3 0.05100 0.09178 0.556
## goodgrades_n 0.06366 0.03781 1.684
## paredu_n -0.02721 0.02270 -1.199
## as.factor(hhuse_vap)Yes -0.07746 0.10631 -0.729
## as.factor(hhuse_vap)Lives alone 0.05544 0.08938 0.620
## Pr(>|t|)
## (Intercept) 1.12e-15 ***
## as.factor(valscan_ecig_3lev_n)1 0.0171 *
## as.factor(valscan_ecig_3lev_n)2 0.1088
## as.factor(valscan_ecig_3lev_n)3 0.0133 *
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 4.60e-15 ***
## as.factor(cigsmoker)Current cigarette smoker 0.1525
## ecigscan4level_n 0.3275
## as.factor(age2cat_t1x)18-25 0.5951
## as.factor(sex)Male 0.4207
## as.factor(race4cat_n)1 0.3719
## as.factor(race4cat_n)2 0.4319
## as.factor(race4cat_n)3 0.5785
## goodgrades_n 0.0925 .
## paredu_n 0.2309
## as.factor(hhuse_vap)Yes 0.4663
## as.factor(hhuse_vap)Lives alone 0.5352
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.8035872)
##
## Null deviance: 978.65 on 1126 degrees of freedom
## Residual deviance: 892.79 on 1111 degrees of freedom
## (244 observations deleted due to missingness)
## AIC: 3452.5
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[beliefs[x]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.2779 -0.4862 0.1392 0.6191 3.3041
##
## Coefficients:
## Estimate
## (Intercept) 1.64255
## as.factor(valscan_ecig_3lev_n)1 -0.24985
## as.factor(valscan_ecig_3lev_n)2 -0.14035
## as.factor(valscan_ecig_3lev_n)3 -0.11766
## as.factor(age2cat_t1x)18-25 0.09845
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.24195
## as.factor(cigsmoker)Current cigarette smoker -0.11882
## ecigscan4level_n 0.08464
## as.factor(sex)Male 0.03698
## as.factor(race4cat_n)1 0.06800
## as.factor(race4cat_n)2 -0.06517
## as.factor(race4cat_n)3 0.04546
## goodgrades_n 0.06266
## paredu_n -0.02615
## as.factor(hhuse_vap)Yes -0.07408
## as.factor(hhuse_vap)Lives alone 0.05862
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.19902
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.20150
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 -0.62714
## Std. Error
## (Intercept) 0.21050
## as.factor(valscan_ecig_3lev_n)1 0.19030
## as.factor(valscan_ecig_3lev_n)2 0.16838
## as.factor(valscan_ecig_3lev_n)3 0.24357
## as.factor(age2cat_t1x)18-25 0.06833
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.02995
## as.factor(cigsmoker)Current cigarette smoker 0.09208
## ecigscan4level_n 0.07222
## as.factor(sex)Male 0.05642
## as.factor(race4cat_n)1 0.07790
## as.factor(race4cat_n)2 0.08209
## as.factor(race4cat_n)3 0.09171
## goodgrades_n 0.03789
## paredu_n 0.02271
## as.factor(hhuse_vap)Yes 0.10637
## as.factor(hhuse_vap)Lives alone 0.08934
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.18302
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.17119
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.31148
## t value
## (Intercept) 7.803
## as.factor(valscan_ecig_3lev_n)1 -1.313
## as.factor(valscan_ecig_3lev_n)2 -0.834
## as.factor(valscan_ecig_3lev_n)3 -0.483
## as.factor(age2cat_t1x)18-25 1.441
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 8.078
## as.factor(cigsmoker)Current cigarette smoker -1.290
## ecigscan4level_n 1.172
## as.factor(sex)Male 0.655
## as.factor(race4cat_n)1 0.873
## as.factor(race4cat_n)2 -0.794
## as.factor(race4cat_n)3 0.496
## goodgrades_n 1.654
## paredu_n -1.151
## as.factor(hhuse_vap)Yes -0.696
## as.factor(hhuse_vap)Lives alone 0.656
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -1.087
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -1.177
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 -2.013
## Pr(>|t|)
## (Intercept) 1.39e-14 ***
## as.factor(valscan_ecig_3lev_n)1 0.1895
## as.factor(valscan_ecig_3lev_n)2 0.4047
## as.factor(valscan_ecig_3lev_n)3 0.6291
## as.factor(age2cat_t1x)18-25 0.1499
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 1.71e-15 ***
## as.factor(cigsmoker)Current cigarette smoker 0.1972
## ecigscan4level_n 0.2415
## as.factor(sex)Male 0.5123
## as.factor(race4cat_n)1 0.3829
## as.factor(race4cat_n)2 0.4274
## as.factor(race4cat_n)3 0.6202
## goodgrades_n 0.0985 .
## paredu_n 0.2499
## as.factor(hhuse_vap)Yes 0.4863
## as.factor(hhuse_vap)Lives alone 0.5119
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.2771
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.2394
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.0443 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.8015902)
##
## Null deviance: 978.65 on 1126 degrees of freedom
## Residual deviance: 888.16 on 1108 degrees of freedom
## (244 observations deleted due to missingness)
## AIC: 3452.6
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.0674 -0.4137 0.1295 0.5062 2.3095
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 2.029802 0.493577
## as.factor(valscan_ecig_3lev_n)1 -0.487755 0.187809
## as.factor(valscan_ecig_3lev_n)2 -0.396677 0.168021
## as.factor(valscan_ecig_3lev_n)3 -0.306185 0.204798
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 0.206801 0.037934
## as.factor(cigsmoker)Current cigarette smoker 0.130065 0.228304
## ecigscan4level_n 0.242893 0.088514
## age_t1x -0.040215 0.024957
## as.factor(sex)Male -0.048149 0.070541
## as.factor(race4cat_n)1 -0.017477 0.093852
## as.factor(race4cat_n)2 0.030297 0.109235
## as.factor(race4cat_n)3 0.033803 0.118527
## goodgrades_n 0.127829 0.050075
## paredu_n -0.005308 0.028531
## as.factor(hhuse_vap)Yes -0.014313 0.112895
## as.factor(hhuse_vap)Lives alone 0.055493 0.357873
## t value Pr(>|t|)
## (Intercept) 4.112 4.39e-05 ***
## as.factor(valscan_ecig_3lev_n)1 -2.597 0.00960 **
## as.factor(valscan_ecig_3lev_n)2 -2.361 0.01851 *
## as.factor(valscan_ecig_3lev_n)3 -1.495 0.13536
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 5.452 6.99e-08 ***
## as.factor(cigsmoker)Current cigarette smoker 0.570 0.56907
## ecigscan4level_n 2.744 0.00623 **
## age_t1x -1.611 0.10756
## as.factor(sex)Male -0.683 0.49511
## as.factor(race4cat_n)1 -0.186 0.85233
## as.factor(race4cat_n)2 0.277 0.78159
## as.factor(race4cat_n)3 0.285 0.77558
## goodgrades_n 2.553 0.01090 *
## paredu_n -0.186 0.85245
## as.factor(hhuse_vap)Yes -0.127 0.89915
## as.factor(hhuse_vap)Lives alone 0.155 0.87682
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4837584)
##
## Null deviance: 357.09 on 696 degrees of freedom
## Residual deviance: 329.44 on 681 degrees of freedom
## (201 observations deleted due to missingness)
## AIC: 2088.2
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.2581 -0.7796 0.2011 0.8477 3.3886
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.819343 0.540517
## as.factor(valscan_ecig_3lev_n)1 -0.237342 0.241998
## as.factor(valscan_ecig_3lev_n)2 -0.157350 0.256316
## as.factor(valscan_ecig_3lev_n)3 -0.569538 0.323079
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 0.272589 0.049790
## as.factor(cigsmoker)Current cigarette smoker -0.174165 0.126706
## ecigscan4level_n -0.027411 0.120925
## age_t1x 0.002997 0.019968
## as.factor(sex)Male 0.082800 0.093051
## as.factor(race4cat_n)1 0.123204 0.131701
## as.factor(race4cat_n)2 -0.084697 0.130561
## as.factor(race4cat_n)3 0.060410 0.149192
## goodgrades_n 0.020725 0.061142
## paredu_n -0.045117 0.037566
## as.factor(hhuse_vap)Yes -0.200590 0.205033
## as.factor(hhuse_vap)Lives alone 0.073738 0.119658
## t value Pr(>|t|)
## (Intercept) 3.366 0.000834 ***
## as.factor(valscan_ecig_3lev_n)1 -0.981 0.327282
## as.factor(valscan_ecig_3lev_n)2 -0.614 0.539625
## as.factor(valscan_ecig_3lev_n)3 -1.763 0.078664 .
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 5.475 7.61e-08 ***
## as.factor(cigsmoker)Current cigarette smoker -1.375 0.170013
## ecigscan4level_n -0.227 0.820789
## age_t1x 0.150 0.880781
## as.factor(sex)Male 0.890 0.374068
## as.factor(race4cat_n)1 0.935 0.350086
## as.factor(race4cat_n)2 -0.649 0.516878
## as.factor(race4cat_n)3 0.405 0.685751
## goodgrades_n 0.339 0.734803
## paredu_n -1.201 0.230436
## as.factor(hhuse_vap)Yes -0.978 0.328482
## as.factor(hhuse_vap)Lives alone 0.616 0.538078
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 1.322948)
##
## Null deviance: 621.1 on 429 degrees of freedom
## Residual deviance: 547.7 on 414 degrees of freedom
## (70 observations deleted due to missingness)
## AIC: 1242.5
##
## Number of Fisher Scoring iterations: 2## se_vape_all_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 115 499 370 55
## 1 17 63 76 20
## 2 16 89 65 9
## 3 7 30 13 5## se_vape_all_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 119 506 371 57
## 1 17 63 75 23
## 2 20 80 75 3
## 3 8 33 12 3##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.46926 -0.30788 -0.05625 0.34964 3.13822
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.38276 0.15966 8.661
## as.factor(valscan_ecig_3lev_n)1 0.26522 0.10955 2.421
## as.factor(valscan_ecig_3lev_n)2 0.24711 0.10675 2.315
## as.factor(valscan_ecig_3lev_n)3 0.20986 0.13380 1.568
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.38036 0.02814 13.517
## as.factor(cigsmoker)Current cigarette smoker 0.40944 0.06590 6.213
## ecigscan4level_n -0.09254 0.05308 -1.743
## as.factor(age2cat_t1x)18-25 0.07998 0.04463 1.792
## as.factor(sex)Male 0.17339 0.04164 4.164
## as.factor(race4cat_n)1 0.07042 0.05676 1.241
## as.factor(race4cat_n)2 0.09587 0.06046 1.586
## as.factor(race4cat_n)3 0.07683 0.06692 1.148
## goodgrades_n -0.01283 0.02784 -0.461
## paredu_n -0.02932 0.01672 -1.754
## as.factor(hhuse_vap)Yes 0.04346 0.07673 0.566
## as.factor(hhuse_vap)Lives alone 0.12395 0.06633 1.869
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.0156 *
## as.factor(valscan_ecig_3lev_n)2 0.0208 *
## as.factor(valscan_ecig_3lev_n)3 0.1171
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 7.38e-10 ***
## ecigscan4level_n 0.0815 .
## as.factor(age2cat_t1x)18-25 0.0734 .
## as.factor(sex)Male 3.37e-05 ***
## as.factor(race4cat_n)1 0.2150
## as.factor(race4cat_n)2 0.1131
## as.factor(race4cat_n)3 0.2512
## goodgrades_n 0.6449
## paredu_n 0.0798 .
## as.factor(hhuse_vap)Yes 0.5713
## as.factor(hhuse_vap)Lives alone 0.0619 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4335413)
##
## Null deviance: 628.16 on 1112 degrees of freedom
## Residual deviance: 475.59 on 1097 degrees of freedom
## (258 observations deleted due to missingness)
## AIC: 2717
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[beliefs[x]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.5157 -0.3102 -0.0476 0.3549 3.1308
##
## Coefficients:
## Estimate
## (Intercept) 1.37729
## as.factor(valscan_ecig_3lev_n)1 0.35070
## as.factor(valscan_ecig_3lev_n)2 0.22125
## as.factor(valscan_ecig_3lev_n)3 0.16845
## as.factor(age2cat_t1x)18-25 0.08027
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.37989
## as.factor(cigsmoker)Current cigarette smoker 0.41105
## ecigscan4level_n -0.10117
## as.factor(sex)Male 0.17310
## as.factor(race4cat_n)1 0.06831
## as.factor(race4cat_n)2 0.09757
## as.factor(race4cat_n)3 0.07638
## goodgrades_n -0.01071
## paredu_n -0.02994
## as.factor(hhuse_vap)Yes 0.03963
## as.factor(hhuse_vap)Lives alone 0.12214
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.11506
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.07275
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.09664
## Std. Error
## (Intercept) 0.16119
## as.factor(valscan_ecig_3lev_n)1 0.14226
## as.factor(valscan_ecig_3lev_n)2 0.12432
## as.factor(valscan_ecig_3lev_n)3 0.17962
## as.factor(age2cat_t1x)18-25 0.05126
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 0.02831
## as.factor(cigsmoker)Current cigarette smoker 0.06615
## ecigscan4level_n 0.05373
## as.factor(sex)Male 0.04192
## as.factor(race4cat_n)1 0.05691
## as.factor(race4cat_n)2 0.06056
## as.factor(race4cat_n)3 0.06701
## goodgrades_n 0.02796
## paredu_n 0.01677
## as.factor(hhuse_vap)Yes 0.07691
## as.factor(hhuse_vap)Lives alone 0.06644
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.13655
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.12679
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.23119
## t value
## (Intercept) 8.545
## as.factor(valscan_ecig_3lev_n)1 2.465
## as.factor(valscan_ecig_3lev_n)2 1.780
## as.factor(valscan_ecig_3lev_n)3 0.938
## as.factor(age2cat_t1x)18-25 1.566
## survey_reduced_nonsmoker_T2[[beliefs[x]]] 13.418
## as.factor(cigsmoker)Current cigarette smoker 6.214
## ecigscan4level_n -1.883
## as.factor(sex)Male 4.129
## as.factor(race4cat_n)1 1.200
## as.factor(race4cat_n)2 1.611
## as.factor(race4cat_n)3 1.140
## goodgrades_n -0.383
## paredu_n -1.785
## as.factor(hhuse_vap)Yes 0.515
## as.factor(hhuse_vap)Lives alone 1.838
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.843
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.574
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.418
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.0138 *
## as.factor(valscan_ecig_3lev_n)2 0.0754 .
## as.factor(valscan_ecig_3lev_n)3 0.3486
## as.factor(age2cat_t1x)18-25 0.1177
## survey_reduced_nonsmoker_T2[[beliefs[x]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 7.34e-10 ***
## ecigscan4level_n 0.0600 .
## as.factor(sex)Male 3.92e-05 ***
## as.factor(race4cat_n)1 0.2303
## as.factor(race4cat_n)2 0.1075
## as.factor(race4cat_n)3 0.2546
## goodgrades_n 0.7018
## paredu_n 0.0745 .
## as.factor(hhuse_vap)Yes 0.6064
## as.factor(hhuse_vap)Lives alone 0.0663 .
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.3996
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.5662
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.6760
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.4341864)
##
## Null deviance: 628.16 on 1112 degrees of freedom
## Residual deviance: 475.00 on 1094 degrees of freedom
## (258 observations deleted due to missingness)
## AIC: 2721.6
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -1.85447 -0.25439 -0.01666 0.24888 1.79768
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 0.58389 0.35101
## as.factor(valscan_ecig_3lev_n)1 0.37117 0.13765
## as.factor(valscan_ecig_3lev_n)2 0.24400 0.12138
## as.factor(valscan_ecig_3lev_n)3 0.24838 0.14836
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 0.43973 0.03539
## as.factor(cigsmoker)Current cigarette smoker 0.36067 0.16291
## ecigscan4level_n -0.12371 0.06455
## age_t1x 0.05863 0.01804
## as.factor(sex)Male 0.10462 0.05143
## as.factor(race4cat_n)1 0.04762 0.06696
## as.factor(race4cat_n)2 0.06616 0.07814
## as.factor(race4cat_n)3 0.10499 0.08566
## goodgrades_n -0.05900 0.03629
## paredu_n -0.02871 0.02071
## as.factor(hhuse_vap)Yes 0.16587 0.07975
## as.factor(hhuse_vap)Lives alone 0.23026 0.25825
## t value Pr(>|t|)
## (Intercept) 1.663 0.09669 .
## as.factor(valscan_ecig_3lev_n)1 2.696 0.00718 **
## as.factor(valscan_ecig_3lev_n)2 2.010 0.04482 *
## as.factor(valscan_ecig_3lev_n)3 1.674 0.09455 .
## survey_reduced_under18_nonsmoker_T2[[beliefs[x]]] 12.426 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 2.214 0.02717 *
## ecigscan4level_n -1.917 0.05571 .
## age_t1x 3.250 0.00121 **
## as.factor(sex)Male 2.034 0.04232 *
## as.factor(race4cat_n)1 0.711 0.47720
## as.factor(race4cat_n)2 0.847 0.39747
## as.factor(race4cat_n)3 1.226 0.22079
## goodgrades_n -1.626 0.10447
## paredu_n -1.387 0.16605
## as.factor(hhuse_vap)Yes 2.080 0.03791 *
## as.factor(hhuse_vap)Lives alone 0.892 0.37292
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.2519075)
##
## Null deviance: 233.06 on 688 degrees of freedom
## Residual deviance: 169.53 on 673 degrees of freedom
## (209 observations deleted due to missingness)
## AIC: 1613.2
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(beliefs[x],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.58320 -0.46319 -0.08842 0.49640 3.01019
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.238749 0.410054
## as.factor(valscan_ecig_3lev_n)1 0.188516 0.182049
## as.factor(valscan_ecig_3lev_n)2 0.279876 0.190951
## as.factor(valscan_ecig_3lev_n)3 0.281277 0.243344
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 0.339102 0.046312
## as.factor(cigsmoker)Current cigarette smoker 0.417586 0.091469
## ecigscan4level_n -0.099731 0.090531
## age_t1x 0.007458 0.014858
## as.factor(sex)Male 0.222778 0.069628
## as.factor(race4cat_n)1 0.085695 0.097158
## as.factor(race4cat_n)2 0.123938 0.097667
## as.factor(race4cat_n)3 0.049213 0.109152
## goodgrades_n 0.020600 0.044997
## paredu_n -0.021744 0.027942
## as.factor(hhuse_vap)Yes -0.110630 0.147706
## as.factor(hhuse_vap)Lives alone 0.084173 0.089797
## t value Pr(>|t|)
## (Intercept) 3.021 0.00268 **
## as.factor(valscan_ecig_3lev_n)1 1.036 0.30104
## as.factor(valscan_ecig_3lev_n)2 1.466 0.14350
## as.factor(valscan_ecig_3lev_n)3 1.156 0.24840
## survey_reduced_over18_nonsmoker_T2[[beliefs[x]]] 7.322 1.31e-12 ***
## as.factor(cigsmoker)Current cigarette smoker 4.565 6.61e-06 ***
## ecigscan4level_n -1.102 0.27127
## age_t1x 0.502 0.61599
## as.factor(sex)Male 3.200 0.00148 **
## as.factor(race4cat_n)1 0.882 0.37829
## as.factor(race4cat_n)2 1.269 0.20517
## as.factor(race4cat_n)3 0.451 0.65232
## goodgrades_n 0.458 0.64734
## paredu_n -0.778 0.43691
## as.factor(hhuse_vap)Yes -0.749 0.45430
## as.factor(hhuse_vap)Lives alone 0.937 0.34912
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.7268519)
##
## Null deviance: 376.81 on 423 degrees of freedom
## Residual deviance: 296.56 on 408 degrees of freedom
## (76 observations deleted due to missingness)
## AIC: 966.41
##
## Number of Fisher Scoring iterations: 2## qn55a_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 145 584 211 118
## 1 9 83 52 35
## 2 7 88 62 23
## 3 5 36 9 5## qn55a_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 94 550 266 149
## 1 4 88 52 35
## 2 9 87 59 26
## 3 3 29 14 10##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(norms[y], "x",
## sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[norms[y]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.6519 -0.3910 -0.1414 0.3660 3.6327
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 2.059858 0.177200 11.624
## as.factor(valscan_ecig_3lev_n)1 -0.070767 0.122024 -0.580
## as.factor(valscan_ecig_3lev_n)2 -0.135400 0.120607 -1.123
## as.factor(valscan_ecig_3lev_n)3 0.400173 0.151672 2.638
## survey_reduced_nonsmoker_T2[[norms[y]]] 0.384321 0.028087 13.683
## as.factor(cigsmoker)Current cigarette smoker -0.109032 0.074063 -1.472
## ecigscan4level_n 0.056798 0.059611 0.953
## as.factor(age2cat_t1x)18-25 -0.011441 0.049395 -0.232
## as.factor(sex)Male -0.122214 0.046136 -2.649
## as.factor(race4cat_n)1 0.101169 0.063514 1.593
## as.factor(race4cat_n)2 0.071983 0.067010 1.074
## as.factor(race4cat_n)3 0.069554 0.075285 0.924
## goodgrades_n -0.100920 0.030990 -3.257
## paredu_n 0.001003 0.018743 0.054
## as.factor(hhuse_vap)Yes -0.112453 0.086734 -1.297
## as.factor(hhuse_vap)Lives alone 0.026698 0.073559 0.363
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.56207
## as.factor(valscan_ecig_3lev_n)2 0.26182
## as.factor(valscan_ecig_3lev_n)3 0.00844 **
## survey_reduced_nonsmoker_T2[[norms[y]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.14126
## ecigscan4level_n 0.34089
## as.factor(age2cat_t1x)18-25 0.81687
## as.factor(sex)Male 0.00819 **
## as.factor(race4cat_n)1 0.11147
## as.factor(race4cat_n)2 0.28295
## as.factor(race4cat_n)3 0.35575
## goodgrades_n 0.00116 **
## paredu_n 0.95733
## as.factor(hhuse_vap)Yes 0.19506
## as.factor(hhuse_vap)Lives alone 0.71672
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5596903)
##
## Null deviance: 769.56 on 1141 degrees of freedom
## Residual deviance: 630.21 on 1126 degrees of freedom
## (229 observations deleted due to missingness)
## AIC: 3071.9
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(norms[y], "x",
## sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[norms[y]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.6845 -0.3832 -0.1387 0.3651 3.5696
##
## Coefficients:
## Estimate
## (Intercept) 2.005566
## as.factor(valscan_ecig_3lev_n)1 0.089533
## as.factor(valscan_ecig_3lev_n)2 0.007872
## as.factor(valscan_ecig_3lev_n)3 0.273675
## as.factor(age2cat_t1x)18-25 0.037639
## survey_reduced_nonsmoker_T2[[norms[y]]] 0.381217
## as.factor(cigsmoker)Current cigarette smoker -0.098088
## ecigscan4level_n 0.054138
## as.factor(sex)Male -0.115396
## as.factor(race4cat_n)1 0.107558
## as.factor(race4cat_n)2 0.068085
## as.factor(race4cat_n)3 0.069500
## goodgrades_n -0.096272
## paredu_n 0.003100
## as.factor(hhuse_vap)Yes -0.121688
## as.factor(hhuse_vap)Lives alone 0.021443
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.251180
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -0.242310
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.249863
## Std. Error
## (Intercept) 0.178340
## as.factor(valscan_ecig_3lev_n)1 0.158324
## as.factor(valscan_ecig_3lev_n)2 0.140451
## as.factor(valscan_ecig_3lev_n)3 0.203193
## as.factor(age2cat_t1x)18-25 0.056443
## survey_reduced_nonsmoker_T2[[norms[y]]] 0.028147
## as.factor(cigsmoker)Current cigarette smoker 0.074136
## ecigscan4level_n 0.060227
## as.factor(sex)Male 0.046358
## as.factor(race4cat_n)1 0.063543
## as.factor(race4cat_n)2 0.066965
## as.factor(race4cat_n)3 0.075202
## goodgrades_n 0.031041
## paredu_n 0.018750
## as.factor(hhuse_vap)Yes 0.086742
## as.factor(hhuse_vap)Lives alone 0.073509
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.152199
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.142529
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.261865
## t value
## (Intercept) 11.246
## as.factor(valscan_ecig_3lev_n)1 0.566
## as.factor(valscan_ecig_3lev_n)2 0.056
## as.factor(valscan_ecig_3lev_n)3 1.347
## as.factor(age2cat_t1x)18-25 0.667
## survey_reduced_nonsmoker_T2[[norms[y]]] 13.544
## as.factor(cigsmoker)Current cigarette smoker -1.323
## ecigscan4level_n 0.899
## as.factor(sex)Male -2.489
## as.factor(race4cat_n)1 1.693
## as.factor(race4cat_n)2 1.017
## as.factor(race4cat_n)3 0.924
## goodgrades_n -3.101
## paredu_n 0.165
## as.factor(hhuse_vap)Yes -1.403
## as.factor(hhuse_vap)Lives alone 0.292
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -1.650
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 -1.700
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.954
## Pr(>|t|)
## (Intercept) < 2e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.57184
## as.factor(valscan_ecig_3lev_n)2 0.95531
## as.factor(valscan_ecig_3lev_n)3 0.17829
## as.factor(age2cat_t1x)18-25 0.50500
## survey_reduced_nonsmoker_T2[[norms[y]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.18607
## ecigscan4level_n 0.36890
## as.factor(sex)Male 0.01295 *
## as.factor(race4cat_n)1 0.09079 .
## as.factor(race4cat_n)2 0.30950
## as.factor(race4cat_n)3 0.35559
## goodgrades_n 0.00197 **
## paredu_n 0.86870
## as.factor(hhuse_vap)Yes 0.16093
## as.factor(hhuse_vap)Lives alone 0.77057
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.09915 .
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.08939 .
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.34020
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.5580183)
##
## Null deviance: 769.56 on 1141 degrees of freedom
## Residual deviance: 626.65 on 1123 degrees of freedom
## (229 observations deleted due to missingness)
## AIC: 3071.4
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(norms[y],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[norms[y]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.8838 -0.3014 -0.1023 0.3186 2.3310
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.44865 0.42057
## as.factor(valscan_ecig_3lev_n)1 0.28991 0.16564
## as.factor(valscan_ecig_3lev_n)2 0.20272 0.14869
## as.factor(valscan_ecig_3lev_n)3 0.43697 0.18171
## survey_reduced_under18_nonsmoker_T2[[norms[y]]] 0.35530 0.03571
## as.factor(cigsmoker)Current cigarette smoker 0.06234 0.20031
## ecigscan4level_n -0.07681 0.07847
## age_t1x 0.02987 0.02258
## as.factor(sex)Male -0.10555 0.06212
## as.factor(race4cat_n)1 0.10114 0.08196
## as.factor(race4cat_n)2 0.16620 0.09563
## as.factor(race4cat_n)3 0.04539 0.10593
## goodgrades_n -0.09062 0.04442
## paredu_n 0.04268 0.02517
## as.factor(hhuse_vap)Yes -0.14198 0.09818
## as.factor(hhuse_vap)Lives alone 0.50817 0.31755
## t value Pr(>|t|)
## (Intercept) 3.444 0.000607 ***
## as.factor(valscan_ecig_3lev_n)1 1.750 0.080525 .
## as.factor(valscan_ecig_3lev_n)2 1.363 0.173211
## as.factor(valscan_ecig_3lev_n)3 2.405 0.016450 *
## survey_reduced_under18_nonsmoker_T2[[norms[y]]] 9.951 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.311 0.755731
## ecigscan4level_n -0.979 0.327976
## age_t1x 1.323 0.186246
## as.factor(sex)Male -1.699 0.089775 .
## as.factor(race4cat_n)1 1.234 0.217629
## as.factor(race4cat_n)2 1.738 0.082682 .
## as.factor(race4cat_n)3 0.428 0.668436
## goodgrades_n -2.040 0.041753 *
## paredu_n 1.696 0.090359 .
## as.factor(hhuse_vap)Yes -1.446 0.148595
## as.factor(hhuse_vap)Lives alone 1.600 0.110004
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.3808733)
##
## Null deviance: 319.05 on 697 degrees of freedom
## Residual deviance: 259.76 on 682 degrees of freedom
## (200 observations deleted due to missingness)
## AIC: 1924.1
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(norms[y],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[norms[y]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -3.6942 -0.5290 -0.2193 0.3969 3.6349
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 2.0683082 0.4387124
## as.factor(valscan_ecig_3lev_n)1 -0.3068570 0.1917716
## as.factor(valscan_ecig_3lev_n)2 -0.4072716 0.2039745
## as.factor(valscan_ecig_3lev_n)3 0.3707342 0.2610437
## survey_reduced_over18_nonsmoker_T2[[norms[y]]] 0.4001035 0.0470101
## as.factor(cigsmoker)Current cigarette smoker -0.1216973 0.0971813
## ecigscan4level_n 0.1558362 0.0963138
## age_t1x -0.0005237 0.0157399
## as.factor(sex)Male -0.1279677 0.0726411
## as.factor(race4cat_n)1 0.1189197 0.1021028
## as.factor(race4cat_n)2 0.0095546 0.1019848
## as.factor(race4cat_n)3 0.0854769 0.1151863
## goodgrades_n -0.0918343 0.0470277
## paredu_n -0.0174451 0.0295631
## as.factor(hhuse_vap)Yes -0.0632654 0.1579777
## as.factor(hhuse_vap)Lives alone 0.0079862 0.0942509
## t value Pr(>|t|)
## (Intercept) 4.714 3.28e-06 ***
## as.factor(valscan_ecig_3lev_n)1 -1.600 0.1103
## as.factor(valscan_ecig_3lev_n)2 -1.997 0.0465 *
## as.factor(valscan_ecig_3lev_n)3 1.420 0.1563
## survey_reduced_over18_nonsmoker_T2[[norms[y]]] 8.511 2.94e-16 ***
## as.factor(cigsmoker)Current cigarette smoker -1.252 0.2112
## ecigscan4level_n 1.618 0.1064
## age_t1x -0.033 0.9735
## as.factor(sex)Male -1.762 0.0788 .
## as.factor(race4cat_n)1 1.165 0.2448
## as.factor(race4cat_n)2 0.094 0.9254
## as.factor(race4cat_n)3 0.742 0.4584
## goodgrades_n -1.953 0.0515 .
## paredu_n -0.590 0.5554
## as.factor(hhuse_vap)Yes -0.400 0.6890
## as.factor(hhuse_vap)Lives alone 0.085 0.9325
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.8411653)
##
## Null deviance: 450.28 on 443 degrees of freedom
## Residual deviance: 360.02 on 428 degrees of freedom
## (56 observations deleted due to missingness)
## AIC: 1077.6
##
## Number of Fisher Scoring iterations: 2## qn53_n
## valscan_ecig_3lev_n 1 2 3 4
## 0 447 434 150 18
## 1 42 71 53 11
## 2 58 86 33 2
## 3 31 20 5 0## qn53_nx
## valscan_ecig_3lev_n 1 2 3 4
## 0 443 435 161 18
## 1 47 74 49 6
## 2 70 79 31 0
## 3 29 23 3 1##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(norms[y], "x",
## sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_nonsmoker_T2[[norms[y]]] +
## as.factor(cigsmoker) + ecigscan4level_n + as.factor(age2cat_t1x) +
## as.factor(sex) + as.factor(race4cat_n) + goodgrades_n + paredu_n +
## as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.55841 -0.31665 -0.07063 0.29090 2.96289
##
## Coefficients:
## Estimate Std. Error t value
## (Intercept) 1.24544 0.15026 8.288
## as.factor(valscan_ecig_3lev_n)1 0.14675 0.10522 1.395
## as.factor(valscan_ecig_3lev_n)2 0.05496 0.10192 0.539
## as.factor(valscan_ecig_3lev_n)3 0.27805 0.12704 2.189
## survey_reduced_nonsmoker_T2[[norms[y]]] 0.47830 0.02733 17.501
## as.factor(cigsmoker)Current cigarette smoker 0.23999 0.06641 3.614
## ecigscan4level_n -0.07564 0.05102 -1.483
## as.factor(age2cat_t1x)18-25 0.09715 0.04193 2.317
## as.factor(sex)Male 0.01969 0.03912 0.503
## as.factor(race4cat_n)1 -0.05546 0.05335 -1.040
## as.factor(race4cat_n)2 0.17922 0.05658 3.168
## as.factor(race4cat_n)3 -0.08987 0.06412 -1.402
## goodgrades_n -0.06836 0.02683 -2.547
## paredu_n -0.03137 0.01602 -1.959
## as.factor(hhuse_vap)Yes -0.04696 0.07399 -0.635
## as.factor(hhuse_vap)Lives alone 0.18058 0.06468 2.792
## Pr(>|t|)
## (Intercept) 3.27e-16 ***
## as.factor(valscan_ecig_3lev_n)1 0.163383
## as.factor(valscan_ecig_3lev_n)2 0.589853
## as.factor(valscan_ecig_3lev_n)3 0.028824 *
## survey_reduced_nonsmoker_T2[[norms[y]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.000315 ***
## ecigscan4level_n 0.138468
## as.factor(age2cat_t1x)18-25 0.020692 *
## as.factor(sex)Male 0.614804
## as.factor(race4cat_n)1 0.298737
## as.factor(race4cat_n)2 0.001578 **
## as.factor(race4cat_n)3 0.161331
## goodgrades_n 0.010988 *
## paredu_n 0.050389 .
## as.factor(hhuse_vap)Yes 0.525763
## as.factor(hhuse_vap)Lives alone 0.005326 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.3919719)
##
## Null deviance: 647.43 on 1128 degrees of freedom
## Residual deviance: 436.26 on 1113 degrees of freedom
## (242 observations deleted due to missingness)
## AIC: 2650.5
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_nonsmoker_T2[[paste(norms[y], "x",
## sep = "")]] ~ as.factor(valscan_ecig_3lev_n) * as.factor(age2cat_t1x) +
## survey_reduced_nonsmoker_T2[[norms[y]]] + as.factor(cigsmoker) +
## ecigscan4level_n + as.factor(sex) + as.factor(race4cat_n) +
## goodgrades_n + paredu_n + as.factor(hhuse_vap), data = survey_reduced_nonsmoker_T2,
## weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.55903 -0.31940 -0.06787 0.29203 2.95633
##
## Coefficients:
## Estimate
## (Intercept) 1.232622
## as.factor(valscan_ecig_3lev_n)1 0.221717
## as.factor(valscan_ecig_3lev_n)2 0.058466
## as.factor(valscan_ecig_3lev_n)3 0.249082
## as.factor(age2cat_t1x)18-25 0.106015
## survey_reduced_nonsmoker_T2[[norms[y]]] 0.477443
## as.factor(cigsmoker)Current cigarette smoker 0.243922
## ecigscan4level_n -0.079934
## as.factor(sex)Male 0.019899
## as.factor(race4cat_n)1 -0.055718
## as.factor(race4cat_n)2 0.180026
## as.factor(race4cat_n)3 -0.089976
## goodgrades_n -0.066387
## paredu_n -0.031278
## as.factor(hhuse_vap)Yes -0.050070
## as.factor(hhuse_vap)Lives alone 0.178300
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.111204
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.008221
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.063876
## Std. Error
## (Intercept) 0.152251
## as.factor(valscan_ecig_3lev_n)1 0.134419
## as.factor(valscan_ecig_3lev_n)2 0.118754
## as.factor(valscan_ecig_3lev_n)3 0.171156
## as.factor(age2cat_t1x)18-25 0.047863
## survey_reduced_nonsmoker_T2[[norms[y]]] 0.027374
## as.factor(cigsmoker)Current cigarette smoker 0.066823
## ecigscan4level_n 0.051482
## as.factor(sex)Male 0.039392
## as.factor(race4cat_n)1 0.053545
## as.factor(race4cat_n)2 0.056660
## as.factor(race4cat_n)3 0.064210
## goodgrades_n 0.026953
## paredu_n 0.016076
## as.factor(hhuse_vap)Yes 0.074150
## as.factor(hhuse_vap)Lives alone 0.064818
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.129374
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.121793
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.217686
## t value
## (Intercept) 8.096
## as.factor(valscan_ecig_3lev_n)1 1.649
## as.factor(valscan_ecig_3lev_n)2 0.492
## as.factor(valscan_ecig_3lev_n)3 1.455
## as.factor(age2cat_t1x)18-25 2.215
## survey_reduced_nonsmoker_T2[[norms[y]]] 17.442
## as.factor(cigsmoker)Current cigarette smoker 3.650
## ecigscan4level_n -1.553
## as.factor(sex)Male 0.505
## as.factor(race4cat_n)1 -1.041
## as.factor(race4cat_n)2 3.177
## as.factor(race4cat_n)3 -1.401
## goodgrades_n -2.463
## paredu_n -1.946
## as.factor(hhuse_vap)Yes -0.675
## as.factor(hhuse_vap)Lives alone 2.751
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 -0.860
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.068
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.293
## Pr(>|t|)
## (Intercept) 1.48e-15 ***
## as.factor(valscan_ecig_3lev_n)1 0.099340 .
## as.factor(valscan_ecig_3lev_n)2 0.622583
## as.factor(valscan_ecig_3lev_n)3 0.145870
## as.factor(age2cat_t1x)18-25 0.026965 *
## survey_reduced_nonsmoker_T2[[norms[y]]] < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 0.000274 ***
## ecigscan4level_n 0.120785
## as.factor(sex)Male 0.613557
## as.factor(race4cat_n)1 0.298295
## as.factor(race4cat_n)2 0.001528 **
## as.factor(race4cat_n)3 0.161412
## goodgrades_n 0.013927 *
## paredu_n 0.051953 .
## as.factor(hhuse_vap)Yes 0.499655
## as.factor(hhuse_vap)Lives alone 0.006042 **
## as.factor(valscan_ecig_3lev_n)1:as.factor(age2cat_t1x)18-25 0.390219
## as.factor(valscan_ecig_3lev_n)2:as.factor(age2cat_t1x)18-25 0.946195
## as.factor(valscan_ecig_3lev_n)3:as.factor(age2cat_t1x)18-25 0.769248
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.392717)
##
## Null deviance: 647.43 on 1128 degrees of freedom
## Residual deviance: 435.92 on 1110 degrees of freedom
## (242 observations deleted due to missingness)
## AIC: 2655.6
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_under18_nonsmoker_T2[[paste(norms[y],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_under18_nonsmoker_T2[[norms[y]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_under18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -1.66434 -0.28183 -0.08189 0.23845 2.18944
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 0.690211 0.352957
## as.factor(valscan_ecig_3lev_n)1 0.140380 0.138124
## as.factor(valscan_ecig_3lev_n)2 -0.020577 0.123727
## as.factor(valscan_ecig_3lev_n)3 0.224742 0.152367
## survey_reduced_under18_nonsmoker_T2[[norms[y]]] 0.441593 0.038432
## as.factor(cigsmoker)Current cigarette smoker 0.280632 0.179162
## ecigscan4level_n -0.028017 0.065681
## age_t1x 0.028869 0.018762
## as.factor(sex)Male -0.109642 0.051858
## as.factor(race4cat_n)1 -0.046080 0.068077
## as.factor(race4cat_n)2 0.122409 0.079899
## as.factor(race4cat_n)3 -0.199911 0.088249
## goodgrades_n -0.025897 0.037641
## paredu_n -0.015000 0.021070
## as.factor(hhuse_vap)Yes -0.003241 0.083626
## as.factor(hhuse_vap)Lives alone 0.530088 0.264858
## t value Pr(>|t|)
## (Intercept) 1.956 0.0509 .
## as.factor(valscan_ecig_3lev_n)1 1.016 0.3098
## as.factor(valscan_ecig_3lev_n)2 -0.166 0.8680
## as.factor(valscan_ecig_3lev_n)3 1.475 0.1407
## survey_reduced_under18_nonsmoker_T2[[norms[y]]] 11.490 <2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 1.566 0.1177
## ecigscan4level_n -0.427 0.6698
## age_t1x 1.539 0.1244
## as.factor(sex)Male -2.114 0.0349 *
## as.factor(race4cat_n)1 -0.677 0.4987
## as.factor(race4cat_n)2 1.532 0.1260
## as.factor(race4cat_n)3 -2.265 0.0238 *
## goodgrades_n -0.688 0.4917
## paredu_n -0.712 0.4768
## as.factor(hhuse_vap)Yes -0.039 0.9691
## as.factor(hhuse_vap)Lives alone 2.001 0.0457 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.2643298)
##
## Null deviance: 235.39 on 697 degrees of freedom
## Residual deviance: 180.27 on 682 degrees of freedom
## (200 observations deleted due to missingness)
## AIC: 1671.3
##
## Number of Fisher Scoring iterations: 2##
## Call:
## glm(formula = survey_reduced_over18_nonsmoker_T2[[paste(norms[y],
## "x", sep = "")]] ~ as.factor(valscan_ecig_3lev_n) + survey_reduced_over18_nonsmoker_T2[[norms[y]]] +
## as.factor(cigsmoker) + ecigscan4level_n + age_t1x + as.factor(sex) +
## as.factor(race4cat_n) + goodgrades_n + paredu_n + as.factor(hhuse_vap),
## data = survey_reduced_over18_nonsmoker_T2, weights = weight2_main)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.67726 -0.47537 0.00108 0.43614 2.93569
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.427700 0.373065
## as.factor(valscan_ecig_3lev_n)1 0.183503 0.169920
## as.factor(valscan_ecig_3lev_n)2 0.122199 0.175599
## as.factor(valscan_ecig_3lev_n)3 0.386492 0.219104
## survey_reduced_over18_nonsmoker_T2[[norms[y]]] 0.487377 0.042208
## as.factor(cigsmoker)Current cigarette smoker 0.215329 0.088868
## ecigscan4level_n -0.113535 0.084076
## age_t1x -0.001116 0.013388
## as.factor(sex)Male 0.106873 0.062687
## as.factor(race4cat_n)1 -0.076747 0.087039
## as.factor(race4cat_n)2 0.223395 0.086620
## as.factor(race4cat_n)3 -0.042374 0.099953
## goodgrades_n -0.085343 0.041494
## paredu_n -0.044450 0.025763
## as.factor(hhuse_vap)Yes -0.111629 0.134779
## as.factor(hhuse_vap)Lives alone 0.160047 0.083323
## t value Pr(>|t|)
## (Intercept) 3.827 0.00015 ***
## as.factor(valscan_ecig_3lev_n)1 1.080 0.28080
## as.factor(valscan_ecig_3lev_n)2 0.696 0.48688
## as.factor(valscan_ecig_3lev_n)3 1.764 0.07847 .
## survey_reduced_over18_nonsmoker_T2[[norms[y]]] 11.547 < 2e-16 ***
## as.factor(cigsmoker)Current cigarette smoker 2.423 0.01582 *
## ecigscan4level_n -1.350 0.17763
## age_t1x -0.083 0.93361
## as.factor(sex)Male 1.705 0.08897 .
## as.factor(race4cat_n)1 -0.882 0.37842
## as.factor(race4cat_n)2 2.579 0.01025 *
## as.factor(race4cat_n)3 -0.424 0.67183
## goodgrades_n -2.057 0.04034 *
## paredu_n -1.725 0.08520 .
## as.factor(hhuse_vap)Yes -0.828 0.40801
## as.factor(hhuse_vap)Lives alone 1.921 0.05544 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for gaussian family taken to be 0.6000223)
##
## Null deviance: 387.52 on 430 degrees of freedom
## Residual deviance: 249.01 on 415 degrees of freedom
## (69 observations deleted due to missingness)
## AIC: 905.34
##
## Number of Fisher Scoring iterations: 2