This is one of 3 functions used to create a derived variable (resp_condition_der) that determines if a respondents has a respiratory condition. This function is for CCHS cycles (2005-2007) that use COPD & Emphysema as separate variables, as well as Bronchitis. Asthma is used across CCHS cycles as a separate variable.

resp_condition_fun2(DHHGAGE_cont, CCC_91E, CCC_91F, CCC_91A, CCC_031)

Arguments

DHHGAGE_cont

continuous age variable.

CCC_91E

variable indicating if respondent has emphysema

CCC_91F

variable indicating if respondent has COPD

CCC_91A

variable indicating if respondent has chronic bronchitis

CCC_031

variable indicating if respondent has asthma

Value

a categorical variable (resp_condition_der) with 3 levels:

  1. respondent is over the age of 35 and has a respiratory condition

  2. respondent is under the age of 35 and has a respiratory condition

  3. respondent does not have a respiratory condition

Examples


# Using resp_condition_fun2() to create values across CCHS cycles
# (2005-2007) resp_condition_fun2() is specified in
# variable_details.csv along with the CCHS variables and cycles included.

# To transform resp_condition_der, use rec_with_table() for each CCHS cycle
# and specify resp_condition_der, along with the various respiratory
# variables. Then by using merge_rec_data() you can combine
# resp_condition_der across cycles.

library(cchsflow)

resp2005 <- suppressWarnings(rec_with_table(
  cchs2005_p, c(
    "DHHGAGE_cont", "CCC_91E", "CCC_91F", "CCC_91A", "CCC_031",
    "resp_condition_der"
  )
))
#> No variable_details detected.
#>               Loading cchsflow variable_details
#> Using the passed data variable name as database_name

head(resp2005)
#>   CCC_031 CCC_91A CCC_91E CCC_91F DHHGAGE_cont resp_condition_der
#> 1       2       2   NA(a)   NA(a)           27                  3
#> 2       2       2       2       2           77                  3
#> 3       2       2       2       2           32                  3
#> 4       2       2       2       2           77                  3
#> 5       2       2       2       2           85                  3
#> 6       2       2   NA(a)   NA(a)           13                  3

resp2007_2008 <- suppressWarnings(rec_with_table(
  cchs2007_2008_p,  c(
    "DHHGAGE_cont", "CCC_91E", "CCC_91F", "CCC_91A", "CCC_031",
    "resp_condition_der"
  )
))
#> No variable_details detected.
#>               Loading cchsflow variable_details
#> Using the passed data variable name as database_name

tail(resp2007_2008)
#>     CCC_031 CCC_91A CCC_91E CCC_91F DHHGAGE_cont resp_condition_der
#> 195       2       2       2       2           62                  3
#> 196       2       2       2       2           37                  3
#> 197       2       2       2       2           77                  3
#> 198       2       2       2       2           42                  3
#> 199       2       2       2       2           32                  3
#> 200       2   NA(b)       2       2           72              NA(b)

combined_resp <- suppressWarnings(merge_rec_data(resp2005, resp2007_2008))

head(combined_resp)
#>   CCC_031 CCC_91A CCC_91E CCC_91F DHHGAGE_cont resp_condition_der
#> 1       2       2   NA(a)   NA(a)           27                  3
#> 2       2       2       2       2           77                  3
#> 3       2       2       2       2           32                  3
#> 4       2       2       2       2           77                  3
#> 5       2       2       2       2           85                  3
#> 6       2       2   NA(a)   NA(a)           13                  3
tail(combined_resp)
#>     CCC_031 CCC_91A CCC_91E CCC_91F DHHGAGE_cont resp_condition_der
#> 395       2       2       2       2           62                  3
#> 396       2       2       2       2           37                  3
#> 397       2       2       2       2           77                  3
#> 398       2       2       2       2           42                  3
#> 399       2       2       2       2           32                  3
#> 400       2   NA(b)       2       2           72              NA(b)