janitor::tabyl(pre, faculty.f)
## faculty.f n percent valid_percent
## arts 45 0.07679181 0.1401869
## science, engineering, medicine 88 0.15017065 0.2741433
## social science 171 0.29180887 0.5327103
## cross-faculty 17 0.02901024 0.0529595
## <NA> 265 0.45221843 NA
janitor::tabyl(pre, programme.level.f)
## programme.level.f n percent valid_percent
## undergraduate 397 0.677474403 0.916859122
## masters 32 0.054607509 0.073903002
## phd 4 0.006825939 0.009237875
## <NA> 153 0.261092150 NA
janitor::tabyl(pre, study.mode.f)
## study.mode.f n percent valid_percent
## full-time 426 0.72696246 0.97482838
## part-time 11 0.01877133 0.02517162
## <NA> 149 0.25426621 NA
janitor::tabyl(pre, age.f)
## age.f n percent valid_percent
## 18-21 388 0.662116041 0.862222222
## 22-25 37 0.063139932 0.082222222
## 26-35 13 0.022184300 0.028888889
## 36-45 8 0.013651877 0.017777778
## 46-55 3 0.005119454 0.006666667
## 55+ 1 0.001706485 0.002222222
## <NA> 136 0.232081911 NA
janitor::tabyl(pre, gender.f)
## gender.f n percent valid_percent
## male 179 0.305460751 0.404977376
## female 251 0.428327645 0.567873303
## non-binary 11 0.018771331 0.024886878
## other 1 0.001706485 0.002262443
## <NA> 144 0.245733788 NA
janitor::tabyl(pre, gender.sex.f)
## gender.sex.f n percent valid_percent
## gender matches sex 435 0.74232082 0.98194131
## gender different than sex 8 0.01365188 0.01805869
## <NA> 143 0.24402730 NA
jmv::descriptives(pre, vars = vars(wellbeing.t1, life.sat1, mhpb1, mhpb2), missing = TRUE)
##
## DESCRIPTIVES
##
## Descriptives
## ─────────────────────────────────────────────────────────────────────────────
## wellbeing.t1 life.sat1 mhpb1 mhpb2
## ─────────────────────────────────────────────────────────────────────────────
## N 441 443 440 440
## Missing 145 143 146 146
## Mean 3.325111 6.686230 3.631818 3.222727
## Median 3.285714 7 4.000000 3.000000
## Standard deviation 0.6666291 1.734261 0.8856674 0.9875913
## Minimum 1.000000 0 1 1
## Maximum 5.000000 10 5 5
## ─────────────────────────────────────────────────────────────────────────────
# Time 1 has 440 people who answered these questions: Average WEMWBS score was 3.33, life satisfaction was 6.69, average response to belief one can do something to be mentally healthy (mhpb1) was 3.63, while rating if they did do something in past week (mhpb2) was 3.22
jmv::descriptives(post, vars = vars(wellbeing.t2, life.sat2, mhpb1.post, mhpb2.post), missing = TRUE)
##
## DESCRIPTIVES
##
## Descriptives
## ───────────────────────────────────────────────────────────────────────────────
## wellbeing.t2 life.sat2 mhpb1.post mhpb2.post
## ───────────────────────────────────────────────────────────────────────────────
## N 118 119 117 117
## Missing 26 25 27 27
## Mean 3.630347 7.042017 3.743590 3.598291
## Median 3.714286 7 4 4
## Standard deviation 0.5827690 1.509265 0.7673718 0.8616327
## Minimum 1.428571 2 2 1
## Maximum 5.000000 10 5 5
## ───────────────────────────────────────────────────────────────────────────────
# Time 2 has 118 people who answered these questions: Average WEMWBS score was 3.63 which is about .30 higher than T1, life satisfaction was 7.04 which is about .35 higher than T1, average response to belief one can do something to be mentally healthy (mhpb1) was 3.74 which is about .10 higher than T1, while rating if they did do something in past week (mhpb2) was 3.60 which is about .40 higher than T1
# The content of the module is conveyed in an engaging way
janitor::tabyl(post, engaging.f)
## engaging.f n percent valid_percent
## no 4 0.02777778 0.03960396
## somewhat 12 0.08333333 0.11881188
## yes 82 0.56944444 0.81188119
## no answer 3 0.02083333 0.02970297
## <NA> 43 0.29861111 NA
# Most agree it is engaging (92%)
# It is easy to find your way around the module page at Absalon
janitor::tabyl(post, easy.f)
## easy.f n percent valid_percent
## no 8 0.05555556 0.07920792
## somewhat 11 0.07638889 0.10891089
## yes 80 0.55555556 0.79207921
## no answer 2 0.01388889 0.01980198
## <NA> 43 0.29861111 NA
# Most agree it is easy (91%)
# The podcast format is a good way to convey knowledge
janitor::tabyl(post, podcast.f)
## podcast.f n percent valid_percent
## no 6 0.04166667 0.05940594
## somewhat 12 0.08333333 0.11881188
## yes 78 0.54166667 0.77227723
## no answer 5 0.03472222 0.04950495
## <NA> 43 0.29861111 NA
# Most agree the podcast is a good format (89%)
# I have engaged with the exercises (to strengthen my own and/or others' mental health)
janitor::tabyl(post, used.exercises.f)
## used.exercises.f n percent valid_percent
## no 7 0.04861111 0.06930693
## somewhat 10 0.06944444 0.09900990
## yes 80 0.55555556 0.79207921
## no answer 4 0.02777778 0.03960396
## <NA> 43 0.29861111 NA
# Most have used the exercises (89%)
# I have used supplementary materials (e.g. read literature or watched videos)
janitor::tabyl(post, used.materials.f)
## used.materials.f n percent valid_percent
## no 22 0.15277778 0.21782178
## somewhat 16 0.11111111 0.15841584
## yes 59 0.40972222 0.58415842
## no answer 4 0.02777778 0.03960396
## <NA> 43 0.29861111 NA
# About half used the extra materials (74%)
# Through the module, I have gained new knowledge about what can be done to strengthen mental health
janitor::tabyl(post, knowledge.f)
## knowledge.f n percent valid_percent
## no 2 0.01388889 0.01980198
## somewhat 12 0.08333333 0.11881188
## yes 84 0.58333333 0.83168317
## no answer 3 0.02083333 0.02970297
## <NA> 43 0.29861111 NA
# Most report gaining new knowledge (95%)
# The module has made me think more about mental health
janitor::tabyl(post, think.f)
## think.f n percent valid_percent
## no 2 0.01388889 0.01980198
## somewhat 9 0.06250000 0.08910891
## yes 86 0.59722222 0.85148515
## no answer 4 0.02777778 0.03960396
## <NA> 43 0.29861111 NA
# Almost all agree it made them think more about mental health (94%)
# The module has made me talk about mental health with friends or family
janitor::tabyl(post, talk.f)
## talk.f n percent valid_percent
## no 21 0.14583333 0.20792079
## somewhat 15 0.10416667 0.14851485
## yes 59 0.40972222 0.58415842
## no answer 6 0.04166667 0.05940594
## <NA> 43 0.29861111 NA
# About half said it led them to talk more about mental health (72%)
# Through the module, I have gained tools to strengthen my own and others' mental health
janitor::tabyl(post, tools.f)
## tools.f n percent valid_percent
## no 3 0.02083333 0.02970297
## somewhat 14 0.09722222 0.13861386
## yes 80 0.55555556 0.79207921
## no answer 4 0.02777778 0.03960396
## <NA> 43 0.29861111 NA
# Most said they have gained tools for mental health promotion (94%)
# I would recommend the course to other students
janitor::tabyl(post, recommend.f)
## recommend.f n percent valid_percent
## no 4 0.02777778 0.03960396
## somewhat 16 0.11111111 0.15841584
## yes 75 0.52083333 0.74257426
## no answer 6 0.04166667 0.05940594
## <NA> 43 0.29861111 NA
# Most said they woudl recommend (90%)
# On average, how often have you engaged with the module?
janitor::tabyl(post, freq.engaged.f)
## freq.engaged.f n percent valid_percent
## more than once per week 43 0.29861111 0.53086420
## once per week 19 0.13194444 0.23456790
## every other week 7 0.04861111 0.08641975
## once per month 12 0.08333333 0.14814815
## <NA> 63 0.43750000 NA
# Most engaged with the module more than once per week (53%) or about once a week (23%)
# Has the module made you do something active for your own mental health?
janitor::tabyl(post, action.own.f)
## action.own.f n percent valid_percent
## yes 61 0.4236111 0.8714286
## no 9 0.0625000 0.1285714
## <NA> 74 0.5138889 NA
# Most said they have done something active for their own MH (87%)
# Has the module led you to do something active for the mental health of others?
janitor::tabyl(post, action.others.f)
## action.others.f n percent valid_percent
## yes 52 0.3611111 0.7123288
## no 21 0.1458333 0.2876712
## <NA> 71 0.4930556 NA
#About half have done something for others' mental health (71%)
JTRCI(data = mydata.wide,
ppid = "full.code",
pre = "life.sat1",
post = "life.sat2",
reliability = .9,
indextype = "RCI", #or index type can be 'JT'
JTcrit = "auto",
higherIsBetter = T,
plottitle = "Life Satisfaction",
plot = T,
table = T)
## reliable change classification N
## <char> <int>
## 1: reliably deteriorated 4
## 2: no reliable change 94
## 3: reliably improved 17
JTRCI(data = mydata.wide,
ppid = "full.code",
pre = "mhpb1",
post = "mhpb1.post",
reliability = .9,
indextype = "RCI", #or index type can be 'JT'
JTcrit = "auto",
higherIsBetter = T,
plottitle = "Mental Health Promoting Behavior 1",
plot = T,
table = T)
## reliable change classification N
## <char> <int>
## 1: reliably deteriorated 13
## 2: no reliable change 56
## 3: reliably improved 42
JTRCI(data = mydata.wide,
ppid = "full.code",
pre = "mhpb2",
post = "mhpb2.post",
reliability = .9,
indextype = "RCI", #or index type can be 'JT'
JTcrit = "auto",
higherIsBetter = T,
plottitle = "Mental Health Promoting Behavior 2",
plot = T,
table = T)
## reliable change classification N
## <char> <int>
## 1: reliably deteriorated 13
## 2: no reliable change 40
## 3: reliably improved 58
JTRCI(data = mydata.wide,
ppid = "full.code",
pre = "wellbeing.t1",
post = "wellbeing.t2",
reliability = .9,
indextype = "RCI", #or index type can be 'JT'
JTcrit = "auto",
higherIsBetter = T,
plottitle = "Warwick-Edinburgh Mental Wellbeing Scale",
plot = T,
table = T)
## reliable change classification N
## <char> <int>
## 1: reliably deteriorated 0
## 2: no reliable change 55
## 3: reliably improved 56
