describe_honos.Rmdas_item_desc(): Add item descriptions (For 13 and 18 item versions of the HoNOS)
library(honos)
#> This is honos 0.1.1.9001
#> honos is currently in development - function names and arguments might change.
#> PLEASE REPORT ANY BUGS OR IDEAS!
honos_longish <- honos_data %>%
pivot_honos_longer(value_vars_current = c("q1", "q2", "q3", "q4", "q5", "q6", "q7",
"q8", "q9", "q10", "q11", "q12", "q13"),
prob_var_item8 = c("q8_prob"),
spec_var_item8 = c("q8_spec"),
value_vars_history = c("qa", "qb", "qc", "qd", "qe"),
pivot = "item_scores")
# make use of all these description functions I wrote
honos_longish %>%
dplyr::mutate(item = as_item_desc(item)) %>%
dplyr::mutate(prob = as_i8_desc(prob)) %>%
dplyr::mutate(value = as_severity_desc(value))
#> # A tibble: 324 x 9
#> id date team stage measure item value prob spec
#> <chr> <chr> <chr> <chr> <chr> <fct> <fct> <fct> <chr>
#> 1 id1 2020-0… team2 pre honos Scale 1: Overacti… Minor pro… <NA> <NA>
#> 2 id1 2020-0… team2 pre honos Scale 2: Non-acci… Mild prob… <NA> <NA>
#> 3 id1 2020-0… team2 pre honos Scale 3: Problem … Severe to… <NA> <NA>
#> 4 id1 2020-0… team2 pre honos Scale 4: Cognitiv… Mild prob… <NA> <NA>
#> 5 id1 2020-0… team2 pre honos Scale 5: Physical… Mild prob… <NA> <NA>
#> 6 id1 2020-0… team2 pre honos Scale 6: Hallucin… Severe to… <NA> <NA>
#> 7 id1 2020-0… team2 pre honos Scale 7: Depresse… Moderatel… <NA> <NA>
#> 8 id1 2020-0… team2 pre honos Scale 8: Other me… Severe to… Type A… <NA>
#> 9 id1 2020-0… team2 pre honos Scale 9: Relation… Mild prob… <NA> <NA>
#> 10 id1 2020-0… team2 pre honos Scale 10: Activit… Moderatel… <NA> <NA>
#> # … with 314 more rows