The variables have been divided in two groups : Increased and Decreased.
## Loading required package: viridisLite
COVID stressors +covariets that are found to be significant (p < 0.05) in the univariate analysis are selected for subsequent logistic regression analysis.
0 means : No change/Not applicable/ decreased for fear of seizure/ health conditon 1 means : increased for fear of seizure/ health condition
Among covid stressors, all became significant rather than alcohol composition in both outcomes, and among covariates, just GASE and seizure freedom were significant.
##
## --------Summary descriptives table by 'Fear_seizure_covid_fac'---------
##
## ____________________________________________________________
## 0 1 p.overall
## N=166 N=94
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
## Stress: <0.001
## Increased 78 (47.0%) 74 (78.7%)
## No change 88 (53.0%) 20 (21.3%)
## Anxiety: <0.001
## Increased 76 (45.8%) 72 (76.6%)
## No change 90 (54.2%) 22 (23.4%)
## Social_isolation: <0.001
## Increased 67 (40.4%) 61 (64.9%)
## No change 99 (59.6%) 33 (35.1%)
## Anger: 0.018
## Increased 47 (28.3%) 41 (43.6%)
## No change 119 (71.7%) 53 (56.4%)
## Fear_healthcare: <0.001
## Increased 29 (17.5%) 47 (50.0%)
## No change 137 (82.5%) 47 (50.0%)
## Alcohol_consumption: 0.099
## Increased 30 (18.1%) 26 (27.7%)
## No change 136 (81.9%) 68 (72.3%)
## Use_mental_health_care: 0.020
## Decreased 38 (22.9%) 35 (37.2%)
## No change 128 (77.1%) 59 (62.8%)
## Use_health_care: 0.001
## Decreased 36 (21.7%) 39 (41.5%)
## No change 130 (78.3%) 55 (58.5%)
## Access_physicalhealthcare: <0.001
## Decreased 33 (19.9%) 48 (51.1%)
## No change 133 (80.1%) 46 (48.9%)
## Access_mentalhealthcare: 0.002
## Decreased 47 (28.3%) 45 (47.9%)
## No change 119 (71.7%) 49 (52.1%)
## Control_over_life: 0.002
## Decreased 56 (33.7%) 51 (54.3%)
## No change 110 (66.3%) 43 (45.7%)
## Age_num 39.3 (16.1) 37.6 (12.1) 0.333
## Gender: 0.967
## Female 106 (63.9%) 59 (62.8%)
## Male 60 (36.1%) 35 (37.2%)
## Race: 0.071
## White 124 (74.7%) 61 (64.9%)
## Black 8 (4.82%) 13 (13.8%)
## Hispanic 22 (13.3%) 14 (14.9%)
## Mixed 12 (7.23%) 6 (6.38%)
## Education: 0.288
## High School 49 (29.5%) 19 (20.2%)
## Less than High School 11 (6.63%) 5 (5.32%)
## More than College 62 (37.3%) 45 (47.9%)
## Some College 44 (26.5%) 25 (26.6%)
## diag_covid: 0.855
## 153 (92.2%) 88 (93.6%)
## You 13 (7.83%) 6 (6.38%)
## severe 2.78 (1.49) 3.83 (1.44) <0.001
## Seizure_Freedom: <0.001
## No 90 (54.2%) 79 (84.0%)
## Yes 76 (45.8%) 15 (16.0%)
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
##
## --------Summary descriptives table by 'Health_outcome_fac'---------
##
## ____________________________________________________________
## 0 1 p.overall
## N=181 N=79
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
## Stress: <0.001
## Increased 85 (47.0%) 67 (84.8%)
## No change 96 (53.0%) 12 (15.2%)
## Anxiety: <0.001
## Increased 82 (45.3%) 66 (83.5%)
## No change 99 (54.7%) 13 (16.5%)
## Social_isolation: <0.001
## Increased 70 (38.7%) 58 (73.4%)
## No change 111 (61.3%) 21 (26.6%)
## Anger: <0.001
## Increased 46 (25.4%) 42 (53.2%)
## No change 135 (74.6%) 37 (46.8%)
## Fear_healthcare: <0.001
## Increased 35 (19.3%) 41 (51.9%)
## No change 146 (80.7%) 38 (48.1%)
## Alcohol_consumption: 0.072
## Increased 33 (18.2%) 23 (29.1%)
## No change 148 (81.8%) 56 (70.9%)
## Use_mental_health_care: 0.001
## Decreased 39 (21.5%) 34 (43.0%)
## No change 142 (78.5%) 45 (57.0%)
## Use_health_care: <0.001
## Decreased 40 (22.1%) 35 (44.3%)
## No change 141 (77.9%) 44 (55.7%)
## Access_physicalhealthcare: <0.001
## Decreased 39 (21.5%) 42 (53.2%)
## No change 142 (78.5%) 37 (46.8%)
## Access_mentalhealthcare: <0.001
## Decreased 49 (27.1%) 43 (54.4%)
## No change 132 (72.9%) 36 (45.6%)
## Control_over_life: <0.001
## Decreased 59 (32.6%) 48 (60.8%)
## No change 122 (67.4%) 31 (39.2%)
## Age_num 39.4 (15.7) 37.1 (12.4) 0.192
## Gender: 0.133
## Female 109 (60.2%) 56 (70.9%)
## Male 72 (39.8%) 23 (29.1%)
## Race: 0.352
## White 127 (70.2%) 58 (73.4%)
## Black 18 (9.94%) 3 (3.80%)
## Hispanic 23 (12.7%) 13 (16.5%)
## Mixed 13 (7.18%) 5 (6.33%)
## Education: 0.756
## High School 44 (24.3%) 24 (30.4%)
## Less than High School 12 (6.63%) 4 (5.06%)
## More than College 75 (41.4%) 32 (40.5%)
## Some College 50 (27.6%) 19 (24.1%)
## diag_covid: 0.706
## 169 (93.4%) 72 (91.1%)
## You 12 (6.63%) 7 (8.86%)
## severe 3.02 (1.51) 3.48 (1.61) 0.033
## Seizure_Freedom: <0.001
## No 104 (57.5%) 65 (82.3%)
## Yes 77 (42.5%) 14 (17.7%)
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
`
Significant variables in both univariate analyses were used in these two models, and the results were in Odds Ratio (95% CI).
## Saving 7 x 5 in image
## Saving 7 x 5 in image
resu1 <- compareGroups(~Age_num+Gender+Race+Education+diag_covid+severe+Seizure_Freedom, data = LEEP_covid,
method = c(waist = 2))
## Warning in compareGroups.fit(X = X, y = y, include.label = include.label, :
## variables waist specified in 'method' not found
createTable(resu1)
##
## --------Summary descriptives table ---------
##
## _________________________________________
## [ALL] N
## N=260
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
## Age_num 38.7 (14.8) 260
## Gender: 260
## Female 165 (63.5%)
## Male 95 (36.5%)
## Race: 260
## White 185 (71.2%)
## Black 21 (8.08%)
## Hispanic 36 (13.8%)
## Mixed 18 (6.92%)
## Education: 260
## High School 68 (26.2%)
## Less than High School 16 (6.15%)
## More than College 107 (41.2%)
## Some College 69 (26.5%)
## diag_covid: 260
## 241 (92.7%)
## You 19 (7.31%)
## severe 3.16 (1.55) 260
## Seizure_Freedom: 260
## No 169 (65.0%)
## Yes 91 (35.0%)
## ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
restab <- createTable(resu1, type = 1, show.ratio = TRUE)
export2csv(restab, file='demo_leep.csv')