Type of smokers

Source: R/smoking.R

This function creates a derived variable (SMKDSTY_A) for smoker type with 5 categories:

  • daily smoker

  • current occasional smoker (former daily)

  • current occasional smoker (never daily)

  • current nonsmoker (former daily)

  • current nonsmoker (never daily)

  • nonsmoker

SMKDSTY_fun(SMK_005, SMK_030, SMK_01A)

Arguments

SMK_005

type of smoker presently
SMK_030

smoked daily - lifetime (occasional/former smoker)
SMK_01A

smoked 100 or more cigarettes in lifetime

Value

value for smoker type in the SMKDSTY_A variable

Details

For CCHS 2001-2014, smoker type is derived from smoking more than 100 cigarettes in lifetime, type of smoker at present time, and ever smoked daily. For CCHS 2015-2018, smoker type was derived differently with different variables and categories. A function was created for a consistent smoker status across all cycles.

Examples

 
# Using SMKDSTY_fun() to derive smoke type values across CCHS cycles
# SMKDSTY_fun() is specified in variable_details.csv along with the 
# CCHS variables and cycles included.

# To transform SMKDSTY_A across cycles, use rec_with_table() for each
# CCHS cycle and specify SMKDSTY_A.
# For CCHS 2001-2014, only specify SMKDSTY_A for smoker type.
# For CCHS 2015-2018, specify the parameters and SMKDSTY_A for smoker type.

library(cchsflow)

smoker_type_2009_2010 <- rec_with_table(
  cchs2009_2010_p, "SMKDSTY_A")

#> No variable_details detected.
#>               Loading cchsflow variable_details
#> Using the passed data variable name as database_name

head(smoker_type_2009_2010)

#>   SMKDSTY_A
#> 1         6
#> 2         6
#> 3         5
#> 4         4
#> 5         4
#> 6         4

smoker_type_2017_2018 <- rec_with_table(
  cchs2017_2018_p,c(
    "SMK_01A", "SMK_005","SMK_030","SMKDSTY_A"
  )
)

#> No variable_details detected.
#>               Loading cchsflow variable_details
#> Using the passed data variable name as database_name

tail(smoker_type_2017_2018)

#>     SMK_005 SMK_030 SMK_01A SMKDSTY_A
#> 195       3       1       1         4
#> 196       3   NA(a)       2         6
#> 197       3   NA(a)       2         6
#> 198       3   NA(a)       2         6
#> 199       3       1       1         4
#> 200       3   NA(a)       2         6

combined_smoker_type <- suppressWarnings(merge_rec_data
(smoker_type_2009_2010,smoker_type_2017_2018))

head(combined_smoker_type)

#>   SMKDSTY_A SMK_005 SMK_030 SMK_01A
#> 1         6   NA(c)   NA(c)   NA(c)
#> 2         6   NA(c)   NA(c)   NA(c)
#> 3         5   NA(c)   NA(c)   NA(c)
#> 4         4   NA(c)   NA(c)   NA(c)
#> 5         4   NA(c)   NA(c)   NA(c)
#> 6         4   NA(c)   NA(c)   NA(c)
tail(combined_smoker_type)

#>     SMKDSTY_A SMK_005 SMK_030 SMK_01A
#> 395         4       3       1       1
#> 396         6       3   NA(a)       2
#> 397         6       3   NA(a)       2
#> 398         6       3   NA(a)       2
#> 399         4       3       1       1
#> 400         6       3   NA(a)       2