cchsflow (version 2.1.0)

low_drink_score_fun: Low drinking score (all cycles)

Description

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.

Usage

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.

Examples

# NOT RUN {
 
# 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"
  )
)

head(low_drink2001)

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

tail(low_drink2009_2010)

combined_low_drink <- bind_rows(low_drink2001, 
low_drink2009_2010)

head(combined_low_drink)

tail(combined_low_drink)

# }