Low drinking score (all cycles)

Source: R/alcohol.R

This function creates a derived variable based on their drinking habits and flags for health and social problems from their pattern of alcohol use according to Canada's Low-Risk Alcohol Drinking Guideline.

low_drink_score_fun(DHH_SEX, ALWDWKY)

Arguments

DHH_SEX

Sex of respondent (1 - male, 2 - female)
ALWDWKY

Number of drinks consumed in the past week

Value

Low risk drinking score (low_drink_score) with four categories:

  • 1 - Low risk (0 points)

  • 2 - Marginal risk (1-2 points)

  • 3 - Medium risk (3-4 points)

  • 4 - High risk (5-9 points)

Details

The low risk drinking score is based on the scoring system in Canada's Low-Risk Alcohol Drinking Guideline. The score is divided into two steps. Step 1 allocates points based on sex and the number of drinks that you usually have each week. In step 2, one point will be awarded for each item that is true related to drinking habits. The total score is obtained from adding the points in step 1 and step 2.

Note

Step 2 is not included in this function because the questions in step 2 are not asked in any of the CCHS cycles. The score is only based on step 1.

See https://osf.io/eprg7/ for more details on the guideline and score.

Examples

 
# Using low_drink_score_fun() to create low_drink_score values across 
# CCHS cycles low_drink_score_fun() is specified in variable_details.csv 
# along with the CCHS variables and cycles included.

# To transform low_drink_score, use rec_with_table() for each CCHS cycle
# and specify low_drink_score, along with the various alcohol and sex
# variables. 
# Using merge_rec_data(), you can combine low_drink_score across cycles.

library(cchsflow)
low_drink2001 <- rec_with_table(
  cchs2001_p, c(
    "DHH_SEX", "ALWDWKY", "low_risk_score"
  )
)

#> No variable_details detected.
#>               Loading cchsflow variable_details
#> Using the passed data variable name as database_name
#> Warning: low_risk_score is missing from variable details therefore cannot be recoded
#> NOTE for ALWDWKY: shown as categorical variable in CCHS 2014 cycle

head(low_drink2001)

#>   ALWDWKY DHH_SEX
#> 1       2       2
#> 2      NA       2
#> 3       8       1
#> 4       0       2
#> 5       8       2
#> 6       0       1

low_drink2009_2010 <- rec_with_table(
  cchs2009_2010_p, c(
    "DHH_SEX", "ALWDWKY", "low_risk_score"
  )
)

#> No variable_details detected.
#>               Loading cchsflow variable_details
#> Using the passed data variable name as database_name
#> Warning: low_risk_score is missing from variable details therefore cannot be recoded
#> NOTE for ALWDWKY: shown as categorical variable in CCHS 2014 cycle

tail(low_drink2009_2010)

#>     ALWDWKY DHH_SEX
#> 195      NA       2
#> 196       0       2
#> 197      NA       2
#> 198      NA       1
#> 199      NA       2
#> 200       0       2

combined_low_drink <- bind_rows(low_drink2001, 
low_drink2009_2010)

head(combined_low_drink)

#>   ALWDWKY DHH_SEX
#> 1       2       2
#> 2      NA       2
#> 3       8       1
#> 4       0       2
#> 5       8       2
#> 6       0       1

tail(combined_low_drink)

#>     ALWDWKY DHH_SEX
#> 395      NA       2
#> 396       0       2
#> 397      NA       2
#> 398      NA       1
#> 399      NA       2
#> 400       0       2