masters: Master's Thesis Analysis

raw_cohort_2007 <- haven::read_sav(
    file = "data-raw/cohort_2007_data.sav",
    encoding = "utf8",
    user_na = FALSE
)

cohort_2007 <- raw_cohort_2007 |>
    janitor::clean_names() |>
    haven::as_factor() |>
    dplyr::filter(perdas == "completou avaliação") |>
    dplyr::select(
        outcome = ocup_atual_dic_t2,
        rec,
        idade = idade_t1_2,
        dplyr::matches("t1$"),
        -dnasc_t1
    ) |>
    dplyr::rename_with(\(x) stringr::str_remove(x, "_t1"))

cohort_2007 <- cohort_2007 |>
    dplyr::select(
        rec, outcome, sexo, idade, cpele_dic, abep3, trabatu,
        tabaco2, alcool2, maconha2, cocaina2, crack2, anfeta2,
        inalante2, sedativos2, alucinog2, opioides2, outrasub2,
        ilicitas2, edmat, edmmel, distat, hipo, mania, somabdi,
        srq20dic, vitalid, gersaude, dor, rsat, siverm, agress,
        afogof, apoio, apisepa, prfalec, religiaodic, hospner,
        faces, probner, medic, smae, spai, sirmao, mmae, mpai,
        savo, totbsi, tent1, tent2, tent3, tent4, relacao,
        abep5, aspemoc, saument, aspsocia, cinto, capecet, acidente,
        dirigibb
    )

usethis::use_data(cohort_2007, overwrite = TRUE)