Substance use patterns from late childhood to mid-adolescence: Updates on the Adolescent Brain Cognitive Development Study.

Code ↔ Paper

1 match between paragraphs of the paper and lines of its authors' code, computed by the harvester (lexical-v1). Click a colored paragraph or line to see its counterpart.

The 1 match

[1] § Methods › Measures › Substance Use Interview ↔ Scripts+Codebook/ABCD_6_SU_00_coding.R, lines 473–520 · score 0.64 · alcohol drinks, tinctures, concentrates, flower, sipping, yes

Paper

Loaded from Europe PMC by your browser, not stored by OSCR: doi.org · Europe PMC

The paper is loaded when this pane is shown.

The paper is loaded by your browser, with JavaScript: read it at doi.org or on Europe PMC.

The authors' code

R · 1,763 lines · 195 KB · no license · 1 match

#%#%#%#%#%#%#%
#%#%# SU Coding, ABCD 6.0 Release
#%#%# 0) Coding
#%#%# by: Ryan M. Sullivan
#%#%#%#%#%#%#%
#### Step 0: Load in necessary packages ####
library(dplyr)
library(stats)
library(reshape2)
library(tidyr)
library(arrow)
library(ABCDscores) # https://github.com/nbdc-datahub/ABCDscores
#### Step 1: Using DEAP, create your 6.0 dataset ####
# Include all variables from all timepoints from the following ontology path:
# ABCD -> Core -> Substance Use -> SU Patterns -> Youth
## Low Level Use Questionnaire [Youth]
## Substance Use Interview [Youth]
## Substance Use Phone Interview (Mid Year) - Introduction [Youth]
## Substance Use Phone Interview (Mid Year) [Youth]
## Timeline Followback Interview Results [Youth]
# Additionally, include all DAIRC "recommended" variables prompted at the end of data set creation in the following tabs: "Design/Nesting","Visit Information","Cohort Description"
### Note_1: Please save categorical variables as "values" and not "labels"
### Note_2: You can include less variables or fewer timepoints in your DEAP data creation, but you may need to edit this code as a result to best fit your SU calculation needs
# To complete Step 3_d_i, you will also need "tlfb_raw.parquet" file accessed through Lasso (data-wrangler -> CONCAT -> substance_use -> tlfb -> tlfb_raw)
#### Step 2: Load RDS ####
dat <- readRDS("../data/abcd_patterns6.RDS")
#rename the mid-year visits to line up with the *next* yearly in-person visit
dat.mypi <- dat %>% dplyr::filter(session_id=="ses-00M"|
session_id=="ses-01M"|
session_id=="ses-02M"|
session_id=="ses-03M"|
session_id=="ses-04M"|
session_id=="ses-05M") %>%
dplyr::mutate(session_id = as.factor(session_id),
session_id=droplevels(session_id),
session_id=factor(session_id,labels=c("ses-01A",
"ses-02A",
"ses-03A",
"ses-04A",
"ses-05A",
"ses-06A"))) %>%
dplyr::select_if(~!(all(is.na(.)))) %>%
dplyr::select(participant_id,
session_id,
su_y_mysu_dtt,
su_y_mysu_age,
su_y_mysu__hrd__alc_001,
su_y_mysu__hrd__inh_001,
su_y_mysu__hrd__mj_001,
su_y_mysu__hrd__nic_001,
su_y_mysu__hrd__nic__chew_001,
su_y_mysu__hrd__rx_001,
su_y_mysu__use__alc_001,
su_y_mysu__use__alc__1mo_001,
su_y_mysu__use__alc__1wk_001,
su_y_mysu__use__alc__6mo_001,
su_y_mysu__use__alc__6mo_002,
su_y_mysu__use__alc__first_001,
su_y_mysu__use__alc__sip_001,
su_y_mysu__use__alc__sip__1mo_001,
su_y_mysu__use__alc__sip__1wk_001,
su_y_mysu__use__alc__sip__6mo_001,
su_y_mysu__use__alc__sip__6mo_002,
su_y_mysu__use__cath__6mo_001,
su_y_mysu__use__cath__first_001,
su_y_mysu__use__coc__6mo_001,
su_y_mysu__use__coc__first_001,
su_y_mysu__use__dxm__1mo_001,
su_y_mysu__use__dxm__6mo_001,
su_y_mysu__use__dxm__6mo_002,
su_y_mysu__use__dxm__first_001,
su_y_mysu__use__ghb__6mo_001,
su_y_mysu__use__ghb__first_001,
su_y_mysu__use__hall__6mo_001,
su_y_mysu__use__hall__first_001,
su_y_mysu__use__illdrg_001,
su_y_mysu__use__illdrg__1mo_001,
su_y_mysu__use__illdrg__1wk_001,
su_y_mysu__use__illdrg__6mo_001,
su_y_mysu__use__illdrg__6mo_002,
su_y_mysu__use__inh__1mo_001,
su_y_mysu__use__inh__1wk_001,
su_y_mysu__use__inh__6mo_001,
su_y_mysu__use__inh__6mo_002,
su_y_mysu__use__inh__first_001,
su_y_mysu__use__ket__6mo_001,
su_y_mysu__use__ket__first_001,
su_y_mysu__use__mdma__6mo_001,
su_y_mysu__use__mdma__first_001,
su_y_mysu__use__meth__6mo_001,
su_y_mysu__use__meth__first_001,
su_y_mysu__use__mj__6mo_001,
su_y_mysu__use__mj__conc__1mo_001,
su_y_mysu__use__mj__conc__1wk_001,
su_y_mysu__use__mj__conc__6mo_002,
su_y_mysu__use__mj__conc__pipe__6mo_001,
su_y_mysu__use__mj__conc__pipe__first_001,
su_y_mysu__use__mj__conc__vape__6mo_001,
su_y_mysu__use__mj__conc__vape__first_001,
su_y_mysu__use__mj__drink__tinc__1mo_001,
su_y_mysu__use__mj__drink__tinc__1wk_001,
su_y_mysu__use__mj__drink__tinc__6mo_001,
su_y_mysu__use__mj__drink__tinc__6mo_002,
su_y_mysu__use__mj__drink__tinc__first_001,
su_y_mysu__use__mj__edbl__1mo_001,
su_y_mysu__use__mj__edbl__1wk_001,
su_y_mysu__use__mj__edbl__6mo_001,
su_y_mysu__use__mj__edbl__6mo_002,
su_y_mysu__use__mj__edbl__first_001,
su_y_mysu__use__mj__smoke__1mo_001,
su_y_mysu__use__mj__smoke__1wk_001,
su_y_mysu__use__mj__smoke__6mo_001,
su_y_mysu__use__mj__smoke__6mo_002,
su_y_mysu__use__mj__smoke__first_001,
su_y_mysu__use__mj__synth__1mo_001,
su_y_mysu__use__mj__synth__1wk_001,
su_y_mysu__use__mj__synth__6mo_001,
su_y_mysu__use__mj__synth__6mo_002,
su_y_mysu__use__mj__synth__first_001,
su_y_mysu__use__mj__vape__6mo_001,
su_y_mysu__use__mj__vape__first_001,
su_y_mysu__use__nic_001,
su_y_mysu__use__nic__1mo_001,
su_y_mysu__use__nic__1wk_001,
su_y_mysu__use__nic__6mo_001,
su_y_mysu__use__nic__6mo_002,
su_y_mysu__use__nic__chew__1mo_001,
su_y_mysu__use__nic__chew__1wk_001,
su_y_mysu__use__nic__chew__6mo_001,
su_y_mysu__use__nic__chew__6mo_002,
su_y_mysu__use__nic__chew__first_001,
su_y_mysu__use__nic__cig__6mo_001,
su_y_mysu__use__nic__cig__first_001,
su_y_mysu__use__nic__cigar__6mo_001,
su_y_mysu__use__nic__cigar__first_001,
su_y_mysu__use__nic__puff_001,
su_y_mysu__use__nic__puff__1mo_001,
su_y_mysu__use__nic__puff__1wk_001,
su_y_mysu__use__nic__puff__6mo_001,
su_y_mysu__use__nic__puff__6mo_002,
su_y_mysu__use__nic__vape__6mo_001,
su_y_mysu__use__nic__vape__first_001,
su_y_mysu__use__opi__6mo_001,
su_y_mysu__use__opi__first_001,
su_y_mysu__use__qc__6mo_001,
su_y_mysu__use__qc__first_001,
su_y_mysu__use__roid__6mo_001,
su_y_mysu__use__roid__first_001,
su_y_mysu__use__rxopi__1mo_001,
su_y_mysu__use__rxopi__6mo_001,
su_y_mysu__use__rxopi__6mo_002,
su_y_mysu__use__rxopi__first_001,
su_y_mysu__use__rxsed__1mo_001,
su_y_mysu__use__rxsed__1wk_001,
su_y_mysu__use__rxsed__6mo_001,
su_y_mysu__use__rxsed__6mo_002,
su_y_mysu__use__rxsed__first_001,
su_y_mysu__use__rxstim__1mo_001,
su_y_mysu__use__rxstim__6mo_001,
su_y_mysu__use__rxstim__6mo_002,
su_y_mysu__use__rxstim__first_001,
su_y_mysu__use__salv__6mo_001,
su_y_mysu__use__salv__first_001,
su_y_mysu__use__shroom__6mo_001,
su_y_mysu__use__shroom__first_001,
su_y_mysu__use__vape__flav__6mo_001,
su_y_mysu__use__vape__flav__first_001,
su_y_mypi_dtt,
su_y_mypi_age,
su_y_mypi_lang,
su_y_mypi_adm,
su_y_mypi_adm__rmt,
su_y_mypi_001___1,
su_y_mypi_001___2,
su_y_mypi_001___3,
su_y_mypi_001___4,
su_y_mypi_001___5)
dat <- dat %>% dplyr::filter(session_id=="ses-00A"|
session_id=="ses-01A"|
session_id=="ses-02A"|
session_id=="ses-03A"|
session_id=="ses-04A"|
session_id=="ses-05A"|
session_id=="ses-06A") %>%
dplyr::mutate(session_id=droplevels(session_id)) %>%
dplyr::select_if(~!(all(is.na(.))))
dat <- full_join(dat,dat.mypi,by=c("participant_id","session_id"))
rm(dat.mypi)
#if age is missing, pull forward the age at the MYPI -- for age of onset calculation
dat <- dat %>% dplyr::mutate(ab_g_dyn__visit_age = dplyr::if_else(is.na(ab_g_dyn__visit_age),su_y_mypi_age,ab_g_dyn__visit_age,missing=NA_real_))
#recoding 'session_id' from having dashes to underscores
dat <- dat %>% dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A",
"ses_01A",
"ses_02A",
"ses_03A",
"ses_04A",
"ses_05A",
"ses_06A")))
#### Step 3: Run SU calculation Code ####
##### Step 3_a: Past-year use (yes/no) #####
# Alcohol sip
dat$su_alc_sip_pyr_yn <- with(dat,if_else(su_y_sui__use__alc__sip_001 == 1 |
su_y_sui__use__alc__sip_001__l == 1 |
su_y_mysu__use__alc__sip__6mo_001 == 1,1,0,missing=0))
# Nicotine puff
dat$su_nic_puff_pyr_yn <- with(dat,if_else(su_y_sui__use__nic__puff_001 == 1 |
su_y_sui__use__nic__puff_001__l == 1 |
su_y_mysu__use__nic__puff__6mo_001 == 1,1,0,missing=0))
# Cannabis puff
dat$su_mj_puff_pyr_yn <- with(dat,if_else(su_y_sui__use__mj__puff_001 == 1 |
su_y_sui__use__mj__puff_001__l == 1 |
su_y_mysu__use__mj__6mo_001 == 1,1,0,missing=0))
# alcohol use
dat$su_alc_pyr_yn <- with(dat,if_else(su_y_tlfb__alc_ud > 0 |
su_y_tlfb__alc__cum_totdose > 0 |
su_y_sui__use__alc_001 == 1 |
su_y_sui__use__alc_001__l == 1 |
su_y_mysu__use__alc__6mo_001 == 1,1,0,missing=0))
# nicotine use
dat$su_nic_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__rplc_ud > 0 |
su_y_tlfb__nic__pipe_ud > 0 |
su_y_tlfb__nic__vape_ud > 0 |
su_y_tlfb__nic__hookah_ud > 0 |
su_y_tlfb__nic__chew_ud > 0 |
su_y_tlfb__nic__cig_ud > 0 |
su_y_tlfb__nic__cigar_ud > 0 |
su_y_tlfb__nic__rplc__cum_totdose > 0 |
su_y_tlfb__nic__pipe__cum_totdose > 0 |
su_y_tlfb__nic__vape__cum_totdose > 0 |
su_y_tlfb__nic__hookah__cum_totdose > 0 |
su_y_tlfb__nic__chew__cum_totdose > 0 |
su_y_tlfb__nic__cig__cum_totdose > 0 |
su_y_tlfb__nic__cigar__cum_totdose > 0 |
su_y_sui__use__nic__cig_001 == 1 |
su_y_sui__use__nic__vape_001 == 1 |
su_y_sui__use__nic__chew_001 == 1 |
su_y_sui__use__nic__cigar_001 == 1 |
su_y_sui__use__nic__hookah_001 == 1 |
su_y_sui__use__nic__pipe_001 == 1 |
su_y_sui__use__nic__rplc_001 == 1 |
su_y_sui__use__nic__cig_001__l == 1 |
su_y_sui__use__nic__vape_001__l == 1 |
su_y_sui__use__nic__chew_001__l == 1 |
su_y_sui__use__nic__cigar_001__l == 1 |
su_y_sui__use__nic__hookah_001__l == 1 |
su_y_sui__use__nic__pipe_001__l == 1 |
su_y_sui__use__nic__rplc_001__l == 1 |
su_y_sui__use__nic__rplc_001__v01__l == 1 |
su_y_mysu__use__nic__6mo_001 == 1 |
su_y_mysu__use__nic__vape__6mo_001 == 1 |
su_y_mysu__use__nic__chew__6mo_001 == 1 |
su_y_mysu__use__nic__cig__6mo_001 == 1 |
su_y_mysu__use__nic__cigar__6mo_001 == 1,1,0,missing=0))
# cannabis use
dat$su_mj_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__blunt_ud > 0 |
su_y_tlfb__mj__conc_ud > 0 |
su_y_tlfb__mj__vape__oil_ud > 0 |
su_y_tlfb__mj__vape__flwr_ud > 0 |
su_y_tlfb__mj__drink_ud > 0 |
su_y_tlfb__mj__edbl_ud > 0 |
su_y_tlfb__mj__tinc_ud > 0 |
su_y_tlfb__cbd_ud > 0 |
su_y_tlfb__mj__smoke_ud > 0 |
su_y_tlfb__mj__blunt__cum_totdose > 0 |
su_y_tlfb__mj__conc__cum_totdose > 0 |
su_y_tlfb__mj__vape__oil__cum_totdose > 0 |
su_y_tlfb__mj__vape__flwr__cum_totdose > 0 |
su_y_tlfb__mj__drink__cum_totdose > 0 |
su_y_tlfb__mj__edbl__cum_totdose > 0 |
su_y_tlfb__mj__tinc__cum_totdose > 0 |
su_y_tlfb__cbd__cum_totdose > 0 |
su_y_tlfb__mj__smoke__cum_totdose > 0 |
su_y_sui__use__mj__smoke_001 == 1 |
su_y_sui__use__mj__blunt_001 == 1 |
su_y_sui__use__mj__edbl_001 == 1 |
su_y_sui__use__mj__conc_001 == 1 |
su_y_sui__use__mj__drink_001 == 1 |
su_y_sui__use__mj__tinc_001 == 1 |
su_y_sui__use__mj__smoke_001__l == 1 |
su_y_sui__use__mj__blunt_001__l == 1 |
su_y_sui__use__mj__edbl_001__l == 1 |
su_y_sui__use__mj__conc__smoke_001__l == 1 |
su_y_sui__use__mj__drink_001__l == 1 |
su_y_sui__use__mj__tinc_001__l == 1 |
su_y_sui__use__cbd_001__l == 1 |
su_y_sui__use__mj__vape_001__l == 1 |
su_y_sui__use__mj__conc__vape_001__l == 1 |
su_y_mysu__use__mj__smoke__6mo_001 == 1 |
su_y_mysu__use__mj__edbl__6mo_001 == 1 |
su_y_mysu__use__mj__drink__tinc__6mo_001 == 1 |
su_y_mysu__use__mj__conc__vape__6mo_001 == 1 |
su_y_mysu__use__mj__conc__pipe__6mo_001 == 1,1,0,missing=0))
# cocaine use
dat$su_coc_pyr_yn <- with(dat,if_else(su_y_tlfb__coc_ud > 0 |
su_y_tlfb__coc__cum_totdose > 0 |
su_y_sui__use__coc_001 == 1 |
su_y_sui__use__coc_001__l == 1 |
su_y_mysu__use__coc__6mo_001 == 1,1,0,missing=0))
# methamphetamine use
dat$su_meth_pyr_yn <- with(dat,if_else(su_y_tlfb__meth_ud > 0 |
su_y_tlfb__meth__cum_totdose > 0 |
su_y_sui__use__meth_001 == 1 |
su_y_sui__use__meth_001__l == 1 |
su_y_mysu__use__meth__6mo_001 == 1,1,0,missing=0))
# ketamine use
dat$su_ket_pyr_yn <- with(dat,if_else(su_y_tlfb__ket_ud > 0 |
su_y_tlfb__ket__cum_totdose > 0 |
su_y_sui__use__ket_001 == 1 |
su_y_sui__use__ket_001__l == 1 |
su_y_mysu__use__ket__6mo_001 == 1,1,0,missing=0))
# heroin use
dat$su_opi_pyr_yn <- with(dat,if_else(su_y_tlfb__opi_ud > 0 |
su_y_tlfb__opi__cum_totdose > 0 |
su_y_sui__use__opi_001 == 1 |
su_y_sui__use__opi_001__l == 1 |
su_y_mysu__use__opi__6mo_001 == 1,1,0,missing=0))
# cathinone use
dat$su_cath_pyr_yn <- with(dat,if_else(su_y_tlfb__cath_ud > 0 |
su_y_tlfb__cath__cum_totdose > 0 |
su_y_sui__use__cath_001 == 1 |
su_y_sui__use__cath_001__l == 1 |
su_y_mysu__use__cath__6mo_001 == 1,1,0,missing=0))
# mdma use
dat$su_mdma_pyr_yn <- with(dat,if_else(su_y_tlfb__mdma_ud > 0 |
su_y_tlfb__mdma__cum_totdose > 0 |
su_y_sui__use__mdma_001 == 1 |
su_y_sui__use__mdma_001__l == 1 |
su_y_mysu__use__mdma__6mo_001 == 1,1,0,missing=0))
# ghb use
dat$su_ghb_pyr_yn <- with(dat,if_else(su_y_tlfb__ghb_ud > 0 |
su_y_tlfb__ghb__cum_totdose > 0 |
su_y_sui__use__ghb_001 == 1 |
su_y_sui__use__ghb_001__l == 1 |
su_y_mysu__use__ghb__6mo_001 == 1,1,0,missing=0))
# hallucinogen use
dat$su_hall_pyr_yn <- with(dat,if_else(su_y_tlfb__hall_ud > 0 |
su_y_tlfb__hall__cum_totdose > 0 |
su_y_sui__use__hall_001 == 1 |
su_y_sui__use__hall_001__l == 1 |
su_y_mysu__use__hall__6mo_001 == 1,1,0,missing=0))
# shroom use
dat$su_shroom_pyr_yn <- with(dat,if_else(su_y_tlfb__shroom_ud > 0 |
su_y_tlfb__shroom__cum_totdose > 0 |
su_y_sui__use__shroom_001 == 1 |
su_y_sui__use__shroom_001__l == 1 |
su_y_mysu__use__shroom__6mo_001 == 1,1,0,missing=0))
# steroid use
dat$su_roid_pyr_yn <- with(dat,if_else(su_y_tlfb__roid_ud > 0 |
su_y_tlfb__roid__cum_totdose > 0 |
su_y_sui__use__roid_001 == 1 |
su_y_sui__use__roid_001__l == 1 |
su_y_mysu__use__roid__6mo_001 == 1,1,0,missing=0))
# inhalant use
dat$su_inh_pyr_yn <- with(dat,if_else(su_y_tlfb__inh_ud > 0 |
su_y_tlfb__inh__cum_totdose > 0 |
su_y_sui__use__inh_001 == 1 |
su_y_sui__use__inh_001__l == 1 |
su_y_mysu__use__inh__6mo_001 == 1,1,0,missing=0))
# sedative use
dat$su_rxsed_pyr_yn <- with(dat,if_else(su_y_tlfb__rxsed_ud > 0 |
su_y_tlfb__rxsed__cum_totdose > 0 |
su_y_sui__use__rxsed_001 == 1 |
su_y_sui__use__rxsed_001__l == 1 |
su_y_mysu__use__rxsed__6mo_001 == 1,1,0,missing=0))
# dxm use
dat$su_dxm_pyr_yn <- with(dat,if_else(su_y_tlfb__dxm_ud > 0 |
su_y_tlfb__dxm__cum_totdose > 0 |
su_y_sui__use__dxm_001 == 1 |
su_y_sui__use__dxm_001__l == 1 |
su_y_mysu__use__dxm__6mo_001 == 1,1,0,missing=0))
# salvia use
dat$su_salv_pyr_yn <- with(dat,if_else(su_y_tlfb__salv_ud > 0 |
su_y_tlfb__salv__cum_totdose > 0 |
su_y_sui__use__salv_001 == 1 |
su_y_sui__use__salv_001__l == 1 |
su_y_mysu__use__salv__6mo_001 == 1,1,0,missing=0))
# amphetamine misuse
dat$su_rxstim_pyr_yn <- with(dat,if_else(su_y_tlfb__rxstim_ud > 0 |
su_y_tlfb__rxstim__cum_totdose > 0 |
su_y_sui__use__rxstim_001 == 1 |
su_y_sui__use__rxstim_001__l == 1 |
su_y_mysu__use__rxstim__6mo_001 == 1,1,0,missing=0))
# vic/opiate rx misuse
dat$su_rxopi_pyr_yn <- with(dat,if_else(su_y_tlfb__rxopi_ud > 0 |
su_y_tlfb__rxopi__cum_totdose > 0 |
su_y_sui__use__rxopi_001 == 1 |
su_y_sui__use__rxopi_001__l == 1 |
su_y_mysu__use__rxopi__6mo_001 == 1,1,0,missing=0))
# synthetic mj use
dat$su_mj_synth_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__synth_ud > 0 |
su_y_tlfb__mj__synth__cum_totdose > 0 |
su_y_sui__use__mj__synth_001 == 1 |
su_y_sui__use__mj__synth_001__l == 1 |
su_y_mysu__use__mj__synth__6mo_001 == 1,1,0,missing=0))
# other use
dat$su_oth_pyr_yn <- with(dat,if_else(su_y_tlfb__othdrg_ud > 0 |
su_y_tlfb__othdrg__cum_totdose > 0 |
su_y_sui__use__othdrg_001 == 1 |
su_y_sui__use__othdrg_001__l == 1 |
su_y_mysu__use__illdrg__6mo_001 == 1,1,0,missing=0))
# [validity check] use--does not go into total su below
dat$su_validity_pyr_yn <- with(dat,if_else(su_y_sui__use__qc_001 == 1 |
su_y_sui__use__qc_001__l == 1 |
su_y_mysu__use__qc__6mo_001 == 1,1,0,missing=0))
# Breakdown of nicotine modality
#e-cig
dat$su_nic_vape_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__vape_ud > 0 |
su_y_tlfb__nic__vape__cum_totdose > 0 |
su_y_sui__use__nic__vape_001 == 1 |
su_y_sui__use__nic__vape_001__l == 1 |
su_y_mysu__use__nic__vape__6mo_001 == 1,1,0,missing=0))
#cig
dat$su_nic_cig_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__cig_ud > 0 |
su_y_tlfb__nic__cig__cum_totdose > 0 |
su_y_sui__use__nic__cig_001 == 1 |
su_y_sui__use__nic__cig_001__l == 1 |
su_y_mysu__use__nic__cig__6mo_001 == 1,1,0,missing=0))
#cigar
dat$su_nic_cigar_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__cigar_ud > 0 |
su_y_tlfb__nic__cigar__cum_totdose > 0 |
su_y_sui__use__nic__cigar_001 == 1 |
su_y_sui__use__nic__cigar_001__l == 1 |
su_y_mysu__use__nic__cigar__6mo_001 == 1,1,0,missing=0))
#pipe
dat$su_nic_pipe_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__pipe_ud > 0 |
su_y_tlfb__nic__pipe__cum_totdose > 0 |
su_y_sui__use__nic__pipe_001 == 1 |
su_y_sui__use__nic__pipe_001__l == 1 |
su_y_mysu__use__nic__cigar__6mo_001 == 1,1,0,missing=0))
#hookah
dat$su_nic_hookah_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__hookah_ud > 0 |
su_y_tlfb__nic__hookah__cum_totdose > 0 |
su_y_sui__use__nic__hookah_001 == 1 |
su_y_sui__use__nic__hookah_001__l == 1 |
su_y_mysu__use__nic__cigar__6mo_001 == 1,1,0,missing=0))
#nicotine replacement
dat$su_nic_rplc_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__rplc_ud > 0 |
su_y_tlfb__nic__rplc__cum_totdose > 0 |
su_y_sui__use__nic__rplc_001 == 1 |
su_y_sui__use__nic__rplc_001__l == 1 |
# su_y_mysu__use__nic__oth_001 == 1 |
su_y_sui__use__nic__rplc_001__v01__l == 1,1,0,missing=0))
#chew
dat$su_nic_chew_pyr_yn <- with(dat,if_else(su_y_tlfb__nic__chew_ud > 0 |
su_y_tlfb__nic__chew__cum_totdose > 0 |
su_y_sui__use__nic__chew_001 == 1 |
su_y_sui__use__nic__chew_001__l == 1 |
su_y_mysu__use__nic__chew__6mo_001 == 1,1,0,missing=0))
#vape flavor
dat$su_flav_vape_pyr_yn <- with(dat,if_else(su_y_sui__use__vape__flav_001__l == 1 |
su_y_mysu__use__vape__flav__6mo_001 == 1,1,0,missing=0))
# Breakdown of cannabis modality
#MJ Use
dat$su_mj_smoke_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__smoke_ud > 0 |
su_y_tlfb__mj__smoke__cum_totdose > 0 |
su_y_sui__use__mj__smoke_001 == 1 |
su_y_sui__use__mj__smoke_001__l == 1 |
su_y_mysu__use__mj__smoke__6mo_001 == 1,1,0,missing=0))
#Edible
dat$su_mj_edbl_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__edbl_ud > 0 |
su_y_tlfb__mj__edbl__cum_totdose > 0 |
su_y_sui__use__mj__edbl_001 == 1 |
su_y_sui__use__mj__edbl_001__l == 1 |
su_y_mysu__use__mj__edbl__6mo_001 == 1,1,0,missing=0))
#MJ Alcohol Drink
dat$su_mj_drink_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__drink_ud > 0 |
su_y_tlfb__mj__drink__cum_totdose > 0 |
su_y_sui__use__mj__drink_001 == 1 |
su_y_sui__use__mj__drink_001__l == 1 |
su_y_mysu__use__mj__drink__tinc__6mo_001 == 1,1,0,missing=0))
#MJ Concentrate
dat$su_mj_conc_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__conc_ud > 0 |
su_y_tlfb__mj__conc__cum_totdose > 0 |
su_y_sui__use__mj__conc_001 == 1 |
su_y_sui__use__mj__conc__smoke_001__l == 1 |
su_y_mysu__use__mj__conc__pipe__6mo_001 == 1,1,0,missing=0))
#MJ Tincture
dat$su_mj_tinc_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__tinc_ud > 0 |
su_y_tlfb__mj__tinc__cum_totdose > 0 |
su_y_sui__use__mj__tinc_001 == 1 |
su_y_sui__use__mj__tinc_001__l == 1 |
su_y_mysu__use__mj__drink__tinc__6mo_001 == 1,1,0,missing=0))
#MJ Blunt
dat$su_mj_blunt_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__blunt_ud > 0 |
su_y_tlfb__mj__blunt__cum_totdose > 0 |
su_y_sui__use__mj__blunt_001 == 1 |
su_y_sui__use__mj__blunt_001__l == 1,1,0,missing=0))
#Vape MJ flower
dat$su_mj_vape_flwr_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__vape__flwr_ud > 0 |
su_y_tlfb__mj__vape__flwr__cum_totdose > 0 |
su_y_sui__use__mj__vape_001__l == 1|
su_y_mysu__use__mj__vape__6mo_001 == 1,1,0,missing=0))
#Vape MJ Oil
dat$su_mj_vape_oil_pyr_yn <- with(dat,if_else(su_y_tlfb__mj__vape__oil_ud > 0 |
su_y_tlfb__mj__vape__oil__cum_totdose > 0 |
su_y_sui__use__mj__conc__vape_001__l == 1 |
su_y_mysu__use__mj__conc__vape__6mo_001 == 1,1,0,missing=0))
#CBD
dat$su_cbd_pyr_yn <- with(dat,if_else(su_y_tlfb__cbd_ud > 0 |
su_y_tlfb__cbd__cum_totdose > 0 |
su_y_sui__use__cbd_001__l == 1,1,0,missing=0))
### Combining past-year low-level use (yes/no) and standard use (yes/no) for:
# Alcohol
dat$su_alc_pyr_yn_incl_ll <- with(dat,if_else(su_alc_sip_pyr_yn > 0 |
su_alc_pyr_yn > 0,1,0,missing=0))
# Nicotine
dat$su_nic_pyr_yn_incl_ll <- with(dat,if_else(su_nic_puff_pyr_yn > 0 |
su_nic_pyr_yn > 0,1,0,missing=0))
# Cannabis
dat$su_mj_pyr_yn_incl_ll <- with(dat,if_else(su_mj_puff_pyr_yn > 0 |
su_mj_pyr_yn >0,1,0,missing=0))
# Combined past-year yes/no endorsement of SU (not including: alcohol, nicotine, and cannabis)
dat$su_pyr_yn_no_alc_nic_mj <- with(dat,if_else(su_coc_pyr_yn > 0 |
su_meth_pyr_yn > 0 |
su_ket_pyr_yn > 0 |
su_opi_pyr_yn > 0 |
su_cath_pyr_yn > 0 |
su_mdma_pyr_yn > 0 |
su_ghb_pyr_yn > 0 |
su_hall_pyr_yn > 0 |
su_shroom_pyr_yn > 0 |
su_roid_pyr_yn > 0 |
su_inh_pyr_yn > 0 |
su_rxsed_pyr_yn > 0 |
su_dxm_pyr_yn > 0 |
su_salv_pyr_yn > 0 |
su_rxstim_pyr_yn > 0 |
su_rxopi_pyr_yn > 0 |
su_mj_synth_pyr_yn > 0 |
su_oth_pyr_yn > 0,1,0,missing=0))
# Combined past-year yes/no endorsement of SU (including: alcohol, nicotine, and cannabis)
dat$su_pyr_yn <- with(dat,if_else(su_alc_pyr_yn > 0 |
su_nic_pyr_yn > 0 |
su_mj_pyr_yn > 0 |
su_coc_pyr_yn > 0 |
su_meth_pyr_yn > 0 |
su_ket_pyr_yn > 0 |
su_opi_pyr_yn > 0 |
su_cath_pyr_yn > 0 |
su_mdma_pyr_yn > 0 |
su_ghb_pyr_yn > 0 |
su_hall_pyr_yn > 0 |
su_shroom_pyr_yn > 0 |
su_roid_pyr_yn > 0 |
su_inh_pyr_yn > 0 |
su_rxsed_pyr_yn > 0 |
su_dxm_pyr_yn > 0 |
su_salv_pyr_yn > 0 |
su_rxstim_pyr_yn > 0 |
su_rxopi_pyr_yn > 0 |
su_mj_synth_pyr_yn > 0 |
su_oth_pyr_yn > 0,1,0,missing=0))
# Combined past-year yes/no endorsement of SU (including: low-level alcohol, nicotine, and cannabis)
dat$su_pyr_yn_incl_ll <- with(dat,if_else(su_pyr_yn > 0 |
su_alc_sip_pyr_yn > 0 |
su_nic_puff_pyr_yn > 0 |
su_mj_puff_pyr_yn > 0,1,0,missing=0))
##### Step 3_b: Lifetime use (yes/no) #####
# su_alc_sip_pyr_yn
dat.su_alc_sip_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_alc_sip_pyr_yn))
dat.su_alc_sip_pyr_yn <- dat.su_alc_sip_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_alc_sip_lft_yn.ses_01A = if_else(su_alc_sip_pyr_yn.ses_00A==1 | su_alc_sip_pyr_yn.ses_01A==1,1,0,missing=0),
su_alc_sip_lft_yn.ses_02A = if_else(su_alc_sip_pyr_yn.ses_00A==1 | su_alc_sip_pyr_yn.ses_01A==1 | su_alc_sip_pyr_yn.ses_02A==1,1,0,missing=0),
su_alc_sip_lft_yn.ses_03A = if_else(su_alc_sip_pyr_yn.ses_00A==1 | su_alc_sip_pyr_yn.ses_01A==1 | su_alc_sip_pyr_yn.ses_02A==1 | su_alc_sip_pyr_yn.ses_03A==1,1,0,missing=0),
su_alc_sip_lft_yn.ses_04A = if_else(su_alc_sip_pyr_yn.ses_00A==1 | su_alc_sip_pyr_yn.ses_01A==1 | su_alc_sip_pyr_yn.ses_02A==1 | su_alc_sip_pyr_yn.ses_03A==1 | su_alc_sip_pyr_yn.ses_04A==1,1,0,missing=0),
su_alc_sip_lft_yn.ses_05A = if_else(su_alc_sip_pyr_yn.ses_00A==1 | su_alc_sip_pyr_yn.ses_01A==1 | su_alc_sip_pyr_yn.ses_02A==1 | su_alc_sip_pyr_yn.ses_03A==1 | su_alc_sip_pyr_yn.ses_04A==1 | su_alc_sip_pyr_yn.ses_05A==1,1,0,missing=0),
su_alc_sip_lft_yn.ses_06A = if_else(su_alc_sip_pyr_yn.ses_00A==1 | su_alc_sip_pyr_yn.ses_01A==1 | su_alc_sip_pyr_yn.ses_02A==1 | su_alc_sip_pyr_yn.ses_03A==1 | su_alc_sip_pyr_yn.ses_04A==1 | su_alc_sip_pyr_yn.ses_05A==1 | su_alc_sip_pyr_yn.ses_06A==1,1,0,missing=0),
su_alc_sip_lft_onset = if_else(su_alc_sip_pyr_yn.ses_00A==1,"0Y",
if_else(su_alc_sip_pyr_yn.ses_00A==0 & su_alc_sip_pyr_yn.ses_01A==1,"1Y",
if_else(su_alc_sip_pyr_yn.ses_00A==0 & su_alc_sip_pyr_yn.ses_01A==0 & su_alc_sip_pyr_yn.ses_02A==1,"2Y",
if_else(su_alc_sip_pyr_yn.ses_00A==0 & su_alc_sip_pyr_yn.ses_01A==0 & su_alc_sip_pyr_yn.ses_02A==0 & su_alc_sip_pyr_yn.ses_03A==1,"3Y",
if_else(su_alc_sip_pyr_yn.ses_00A==0 & su_alc_sip_pyr_yn.ses_01A==0 & su_alc_sip_pyr_yn.ses_02A==0 & su_alc_sip_pyr_yn.ses_03A==0 & su_alc_sip_pyr_yn.ses_04A==1,"4Y",
if_else(su_alc_sip_pyr_yn.ses_00A==0 & su_alc_sip_pyr_yn.ses_01A==0 & su_alc_sip_pyr_yn.ses_02A==0 & su_alc_sip_pyr_yn.ses_03A==0 & su_alc_sip_pyr_yn.ses_04A==0 & su_alc_sip_pyr_yn.ses_05A==1,"5Y",
if_else(su_alc_sip_pyr_yn.ses_00A==0 & su_alc_sip_pyr_yn.ses_01A==0 & su_alc_sip_pyr_yn.ses_02A==0 & su_alc_sip_pyr_yn.ses_03A==0 & su_alc_sip_pyr_yn.ses_04A==0 & su_alc_sip_pyr_yn.ses_05A==0 & su_alc_sip_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_alc_sip_lft_yn <- dat.su_alc_sip_pyr_yn %>%
dplyr::select(participant_id,su_alc_sip_pyr_yn.ses_00A,su_alc_sip_lft_yn.ses_01A:su_alc_sip_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_alc_sip_pyr_yn.ses_00A","su_alc_sip_lft_yn.ses_01A","su_alc_sip_lft_yn.ses_02A","su_alc_sip_lft_yn.ses_03A","su_alc_sip_lft_yn.ses_04A","su_alc_sip_lft_yn.ses_05A","su_alc_sip_lft_yn.ses_06A"),variable.name="session_id",value.name="su_alc_sip_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_alc_sip_pyr_yn.ses_00A="ses_00A",su_alc_sip_lft_yn.ses_01A="ses_01A",su_alc_sip_lft_yn.ses_02A="ses_02A",su_alc_sip_lft_yn.ses_03A="ses_03A",su_alc_sip_lft_yn.ses_04A="ses_04A",su_alc_sip_lft_yn.ses_05A="ses_05A",su_alc_sip_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_alc_sip_lft_yn,by=c("participant_id","session_id"))
dat.su_alc_sip_lft_onset <- dat.su_alc_sip_pyr_yn %>% dplyr::select(participant_id,su_alc_sip_lft_onset)
dat <- dplyr::left_join(dat,dat.su_alc_sip_lft_onset,by="participant_id")
rm(dat.su_alc_sip_pyr_yn,dat.su_alc_sip_lft_yn,dat.su_alc_sip_lft_onset)
# su_nic_puff_pyr_yn
dat.su_nic_puff_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_puff_pyr_yn))
dat.su_nic_puff_pyr_yn <- dat.su_nic_puff_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_puff_lft_yn.ses_01A = if_else(su_nic_puff_pyr_yn.ses_00A==1 | su_nic_puff_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_puff_lft_yn.ses_02A = if_else(su_nic_puff_pyr_yn.ses_00A==1 | su_nic_puff_pyr_yn.ses_01A==1 | su_nic_puff_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_puff_lft_yn.ses_03A = if_else(su_nic_puff_pyr_yn.ses_00A==1 | su_nic_puff_pyr_yn.ses_01A==1 | su_nic_puff_pyr_yn.ses_02A==1 | su_nic_puff_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_puff_lft_yn.ses_04A = if_else(su_nic_puff_pyr_yn.ses_00A==1 | su_nic_puff_pyr_yn.ses_01A==1 | su_nic_puff_pyr_yn.ses_02A==1 | su_nic_puff_pyr_yn.ses_03A==1 | su_nic_puff_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_puff_lft_yn.ses_05A = if_else(su_nic_puff_pyr_yn.ses_00A==1 | su_nic_puff_pyr_yn.ses_01A==1 | su_nic_puff_pyr_yn.ses_02A==1 | su_nic_puff_pyr_yn.ses_03A==1 | su_nic_puff_pyr_yn.ses_04A==1 | su_nic_puff_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_puff_lft_yn.ses_06A = if_else(su_nic_puff_pyr_yn.ses_00A==1 | su_nic_puff_pyr_yn.ses_01A==1 | su_nic_puff_pyr_yn.ses_02A==1 | su_nic_puff_pyr_yn.ses_03A==1 | su_nic_puff_pyr_yn.ses_04A==1 | su_nic_puff_pyr_yn.ses_05A==1 | su_nic_puff_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_puff_lft_onset = if_else(su_nic_puff_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_puff_pyr_yn.ses_00A==0 & su_nic_puff_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_puff_pyr_yn.ses_00A==0 & su_nic_puff_pyr_yn.ses_01A==0 & su_nic_puff_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_puff_pyr_yn.ses_00A==0 & su_nic_puff_pyr_yn.ses_01A==0 & su_nic_puff_pyr_yn.ses_02A==0 & su_nic_puff_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_puff_pyr_yn.ses_00A==0 & su_nic_puff_pyr_yn.ses_01A==0 & su_nic_puff_pyr_yn.ses_02A==0 & su_nic_puff_pyr_yn.ses_03A==0 & su_nic_puff_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_puff_pyr_yn.ses_00A==0 & su_nic_puff_pyr_yn.ses_01A==0 & su_nic_puff_pyr_yn.ses_02A==0 & su_nic_puff_pyr_yn.ses_03A==0 & su_nic_puff_pyr_yn.ses_04A==0 & su_nic_puff_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_puff_pyr_yn.ses_00A==0 & su_nic_puff_pyr_yn.ses_01A==0 & su_nic_puff_pyr_yn.ses_02A==0 & su_nic_puff_pyr_yn.ses_03A==0 & su_nic_puff_pyr_yn.ses_04A==0 & su_nic_puff_pyr_yn.ses_05A==0 & su_nic_puff_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_puff_lft_yn <- dat.su_nic_puff_pyr_yn %>%
dplyr::select(participant_id,su_nic_puff_pyr_yn.ses_00A,su_nic_puff_lft_yn.ses_01A:su_nic_puff_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_puff_pyr_yn.ses_00A","su_nic_puff_lft_yn.ses_01A","su_nic_puff_lft_yn.ses_02A","su_nic_puff_lft_yn.ses_03A","su_nic_puff_lft_yn.ses_04A","su_nic_puff_lft_yn.ses_05A","su_nic_puff_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_puff_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_puff_pyr_yn.ses_00A="ses_00A",su_nic_puff_lft_yn.ses_01A="ses_01A",su_nic_puff_lft_yn.ses_02A="ses_02A",su_nic_puff_lft_yn.ses_03A="ses_03A",su_nic_puff_lft_yn.ses_04A="ses_04A",su_nic_puff_lft_yn.ses_05A="ses_05A",su_nic_puff_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_puff_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_puff_lft_onset <- dat.su_nic_puff_pyr_yn %>% dplyr::select(participant_id,su_nic_puff_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_puff_lft_onset,by="participant_id")
rm(dat.su_nic_puff_pyr_yn,dat.su_nic_puff_lft_yn,dat.su_nic_puff_lft_onset)
# su_mj_puff_pyr_yn
dat.su_mj_puff_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_puff_pyr_yn))
dat.su_mj_puff_pyr_yn <- dat.su_mj_puff_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_puff_lft_yn.ses_01A = if_else(su_mj_puff_pyr_yn.ses_00A==1 | su_mj_puff_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_puff_lft_yn.ses_02A = if_else(su_mj_puff_pyr_yn.ses_00A==1 | su_mj_puff_pyr_yn.ses_01A==1 | su_mj_puff_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_puff_lft_yn.ses_03A = if_else(su_mj_puff_pyr_yn.ses_00A==1 | su_mj_puff_pyr_yn.ses_01A==1 | su_mj_puff_pyr_yn.ses_02A==1 | su_mj_puff_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_puff_lft_yn.ses_04A = if_else(su_mj_puff_pyr_yn.ses_00A==1 | su_mj_puff_pyr_yn.ses_01A==1 | su_mj_puff_pyr_yn.ses_02A==1 | su_mj_puff_pyr_yn.ses_03A==1 | su_mj_puff_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_puff_lft_yn.ses_05A = if_else(su_mj_puff_pyr_yn.ses_00A==1 | su_mj_puff_pyr_yn.ses_01A==1 | su_mj_puff_pyr_yn.ses_02A==1 | su_mj_puff_pyr_yn.ses_03A==1 | su_mj_puff_pyr_yn.ses_04A==1 | su_mj_puff_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_puff_lft_yn.ses_06A = if_else(su_mj_puff_pyr_yn.ses_00A==1 | su_mj_puff_pyr_yn.ses_01A==1 | su_mj_puff_pyr_yn.ses_02A==1 | su_mj_puff_pyr_yn.ses_03A==1 | su_mj_puff_pyr_yn.ses_04A==1 | su_mj_puff_pyr_yn.ses_05A==1 | su_mj_puff_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_puff_lft_onset = if_else(su_mj_puff_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_puff_pyr_yn.ses_00A==0 & su_mj_puff_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_puff_pyr_yn.ses_00A==0 & su_mj_puff_pyr_yn.ses_01A==0 & su_mj_puff_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_puff_pyr_yn.ses_00A==0 & su_mj_puff_pyr_yn.ses_01A==0 & su_mj_puff_pyr_yn.ses_02A==0 & su_mj_puff_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_puff_pyr_yn.ses_00A==0 & su_mj_puff_pyr_yn.ses_01A==0 & su_mj_puff_pyr_yn.ses_02A==0 & su_mj_puff_pyr_yn.ses_03A==0 & su_mj_puff_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_puff_pyr_yn.ses_00A==0 & su_mj_puff_pyr_yn.ses_01A==0 & su_mj_puff_pyr_yn.ses_02A==0 & su_mj_puff_pyr_yn.ses_03A==0 & su_mj_puff_pyr_yn.ses_04A==0 & su_mj_puff_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_puff_pyr_yn.ses_00A==0 & su_mj_puff_pyr_yn.ses_01A==0 & su_mj_puff_pyr_yn.ses_02A==0 & su_mj_puff_pyr_yn.ses_03A==0 & su_mj_puff_pyr_yn.ses_04A==0 & su_mj_puff_pyr_yn.ses_05A==0 & su_mj_puff_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_puff_lft_yn <- dat.su_mj_puff_pyr_yn %>%
dplyr::select(participant_id,su_mj_puff_pyr_yn.ses_00A,su_mj_puff_lft_yn.ses_01A:su_mj_puff_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_puff_pyr_yn.ses_00A","su_mj_puff_lft_yn.ses_01A","su_mj_puff_lft_yn.ses_02A","su_mj_puff_lft_yn.ses_03A","su_mj_puff_lft_yn.ses_04A","su_mj_puff_lft_yn.ses_05A","su_mj_puff_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_puff_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_puff_pyr_yn.ses_00A="ses_00A",su_mj_puff_lft_yn.ses_01A="ses_01A",su_mj_puff_lft_yn.ses_02A="ses_02A",su_mj_puff_lft_yn.ses_03A="ses_03A",su_mj_puff_lft_yn.ses_04A="ses_04A",su_mj_puff_lft_yn.ses_05A="ses_05A",su_mj_puff_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_puff_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_puff_lft_onset <- dat.su_mj_puff_pyr_yn %>% dplyr::select(participant_id,su_mj_puff_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_puff_lft_onset,by="participant_id")
rm(dat.su_mj_puff_pyr_yn,dat.su_mj_puff_lft_yn,dat.su_mj_puff_lft_onset)
# su_alc_pyr_yn
dat.su_alc_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_alc_pyr_yn))
dat.su_alc_pyr_yn <- dat.su_alc_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_alc_lft_yn.ses_01A = if_else(su_alc_pyr_yn.ses_00A==1 | su_alc_pyr_yn.ses_01A==1,1,0,missing=0),
su_alc_lft_yn.ses_02A = if_else(su_alc_pyr_yn.ses_00A==1 | su_alc_pyr_yn.ses_01A==1 | su_alc_pyr_yn.ses_02A==1,1,0,missing=0),
su_alc_lft_yn.ses_03A = if_else(su_alc_pyr_yn.ses_00A==1 | su_alc_pyr_yn.ses_01A==1 | su_alc_pyr_yn.ses_02A==1 | su_alc_pyr_yn.ses_03A==1,1,0,missing=0),
su_alc_lft_yn.ses_04A = if_else(su_alc_pyr_yn.ses_00A==1 | su_alc_pyr_yn.ses_01A==1 | su_alc_pyr_yn.ses_02A==1 | su_alc_pyr_yn.ses_03A==1 | su_alc_pyr_yn.ses_04A==1,1,0,missing=0),
su_alc_lft_yn.ses_05A = if_else(su_alc_pyr_yn.ses_00A==1 | su_alc_pyr_yn.ses_01A==1 | su_alc_pyr_yn.ses_02A==1 | su_alc_pyr_yn.ses_03A==1 | su_alc_pyr_yn.ses_04A==1 | su_alc_pyr_yn.ses_05A==1,1,0,missing=0),
su_alc_lft_yn.ses_06A = if_else(su_alc_pyr_yn.ses_00A==1 | su_alc_pyr_yn.ses_01A==1 | su_alc_pyr_yn.ses_02A==1 | su_alc_pyr_yn.ses_03A==1 | su_alc_pyr_yn.ses_04A==1 | su_alc_pyr_yn.ses_05A==1 | su_alc_pyr_yn.ses_06A==1,1,0,missing=0),
su_alc_lft_onset = if_else(su_alc_pyr_yn.ses_00A==1,"0Y",
if_else(su_alc_pyr_yn.ses_00A==0 & su_alc_pyr_yn.ses_01A==1,"1Y",
if_else(su_alc_pyr_yn.ses_00A==0 & su_alc_pyr_yn.ses_01A==0 & su_alc_pyr_yn.ses_02A==1,"2Y",
if_else(su_alc_pyr_yn.ses_00A==0 & su_alc_pyr_yn.ses_01A==0 & su_alc_pyr_yn.ses_02A==0 & su_alc_pyr_yn.ses_03A==1,"3Y",
if_else(su_alc_pyr_yn.ses_00A==0 & su_alc_pyr_yn.ses_01A==0 & su_alc_pyr_yn.ses_02A==0 & su_alc_pyr_yn.ses_03A==0 & su_alc_pyr_yn.ses_04A==1,"4Y",
if_else(su_alc_pyr_yn.ses_00A==0 & su_alc_pyr_yn.ses_01A==0 & su_alc_pyr_yn.ses_02A==0 & su_alc_pyr_yn.ses_03A==0 & su_alc_pyr_yn.ses_04A==0 & su_alc_pyr_yn.ses_05A==1,"5Y",
if_else(su_alc_pyr_yn.ses_00A==0 & su_alc_pyr_yn.ses_01A==0 & su_alc_pyr_yn.ses_02A==0 & su_alc_pyr_yn.ses_03A==0 & su_alc_pyr_yn.ses_04A==0 & su_alc_pyr_yn.ses_05A==0 & su_alc_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_alc_lft_yn <- dat.su_alc_pyr_yn %>%
dplyr::select(participant_id,su_alc_pyr_yn.ses_00A,su_alc_lft_yn.ses_01A:su_alc_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_alc_pyr_yn.ses_00A","su_alc_lft_yn.ses_01A","su_alc_lft_yn.ses_02A","su_alc_lft_yn.ses_03A","su_alc_lft_yn.ses_04A","su_alc_lft_yn.ses_05A","su_alc_lft_yn.ses_06A"),variable.name="session_id",value.name="su_alc_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_alc_pyr_yn.ses_00A="ses_00A",su_alc_lft_yn.ses_01A="ses_01A",su_alc_lft_yn.ses_02A="ses_02A",su_alc_lft_yn.ses_03A="ses_03A",su_alc_lft_yn.ses_04A="ses_04A",su_alc_lft_yn.ses_05A="ses_05A",su_alc_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_alc_lft_yn,by=c("participant_id","session_id"))
dat.su_alc_lft_onset <- dat.su_alc_pyr_yn %>% dplyr::select(participant_id,su_alc_lft_onset)
dat <- dplyr::left_join(dat,dat.su_alc_lft_onset,by="participant_id")
rm(dat.su_alc_pyr_yn,dat.su_alc_lft_yn,dat.su_alc_lft_onset)
# su_nic_pyr_yn
dat.su_nic_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_pyr_yn))
dat.su_nic_pyr_yn <- dat.su_nic_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_lft_yn.ses_01A = if_else(su_nic_pyr_yn.ses_00A==1 | su_nic_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_lft_yn.ses_02A = if_else(su_nic_pyr_yn.ses_00A==1 | su_nic_pyr_yn.ses_01A==1 | su_nic_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_lft_yn.ses_03A = if_else(su_nic_pyr_yn.ses_00A==1 | su_nic_pyr_yn.ses_01A==1 | su_nic_pyr_yn.ses_02A==1 | su_nic_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_lft_yn.ses_04A = if_else(su_nic_pyr_yn.ses_00A==1 | su_nic_pyr_yn.ses_01A==1 | su_nic_pyr_yn.ses_02A==1 | su_nic_pyr_yn.ses_03A==1 | su_nic_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_lft_yn.ses_05A = if_else(su_nic_pyr_yn.ses_00A==1 | su_nic_pyr_yn.ses_01A==1 | su_nic_pyr_yn.ses_02A==1 | su_nic_pyr_yn.ses_03A==1 | su_nic_pyr_yn.ses_04A==1 | su_nic_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_lft_yn.ses_06A = if_else(su_nic_pyr_yn.ses_00A==1 | su_nic_pyr_yn.ses_01A==1 | su_nic_pyr_yn.ses_02A==1 | su_nic_pyr_yn.ses_03A==1 | su_nic_pyr_yn.ses_04A==1 | su_nic_pyr_yn.ses_05A==1 | su_nic_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_lft_onset = if_else(su_nic_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_pyr_yn.ses_00A==0 & su_nic_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_pyr_yn.ses_00A==0 & su_nic_pyr_yn.ses_01A==0 & su_nic_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_pyr_yn.ses_00A==0 & su_nic_pyr_yn.ses_01A==0 & su_nic_pyr_yn.ses_02A==0 & su_nic_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_pyr_yn.ses_00A==0 & su_nic_pyr_yn.ses_01A==0 & su_nic_pyr_yn.ses_02A==0 & su_nic_pyr_yn.ses_03A==0 & su_nic_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_pyr_yn.ses_00A==0 & su_nic_pyr_yn.ses_01A==0 & su_nic_pyr_yn.ses_02A==0 & su_nic_pyr_yn.ses_03A==0 & su_nic_pyr_yn.ses_04A==0 & su_nic_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_pyr_yn.ses_00A==0 & su_nic_pyr_yn.ses_01A==0 & su_nic_pyr_yn.ses_02A==0 & su_nic_pyr_yn.ses_03A==0 & su_nic_pyr_yn.ses_04A==0 & su_nic_pyr_yn.ses_05A==0 & su_nic_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_lft_yn <- dat.su_nic_pyr_yn %>%
dplyr::select(participant_id,su_nic_pyr_yn.ses_00A,su_nic_lft_yn.ses_01A:su_nic_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_pyr_yn.ses_00A","su_nic_lft_yn.ses_01A","su_nic_lft_yn.ses_02A","su_nic_lft_yn.ses_03A","su_nic_lft_yn.ses_04A","su_nic_lft_yn.ses_05A","su_nic_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_pyr_yn.ses_00A="ses_00A",su_nic_lft_yn.ses_01A="ses_01A",su_nic_lft_yn.ses_02A="ses_02A",su_nic_lft_yn.ses_03A="ses_03A",su_nic_lft_yn.ses_04A="ses_04A",su_nic_lft_yn.ses_05A="ses_05A",su_nic_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_lft_onset <- dat.su_nic_pyr_yn %>% dplyr::select(participant_id,su_nic_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_lft_onset,by="participant_id")
rm(dat.su_nic_pyr_yn,dat.su_nic_lft_yn,dat.su_nic_lft_onset)
# su_mj_pyr_yn
dat.su_mj_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_pyr_yn))
dat.su_mj_pyr_yn <- dat.su_mj_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_lft_yn.ses_01A = if_else(su_mj_pyr_yn.ses_00A==1 | su_mj_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_lft_yn.ses_02A = if_else(su_mj_pyr_yn.ses_00A==1 | su_mj_pyr_yn.ses_01A==1 | su_mj_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_lft_yn.ses_03A = if_else(su_mj_pyr_yn.ses_00A==1 | su_mj_pyr_yn.ses_01A==1 | su_mj_pyr_yn.ses_02A==1 | su_mj_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_lft_yn.ses_04A = if_else(su_mj_pyr_yn.ses_00A==1 | su_mj_pyr_yn.ses_01A==1 | su_mj_pyr_yn.ses_02A==1 | su_mj_pyr_yn.ses_03A==1 | su_mj_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_lft_yn.ses_05A = if_else(su_mj_pyr_yn.ses_00A==1 | su_mj_pyr_yn.ses_01A==1 | su_mj_pyr_yn.ses_02A==1 | su_mj_pyr_yn.ses_03A==1 | su_mj_pyr_yn.ses_04A==1 | su_mj_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_lft_yn.ses_06A = if_else(su_mj_pyr_yn.ses_00A==1 | su_mj_pyr_yn.ses_01A==1 | su_mj_pyr_yn.ses_02A==1 | su_mj_pyr_yn.ses_03A==1 | su_mj_pyr_yn.ses_04A==1 | su_mj_pyr_yn.ses_05A==1 | su_mj_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_lft_onset = if_else(su_mj_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_pyr_yn.ses_00A==0 & su_mj_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_pyr_yn.ses_00A==0 & su_mj_pyr_yn.ses_01A==0 & su_mj_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_pyr_yn.ses_00A==0 & su_mj_pyr_yn.ses_01A==0 & su_mj_pyr_yn.ses_02A==0 & su_mj_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_pyr_yn.ses_00A==0 & su_mj_pyr_yn.ses_01A==0 & su_mj_pyr_yn.ses_02A==0 & su_mj_pyr_yn.ses_03A==0 & su_mj_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_pyr_yn.ses_00A==0 & su_mj_pyr_yn.ses_01A==0 & su_mj_pyr_yn.ses_02A==0 & su_mj_pyr_yn.ses_03A==0 & su_mj_pyr_yn.ses_04A==0 & su_mj_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_pyr_yn.ses_00A==0 & su_mj_pyr_yn.ses_01A==0 & su_mj_pyr_yn.ses_02A==0 & su_mj_pyr_yn.ses_03A==0 & su_mj_pyr_yn.ses_04A==0 & su_mj_pyr_yn.ses_05A==0 & su_mj_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_lft_yn <- dat.su_mj_pyr_yn %>%
dplyr::select(participant_id,su_mj_pyr_yn.ses_00A,su_mj_lft_yn.ses_01A:su_mj_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_pyr_yn.ses_00A","su_mj_lft_yn.ses_01A","su_mj_lft_yn.ses_02A","su_mj_lft_yn.ses_03A","su_mj_lft_yn.ses_04A","su_mj_lft_yn.ses_05A","su_mj_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_pyr_yn.ses_00A="ses_00A",su_mj_lft_yn.ses_01A="ses_01A",su_mj_lft_yn.ses_02A="ses_02A",su_mj_lft_yn.ses_03A="ses_03A",su_mj_lft_yn.ses_04A="ses_04A",su_mj_lft_yn.ses_05A="ses_05A",su_mj_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_lft_onset <- dat.su_mj_pyr_yn %>% dplyr::select(participant_id,su_mj_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_lft_onset,by="participant_id")
rm(dat.su_mj_pyr_yn,dat.su_mj_lft_yn,dat.su_mj_lft_onset)
# su_nic_vape_pyr_yn
dat.su_nic_vape_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_vape_pyr_yn))
dat.su_nic_vape_pyr_yn <- dat.su_nic_vape_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_vape_lft_yn.ses_01A = if_else(su_nic_vape_pyr_yn.ses_00A==1 | su_nic_vape_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_vape_lft_yn.ses_02A = if_else(su_nic_vape_pyr_yn.ses_00A==1 | su_nic_vape_pyr_yn.ses_01A==1 | su_nic_vape_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_vape_lft_yn.ses_03A = if_else(su_nic_vape_pyr_yn.ses_00A==1 | su_nic_vape_pyr_yn.ses_01A==1 | su_nic_vape_pyr_yn.ses_02A==1 | su_nic_vape_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_vape_lft_yn.ses_04A = if_else(su_nic_vape_pyr_yn.ses_00A==1 | su_nic_vape_pyr_yn.ses_01A==1 | su_nic_vape_pyr_yn.ses_02A==1 | su_nic_vape_pyr_yn.ses_03A==1 | su_nic_vape_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_vape_lft_yn.ses_05A = if_else(su_nic_vape_pyr_yn.ses_00A==1 | su_nic_vape_pyr_yn.ses_01A==1 | su_nic_vape_pyr_yn.ses_02A==1 | su_nic_vape_pyr_yn.ses_03A==1 | su_nic_vape_pyr_yn.ses_04A==1 | su_nic_vape_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_vape_lft_yn.ses_06A = if_else(su_nic_vape_pyr_yn.ses_00A==1 | su_nic_vape_pyr_yn.ses_01A==1 | su_nic_vape_pyr_yn.ses_02A==1 | su_nic_vape_pyr_yn.ses_03A==1 | su_nic_vape_pyr_yn.ses_04A==1 | su_nic_vape_pyr_yn.ses_05A==1 | su_nic_vape_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_vape_lft_onset = if_else(su_nic_vape_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_vape_pyr_yn.ses_00A==0 & su_nic_vape_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_vape_pyr_yn.ses_00A==0 & su_nic_vape_pyr_yn.ses_01A==0 & su_nic_vape_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_vape_pyr_yn.ses_00A==0 & su_nic_vape_pyr_yn.ses_01A==0 & su_nic_vape_pyr_yn.ses_02A==0 & su_nic_vape_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_vape_pyr_yn.ses_00A==0 & su_nic_vape_pyr_yn.ses_01A==0 & su_nic_vape_pyr_yn.ses_02A==0 & su_nic_vape_pyr_yn.ses_03A==0 & su_nic_vape_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_vape_pyr_yn.ses_00A==0 & su_nic_vape_pyr_yn.ses_01A==0 & su_nic_vape_pyr_yn.ses_02A==0 & su_nic_vape_pyr_yn.ses_03A==0 & su_nic_vape_pyr_yn.ses_04A==0 & su_nic_vape_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_vape_pyr_yn.ses_00A==0 & su_nic_vape_pyr_yn.ses_01A==0 & su_nic_vape_pyr_yn.ses_02A==0 & su_nic_vape_pyr_yn.ses_03A==0 & su_nic_vape_pyr_yn.ses_04A==0 & su_nic_vape_pyr_yn.ses_05A==0 & su_nic_vape_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_vape_lft_yn <- dat.su_nic_vape_pyr_yn %>%
dplyr::select(participant_id,su_nic_vape_pyr_yn.ses_00A,su_nic_vape_lft_yn.ses_01A:su_nic_vape_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_vape_pyr_yn.ses_00A","su_nic_vape_lft_yn.ses_01A","su_nic_vape_lft_yn.ses_02A","su_nic_vape_lft_yn.ses_03A","su_nic_vape_lft_yn.ses_04A","su_nic_vape_lft_yn.ses_05A","su_nic_vape_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_vape_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_vape_pyr_yn.ses_00A="ses_00A",su_nic_vape_lft_yn.ses_01A="ses_01A",su_nic_vape_lft_yn.ses_02A="ses_02A",su_nic_vape_lft_yn.ses_03A="ses_03A",su_nic_vape_lft_yn.ses_04A="ses_04A",su_nic_vape_lft_yn.ses_05A="ses_05A",su_nic_vape_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_vape_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_vape_lft_onset <- dat.su_nic_vape_pyr_yn %>% dplyr::select(participant_id,su_nic_vape_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_vape_lft_onset,by="participant_id")
rm(dat.su_nic_vape_pyr_yn,dat.su_nic_vape_lft_yn,dat.su_nic_vape_lft_onset)
# su_nic_cig_pyr_yn
dat.su_nic_cig_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_cig_pyr_yn))
dat.su_nic_cig_pyr_yn <- dat.su_nic_cig_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_cig_lft_yn.ses_01A = if_else(su_nic_cig_pyr_yn.ses_00A==1 | su_nic_cig_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_cig_lft_yn.ses_02A = if_else(su_nic_cig_pyr_yn.ses_00A==1 | su_nic_cig_pyr_yn.ses_01A==1 | su_nic_cig_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_cig_lft_yn.ses_03A = if_else(su_nic_cig_pyr_yn.ses_00A==1 | su_nic_cig_pyr_yn.ses_01A==1 | su_nic_cig_pyr_yn.ses_02A==1 | su_nic_cig_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_cig_lft_yn.ses_04A = if_else(su_nic_cig_pyr_yn.ses_00A==1 | su_nic_cig_pyr_yn.ses_01A==1 | su_nic_cig_pyr_yn.ses_02A==1 | su_nic_cig_pyr_yn.ses_03A==1 | su_nic_cig_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_cig_lft_yn.ses_05A = if_else(su_nic_cig_pyr_yn.ses_00A==1 | su_nic_cig_pyr_yn.ses_01A==1 | su_nic_cig_pyr_yn.ses_02A==1 | su_nic_cig_pyr_yn.ses_03A==1 | su_nic_cig_pyr_yn.ses_04A==1 | su_nic_cig_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_cig_lft_yn.ses_06A = if_else(su_nic_cig_pyr_yn.ses_00A==1 | su_nic_cig_pyr_yn.ses_01A==1 | su_nic_cig_pyr_yn.ses_02A==1 | su_nic_cig_pyr_yn.ses_03A==1 | su_nic_cig_pyr_yn.ses_04A==1 | su_nic_cig_pyr_yn.ses_05A==1 | su_nic_cig_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_cig_lft_onset = if_else(su_nic_cig_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_cig_pyr_yn.ses_00A==0 & su_nic_cig_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_cig_pyr_yn.ses_00A==0 & su_nic_cig_pyr_yn.ses_01A==0 & su_nic_cig_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_cig_pyr_yn.ses_00A==0 & su_nic_cig_pyr_yn.ses_01A==0 & su_nic_cig_pyr_yn.ses_02A==0 & su_nic_cig_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_cig_pyr_yn.ses_00A==0 & su_nic_cig_pyr_yn.ses_01A==0 & su_nic_cig_pyr_yn.ses_02A==0 & su_nic_cig_pyr_yn.ses_03A==0 & su_nic_cig_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_cig_pyr_yn.ses_00A==0 & su_nic_cig_pyr_yn.ses_01A==0 & su_nic_cig_pyr_yn.ses_02A==0 & su_nic_cig_pyr_yn.ses_03A==0 & su_nic_cig_pyr_yn.ses_04A==0 & su_nic_cig_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_cig_pyr_yn.ses_00A==0 & su_nic_cig_pyr_yn.ses_01A==0 & su_nic_cig_pyr_yn.ses_02A==0 & su_nic_cig_pyr_yn.ses_03A==0 & su_nic_cig_pyr_yn.ses_04A==0 & su_nic_cig_pyr_yn.ses_05A==0 & su_nic_cig_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_cig_lft_yn <- dat.su_nic_cig_pyr_yn %>%
dplyr::select(participant_id,su_nic_cig_pyr_yn.ses_00A,su_nic_cig_lft_yn.ses_01A:su_nic_cig_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_cig_pyr_yn.ses_00A","su_nic_cig_lft_yn.ses_01A","su_nic_cig_lft_yn.ses_02A","su_nic_cig_lft_yn.ses_03A","su_nic_cig_lft_yn.ses_04A","su_nic_cig_lft_yn.ses_05A","su_nic_cig_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_cig_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_cig_pyr_yn.ses_00A="ses_00A",su_nic_cig_lft_yn.ses_01A="ses_01A",su_nic_cig_lft_yn.ses_02A="ses_02A",su_nic_cig_lft_yn.ses_03A="ses_03A",su_nic_cig_lft_yn.ses_04A="ses_04A",su_nic_cig_lft_yn.ses_05A="ses_05A",su_nic_cig_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_cig_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_cig_lft_onset <- dat.su_nic_cig_pyr_yn %>% dplyr::select(participant_id,su_nic_cig_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_cig_lft_onset,by="participant_id")
rm(dat.su_nic_cig_pyr_yn,dat.su_nic_cig_lft_yn,dat.su_nic_cig_lft_onset)
# su_nic_cigar_pyr_yn
dat.su_nic_cigar_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_cigar_pyr_yn))
dat.su_nic_cigar_pyr_yn <- dat.su_nic_cigar_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_cigar_lft_yn.ses_01A = if_else(su_nic_cigar_pyr_yn.ses_00A==1 | su_nic_cigar_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_cigar_lft_yn.ses_02A = if_else(su_nic_cigar_pyr_yn.ses_00A==1 | su_nic_cigar_pyr_yn.ses_01A==1 | su_nic_cigar_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_cigar_lft_yn.ses_03A = if_else(su_nic_cigar_pyr_yn.ses_00A==1 | su_nic_cigar_pyr_yn.ses_01A==1 | su_nic_cigar_pyr_yn.ses_02A==1 | su_nic_cigar_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_cigar_lft_yn.ses_04A = if_else(su_nic_cigar_pyr_yn.ses_00A==1 | su_nic_cigar_pyr_yn.ses_01A==1 | su_nic_cigar_pyr_yn.ses_02A==1 | su_nic_cigar_pyr_yn.ses_03A==1 | su_nic_cigar_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_cigar_lft_yn.ses_05A = if_else(su_nic_cigar_pyr_yn.ses_00A==1 | su_nic_cigar_pyr_yn.ses_01A==1 | su_nic_cigar_pyr_yn.ses_02A==1 | su_nic_cigar_pyr_yn.ses_03A==1 | su_nic_cigar_pyr_yn.ses_04A==1 | su_nic_cigar_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_cigar_lft_yn.ses_06A = if_else(su_nic_cigar_pyr_yn.ses_00A==1 | su_nic_cigar_pyr_yn.ses_01A==1 | su_nic_cigar_pyr_yn.ses_02A==1 | su_nic_cigar_pyr_yn.ses_03A==1 | su_nic_cigar_pyr_yn.ses_04A==1 | su_nic_cigar_pyr_yn.ses_05A==1 | su_nic_cigar_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_cigar_lft_onset = if_else(su_nic_cigar_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_cigar_pyr_yn.ses_00A==0 & su_nic_cigar_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_cigar_pyr_yn.ses_00A==0 & su_nic_cigar_pyr_yn.ses_01A==0 & su_nic_cigar_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_cigar_pyr_yn.ses_00A==0 & su_nic_cigar_pyr_yn.ses_01A==0 & su_nic_cigar_pyr_yn.ses_02A==0 & su_nic_cigar_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_cigar_pyr_yn.ses_00A==0 & su_nic_cigar_pyr_yn.ses_01A==0 & su_nic_cigar_pyr_yn.ses_02A==0 & su_nic_cigar_pyr_yn.ses_03A==0 & su_nic_cigar_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_cigar_pyr_yn.ses_00A==0 & su_nic_cigar_pyr_yn.ses_01A==0 & su_nic_cigar_pyr_yn.ses_02A==0 & su_nic_cigar_pyr_yn.ses_03A==0 & su_nic_cigar_pyr_yn.ses_04A==0 & su_nic_cigar_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_cigar_pyr_yn.ses_00A==0 & su_nic_cigar_pyr_yn.ses_01A==0 & su_nic_cigar_pyr_yn.ses_02A==0 & su_nic_cigar_pyr_yn.ses_03A==0 & su_nic_cigar_pyr_yn.ses_04A==0 & su_nic_cigar_pyr_yn.ses_05A==0 & su_nic_cigar_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_cigar_lft_yn <- dat.su_nic_cigar_pyr_yn %>%
dplyr::select(participant_id,su_nic_cigar_pyr_yn.ses_00A,su_nic_cigar_lft_yn.ses_01A:su_nic_cigar_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_cigar_pyr_yn.ses_00A","su_nic_cigar_lft_yn.ses_01A","su_nic_cigar_lft_yn.ses_02A","su_nic_cigar_lft_yn.ses_03A","su_nic_cigar_lft_yn.ses_04A","su_nic_cigar_lft_yn.ses_05A","su_nic_cigar_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_cigar_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_cigar_pyr_yn.ses_00A="ses_00A",su_nic_cigar_lft_yn.ses_01A="ses_01A",su_nic_cigar_lft_yn.ses_02A="ses_02A",su_nic_cigar_lft_yn.ses_03A="ses_03A",su_nic_cigar_lft_yn.ses_04A="ses_04A",su_nic_cigar_lft_yn.ses_05A="ses_05A",su_nic_cigar_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_cigar_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_cigar_lft_onset <- dat.su_nic_cigar_pyr_yn %>% dplyr::select(participant_id,su_nic_cigar_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_cigar_lft_onset,by="participant_id")
rm(dat.su_nic_cigar_pyr_yn,dat.su_nic_cigar_lft_yn,dat.su_nic_cigar_lft_onset)
# su_nic_pipe_pyr_yn
dat.su_nic_pipe_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_pipe_pyr_yn))
dat.su_nic_pipe_pyr_yn <- dat.su_nic_pipe_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_pipe_lft_yn.ses_01A = if_else(su_nic_pipe_pyr_yn.ses_00A==1 | su_nic_pipe_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_pipe_lft_yn.ses_02A = if_else(su_nic_pipe_pyr_yn.ses_00A==1 | su_nic_pipe_pyr_yn.ses_01A==1 | su_nic_pipe_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_pipe_lft_yn.ses_03A = if_else(su_nic_pipe_pyr_yn.ses_00A==1 | su_nic_pipe_pyr_yn.ses_01A==1 | su_nic_pipe_pyr_yn.ses_02A==1 | su_nic_pipe_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_pipe_lft_yn.ses_04A = if_else(su_nic_pipe_pyr_yn.ses_00A==1 | su_nic_pipe_pyr_yn.ses_01A==1 | su_nic_pipe_pyr_yn.ses_02A==1 | su_nic_pipe_pyr_yn.ses_03A==1 | su_nic_pipe_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_pipe_lft_yn.ses_05A = if_else(su_nic_pipe_pyr_yn.ses_00A==1 | su_nic_pipe_pyr_yn.ses_01A==1 | su_nic_pipe_pyr_yn.ses_02A==1 | su_nic_pipe_pyr_yn.ses_03A==1 | su_nic_pipe_pyr_yn.ses_04A==1 | su_nic_pipe_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_pipe_lft_yn.ses_06A = if_else(su_nic_pipe_pyr_yn.ses_00A==1 | su_nic_pipe_pyr_yn.ses_01A==1 | su_nic_pipe_pyr_yn.ses_02A==1 | su_nic_pipe_pyr_yn.ses_03A==1 | su_nic_pipe_pyr_yn.ses_04A==1 | su_nic_pipe_pyr_yn.ses_05A==1 | su_nic_pipe_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_pipe_lft_onset = if_else(su_nic_pipe_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_pipe_pyr_yn.ses_00A==0 & su_nic_pipe_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_pipe_pyr_yn.ses_00A==0 & su_nic_pipe_pyr_yn.ses_01A==0 & su_nic_pipe_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_pipe_pyr_yn.ses_00A==0 & su_nic_pipe_pyr_yn.ses_01A==0 & su_nic_pipe_pyr_yn.ses_02A==0 & su_nic_pipe_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_pipe_pyr_yn.ses_00A==0 & su_nic_pipe_pyr_yn.ses_01A==0 & su_nic_pipe_pyr_yn.ses_02A==0 & su_nic_pipe_pyr_yn.ses_03A==0 & su_nic_pipe_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_pipe_pyr_yn.ses_00A==0 & su_nic_pipe_pyr_yn.ses_01A==0 & su_nic_pipe_pyr_yn.ses_02A==0 & su_nic_pipe_pyr_yn.ses_03A==0 & su_nic_pipe_pyr_yn.ses_04A==0 & su_nic_pipe_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_pipe_pyr_yn.ses_00A==0 & su_nic_pipe_pyr_yn.ses_01A==0 & su_nic_pipe_pyr_yn.ses_02A==0 & su_nic_pipe_pyr_yn.ses_03A==0 & su_nic_pipe_pyr_yn.ses_04A==0 & su_nic_pipe_pyr_yn.ses_05A==0 & su_nic_pipe_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_pipe_lft_yn <- dat.su_nic_pipe_pyr_yn %>%
dplyr::select(participant_id,su_nic_pipe_pyr_yn.ses_00A,su_nic_pipe_lft_yn.ses_01A:su_nic_pipe_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_pipe_pyr_yn.ses_00A","su_nic_pipe_lft_yn.ses_01A","su_nic_pipe_lft_yn.ses_02A","su_nic_pipe_lft_yn.ses_03A","su_nic_pipe_lft_yn.ses_04A","su_nic_pipe_lft_yn.ses_05A","su_nic_pipe_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_pipe_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_pipe_pyr_yn.ses_00A="ses_00A",su_nic_pipe_lft_yn.ses_01A="ses_01A",su_nic_pipe_lft_yn.ses_02A="ses_02A",su_nic_pipe_lft_yn.ses_03A="ses_03A",su_nic_pipe_lft_yn.ses_04A="ses_04A",su_nic_pipe_lft_yn.ses_05A="ses_05A",su_nic_pipe_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_pipe_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_pipe_lft_onset <- dat.su_nic_pipe_pyr_yn %>% dplyr::select(participant_id,su_nic_pipe_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_pipe_lft_onset,by="participant_id")
rm(dat.su_nic_pipe_pyr_yn,dat.su_nic_pipe_lft_yn,dat.su_nic_pipe_lft_onset)
# su_nic_hookah_pyr_yn
dat.su_nic_hookah_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_hookah_pyr_yn))
dat.su_nic_hookah_pyr_yn <- dat.su_nic_hookah_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_hookah_lft_yn.ses_01A = if_else(su_nic_hookah_pyr_yn.ses_00A==1 | su_nic_hookah_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_hookah_lft_yn.ses_02A = if_else(su_nic_hookah_pyr_yn.ses_00A==1 | su_nic_hookah_pyr_yn.ses_01A==1 | su_nic_hookah_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_hookah_lft_yn.ses_03A = if_else(su_nic_hookah_pyr_yn.ses_00A==1 | su_nic_hookah_pyr_yn.ses_01A==1 | su_nic_hookah_pyr_yn.ses_02A==1 | su_nic_hookah_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_hookah_lft_yn.ses_04A = if_else(su_nic_hookah_pyr_yn.ses_00A==1 | su_nic_hookah_pyr_yn.ses_01A==1 | su_nic_hookah_pyr_yn.ses_02A==1 | su_nic_hookah_pyr_yn.ses_03A==1 | su_nic_hookah_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_hookah_lft_yn.ses_05A = if_else(su_nic_hookah_pyr_yn.ses_00A==1 | su_nic_hookah_pyr_yn.ses_01A==1 | su_nic_hookah_pyr_yn.ses_02A==1 | su_nic_hookah_pyr_yn.ses_03A==1 | su_nic_hookah_pyr_yn.ses_04A==1 | su_nic_hookah_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_hookah_lft_yn.ses_06A = if_else(su_nic_hookah_pyr_yn.ses_00A==1 | su_nic_hookah_pyr_yn.ses_01A==1 | su_nic_hookah_pyr_yn.ses_02A==1 | su_nic_hookah_pyr_yn.ses_03A==1 | su_nic_hookah_pyr_yn.ses_04A==1 | su_nic_hookah_pyr_yn.ses_05A==1 | su_nic_hookah_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_hookah_lft_onset = if_else(su_nic_hookah_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_hookah_pyr_yn.ses_00A==0 & su_nic_hookah_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_hookah_pyr_yn.ses_00A==0 & su_nic_hookah_pyr_yn.ses_01A==0 & su_nic_hookah_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_hookah_pyr_yn.ses_00A==0 & su_nic_hookah_pyr_yn.ses_01A==0 & su_nic_hookah_pyr_yn.ses_02A==0 & su_nic_hookah_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_hookah_pyr_yn.ses_00A==0 & su_nic_hookah_pyr_yn.ses_01A==0 & su_nic_hookah_pyr_yn.ses_02A==0 & su_nic_hookah_pyr_yn.ses_03A==0 & su_nic_hookah_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_hookah_pyr_yn.ses_00A==0 & su_nic_hookah_pyr_yn.ses_01A==0 & su_nic_hookah_pyr_yn.ses_02A==0 & su_nic_hookah_pyr_yn.ses_03A==0 & su_nic_hookah_pyr_yn.ses_04A==0 & su_nic_hookah_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_hookah_pyr_yn.ses_00A==0 & su_nic_hookah_pyr_yn.ses_01A==0 & su_nic_hookah_pyr_yn.ses_02A==0 & su_nic_hookah_pyr_yn.ses_03A==0 & su_nic_hookah_pyr_yn.ses_04A==0 & su_nic_hookah_pyr_yn.ses_05A==0 & su_nic_hookah_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_hookah_lft_yn <- dat.su_nic_hookah_pyr_yn %>%
dplyr::select(participant_id,su_nic_hookah_pyr_yn.ses_00A,su_nic_hookah_lft_yn.ses_01A:su_nic_hookah_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_hookah_pyr_yn.ses_00A","su_nic_hookah_lft_yn.ses_01A","su_nic_hookah_lft_yn.ses_02A","su_nic_hookah_lft_yn.ses_03A","su_nic_hookah_lft_yn.ses_04A","su_nic_hookah_lft_yn.ses_05A","su_nic_hookah_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_hookah_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_hookah_pyr_yn.ses_00A="ses_00A",su_nic_hookah_lft_yn.ses_01A="ses_01A",su_nic_hookah_lft_yn.ses_02A="ses_02A",su_nic_hookah_lft_yn.ses_03A="ses_03A",su_nic_hookah_lft_yn.ses_04A="ses_04A",su_nic_hookah_lft_yn.ses_05A="ses_05A",su_nic_hookah_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_hookah_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_hookah_lft_onset <- dat.su_nic_hookah_pyr_yn %>% dplyr::select(participant_id,su_nic_hookah_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_hookah_lft_onset,by="participant_id")
rm(dat.su_nic_hookah_pyr_yn,dat.su_nic_hookah_lft_yn,dat.su_nic_hookah_lft_onset)
# su_nic_rplc_pyr_yn
dat.su_nic_rplc_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_rplc_pyr_yn))
dat.su_nic_rplc_pyr_yn <- dat.su_nic_rplc_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_rplc_lft_yn.ses_01A = if_else(su_nic_rplc_pyr_yn.ses_00A==1 | su_nic_rplc_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_rplc_lft_yn.ses_02A = if_else(su_nic_rplc_pyr_yn.ses_00A==1 | su_nic_rplc_pyr_yn.ses_01A==1 | su_nic_rplc_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_rplc_lft_yn.ses_03A = if_else(su_nic_rplc_pyr_yn.ses_00A==1 | su_nic_rplc_pyr_yn.ses_01A==1 | su_nic_rplc_pyr_yn.ses_02A==1 | su_nic_rplc_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_rplc_lft_yn.ses_04A = if_else(su_nic_rplc_pyr_yn.ses_00A==1 | su_nic_rplc_pyr_yn.ses_01A==1 | su_nic_rplc_pyr_yn.ses_02A==1 | su_nic_rplc_pyr_yn.ses_03A==1 | su_nic_rplc_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_rplc_lft_yn.ses_05A = if_else(su_nic_rplc_pyr_yn.ses_00A==1 | su_nic_rplc_pyr_yn.ses_01A==1 | su_nic_rplc_pyr_yn.ses_02A==1 | su_nic_rplc_pyr_yn.ses_03A==1 | su_nic_rplc_pyr_yn.ses_04A==1 | su_nic_rplc_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_rplc_lft_yn.ses_06A = if_else(su_nic_rplc_pyr_yn.ses_00A==1 | su_nic_rplc_pyr_yn.ses_01A==1 | su_nic_rplc_pyr_yn.ses_02A==1 | su_nic_rplc_pyr_yn.ses_03A==1 | su_nic_rplc_pyr_yn.ses_04A==1 | su_nic_rplc_pyr_yn.ses_05A==1 | su_nic_rplc_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_rplc_lft_onset = if_else(su_nic_rplc_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_rplc_pyr_yn.ses_00A==0 & su_nic_rplc_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_rplc_pyr_yn.ses_00A==0 & su_nic_rplc_pyr_yn.ses_01A==0 & su_nic_rplc_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_rplc_pyr_yn.ses_00A==0 & su_nic_rplc_pyr_yn.ses_01A==0 & su_nic_rplc_pyr_yn.ses_02A==0 & su_nic_rplc_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_rplc_pyr_yn.ses_00A==0 & su_nic_rplc_pyr_yn.ses_01A==0 & su_nic_rplc_pyr_yn.ses_02A==0 & su_nic_rplc_pyr_yn.ses_03A==0 & su_nic_rplc_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_rplc_pyr_yn.ses_00A==0 & su_nic_rplc_pyr_yn.ses_01A==0 & su_nic_rplc_pyr_yn.ses_02A==0 & su_nic_rplc_pyr_yn.ses_03A==0 & su_nic_rplc_pyr_yn.ses_04A==0 & su_nic_rplc_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_rplc_pyr_yn.ses_00A==0 & su_nic_rplc_pyr_yn.ses_01A==0 & su_nic_rplc_pyr_yn.ses_02A==0 & su_nic_rplc_pyr_yn.ses_03A==0 & su_nic_rplc_pyr_yn.ses_04A==0 & su_nic_rplc_pyr_yn.ses_05A==0 & su_nic_rplc_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_rplc_lft_yn <- dat.su_nic_rplc_pyr_yn %>%
dplyr::select(participant_id,su_nic_rplc_pyr_yn.ses_00A,su_nic_rplc_lft_yn.ses_01A:su_nic_rplc_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_rplc_pyr_yn.ses_00A","su_nic_rplc_lft_yn.ses_01A","su_nic_rplc_lft_yn.ses_02A","su_nic_rplc_lft_yn.ses_03A","su_nic_rplc_lft_yn.ses_04A","su_nic_rplc_lft_yn.ses_05A","su_nic_rplc_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_rplc_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_rplc_pyr_yn.ses_00A="ses_00A",su_nic_rplc_lft_yn.ses_01A="ses_01A",su_nic_rplc_lft_yn.ses_02A="ses_02A",su_nic_rplc_lft_yn.ses_03A="ses_03A",su_nic_rplc_lft_yn.ses_04A="ses_04A",su_nic_rplc_lft_yn.ses_05A="ses_05A",su_nic_rplc_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_rplc_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_rplc_lft_onset <- dat.su_nic_rplc_pyr_yn %>% dplyr::select(participant_id,su_nic_rplc_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_rplc_lft_onset,by="participant_id")
rm(dat.su_nic_rplc_pyr_yn,dat.su_nic_rplc_lft_yn,dat.su_nic_rplc_lft_onset)
# su_nic_chew_pyr_yn
dat.su_nic_chew_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_nic_chew_pyr_yn))
dat.su_nic_chew_pyr_yn <- dat.su_nic_chew_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_chew_lft_yn.ses_01A = if_else(su_nic_chew_pyr_yn.ses_00A==1 | su_nic_chew_pyr_yn.ses_01A==1,1,0,missing=0),
su_nic_chew_lft_yn.ses_02A = if_else(su_nic_chew_pyr_yn.ses_00A==1 | su_nic_chew_pyr_yn.ses_01A==1 | su_nic_chew_pyr_yn.ses_02A==1,1,0,missing=0),
su_nic_chew_lft_yn.ses_03A = if_else(su_nic_chew_pyr_yn.ses_00A==1 | su_nic_chew_pyr_yn.ses_01A==1 | su_nic_chew_pyr_yn.ses_02A==1 | su_nic_chew_pyr_yn.ses_03A==1,1,0,missing=0),
su_nic_chew_lft_yn.ses_04A = if_else(su_nic_chew_pyr_yn.ses_00A==1 | su_nic_chew_pyr_yn.ses_01A==1 | su_nic_chew_pyr_yn.ses_02A==1 | su_nic_chew_pyr_yn.ses_03A==1 | su_nic_chew_pyr_yn.ses_04A==1,1,0,missing=0),
su_nic_chew_lft_yn.ses_05A = if_else(su_nic_chew_pyr_yn.ses_00A==1 | su_nic_chew_pyr_yn.ses_01A==1 | su_nic_chew_pyr_yn.ses_02A==1 | su_nic_chew_pyr_yn.ses_03A==1 | su_nic_chew_pyr_yn.ses_04A==1 | su_nic_chew_pyr_yn.ses_05A==1,1,0,missing=0),
su_nic_chew_lft_yn.ses_06A = if_else(su_nic_chew_pyr_yn.ses_00A==1 | su_nic_chew_pyr_yn.ses_01A==1 | su_nic_chew_pyr_yn.ses_02A==1 | su_nic_chew_pyr_yn.ses_03A==1 | su_nic_chew_pyr_yn.ses_04A==1 | su_nic_chew_pyr_yn.ses_05A==1 | su_nic_chew_pyr_yn.ses_06A==1,1,0,missing=0),
su_nic_chew_lft_onset = if_else(su_nic_chew_pyr_yn.ses_00A==1,"0Y",
if_else(su_nic_chew_pyr_yn.ses_00A==0 & su_nic_chew_pyr_yn.ses_01A==1,"1Y",
if_else(su_nic_chew_pyr_yn.ses_00A==0 & su_nic_chew_pyr_yn.ses_01A==0 & su_nic_chew_pyr_yn.ses_02A==1,"2Y",
if_else(su_nic_chew_pyr_yn.ses_00A==0 & su_nic_chew_pyr_yn.ses_01A==0 & su_nic_chew_pyr_yn.ses_02A==0 & su_nic_chew_pyr_yn.ses_03A==1,"3Y",
if_else(su_nic_chew_pyr_yn.ses_00A==0 & su_nic_chew_pyr_yn.ses_01A==0 & su_nic_chew_pyr_yn.ses_02A==0 & su_nic_chew_pyr_yn.ses_03A==0 & su_nic_chew_pyr_yn.ses_04A==1,"4Y",
if_else(su_nic_chew_pyr_yn.ses_00A==0 & su_nic_chew_pyr_yn.ses_01A==0 & su_nic_chew_pyr_yn.ses_02A==0 & su_nic_chew_pyr_yn.ses_03A==0 & su_nic_chew_pyr_yn.ses_04A==0 & su_nic_chew_pyr_yn.ses_05A==1,"5Y",
if_else(su_nic_chew_pyr_yn.ses_00A==0 & su_nic_chew_pyr_yn.ses_01A==0 & su_nic_chew_pyr_yn.ses_02A==0 & su_nic_chew_pyr_yn.ses_03A==0 & su_nic_chew_pyr_yn.ses_04A==0 & su_nic_chew_pyr_yn.ses_05A==0 & su_nic_chew_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_chew_lft_yn <- dat.su_nic_chew_pyr_yn %>%
dplyr::select(participant_id,su_nic_chew_pyr_yn.ses_00A,su_nic_chew_lft_yn.ses_01A:su_nic_chew_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_chew_pyr_yn.ses_00A","su_nic_chew_lft_yn.ses_01A","su_nic_chew_lft_yn.ses_02A","su_nic_chew_lft_yn.ses_03A","su_nic_chew_lft_yn.ses_04A","su_nic_chew_lft_yn.ses_05A","su_nic_chew_lft_yn.ses_06A"),variable.name="session_id",value.name="su_nic_chew_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_chew_pyr_yn.ses_00A="ses_00A",su_nic_chew_lft_yn.ses_01A="ses_01A",su_nic_chew_lft_yn.ses_02A="ses_02A",su_nic_chew_lft_yn.ses_03A="ses_03A",su_nic_chew_lft_yn.ses_04A="ses_04A",su_nic_chew_lft_yn.ses_05A="ses_05A",su_nic_chew_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_chew_lft_yn,by=c("participant_id","session_id"))
dat.su_nic_chew_lft_onset <- dat.su_nic_chew_pyr_yn %>% dplyr::select(participant_id,su_nic_chew_lft_onset)
dat <- dplyr::left_join(dat,dat.su_nic_chew_lft_onset,by="participant_id")
rm(dat.su_nic_chew_pyr_yn,dat.su_nic_chew_lft_yn,dat.su_nic_chew_lft_onset)
# su_flav_vape_pyr_yn
dat.su_flav_vape_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_flav_vape_pyr_yn))
dat.su_flav_vape_pyr_yn <- dat.su_flav_vape_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_flav_vape_lft_yn.ses_01A = if_else(su_flav_vape_pyr_yn.ses_00A==1 | su_flav_vape_pyr_yn.ses_01A==1,1,0,missing=0),
su_flav_vape_lft_yn.ses_02A = if_else(su_flav_vape_pyr_yn.ses_00A==1 | su_flav_vape_pyr_yn.ses_01A==1 | su_flav_vape_pyr_yn.ses_02A==1,1,0,missing=0),
su_flav_vape_lft_yn.ses_03A = if_else(su_flav_vape_pyr_yn.ses_00A==1 | su_flav_vape_pyr_yn.ses_01A==1 | su_flav_vape_pyr_yn.ses_02A==1 | su_flav_vape_pyr_yn.ses_03A==1,1,0,missing=0),
su_flav_vape_lft_yn.ses_04A = if_else(su_flav_vape_pyr_yn.ses_00A==1 | su_flav_vape_pyr_yn.ses_01A==1 | su_flav_vape_pyr_yn.ses_02A==1 | su_flav_vape_pyr_yn.ses_03A==1 | su_flav_vape_pyr_yn.ses_04A==1,1,0,missing=0),
su_flav_vape_lft_yn.ses_05A = if_else(su_flav_vape_pyr_yn.ses_00A==1 | su_flav_vape_pyr_yn.ses_01A==1 | su_flav_vape_pyr_yn.ses_02A==1 | su_flav_vape_pyr_yn.ses_03A==1 | su_flav_vape_pyr_yn.ses_04A==1 | su_flav_vape_pyr_yn.ses_05A==1,1,0,missing=0),
su_flav_vape_lft_yn.ses_06A = if_else(su_flav_vape_pyr_yn.ses_00A==1 | su_flav_vape_pyr_yn.ses_01A==1 | su_flav_vape_pyr_yn.ses_02A==1 | su_flav_vape_pyr_yn.ses_03A==1 | su_flav_vape_pyr_yn.ses_04A==1 | su_flav_vape_pyr_yn.ses_05A==1 | su_flav_vape_pyr_yn.ses_06A==1,1,0,missing=0),
su_flav_vape_lft_onset = if_else(su_flav_vape_pyr_yn.ses_00A==1,"0Y",
if_else(su_flav_vape_pyr_yn.ses_00A==0 & su_flav_vape_pyr_yn.ses_01A==1,"1Y",
if_else(su_flav_vape_pyr_yn.ses_00A==0 & su_flav_vape_pyr_yn.ses_01A==0 & su_flav_vape_pyr_yn.ses_02A==1,"2Y",
if_else(su_flav_vape_pyr_yn.ses_00A==0 & su_flav_vape_pyr_yn.ses_01A==0 & su_flav_vape_pyr_yn.ses_02A==0 & su_flav_vape_pyr_yn.ses_03A==1,"3Y",
if_else(su_flav_vape_pyr_yn.ses_00A==0 & su_flav_vape_pyr_yn.ses_01A==0 & su_flav_vape_pyr_yn.ses_02A==0 & su_flav_vape_pyr_yn.ses_03A==0 & su_flav_vape_pyr_yn.ses_04A==1,"4Y",
if_else(su_flav_vape_pyr_yn.ses_00A==0 & su_flav_vape_pyr_yn.ses_01A==0 & su_flav_vape_pyr_yn.ses_02A==0 & su_flav_vape_pyr_yn.ses_03A==0 & su_flav_vape_pyr_yn.ses_04A==0 & su_flav_vape_pyr_yn.ses_05A==1,"5Y",
if_else(su_flav_vape_pyr_yn.ses_00A==0 & su_flav_vape_pyr_yn.ses_01A==0 & su_flav_vape_pyr_yn.ses_02A==0 & su_flav_vape_pyr_yn.ses_03A==0 & su_flav_vape_pyr_yn.ses_04A==0 & su_flav_vape_pyr_yn.ses_05A==0 & su_flav_vape_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_flav_vape_lft_yn <- dat.su_flav_vape_pyr_yn %>%
dplyr::select(participant_id,su_flav_vape_pyr_yn.ses_00A,su_flav_vape_lft_yn.ses_01A:su_flav_vape_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_flav_vape_pyr_yn.ses_00A","su_flav_vape_lft_yn.ses_01A","su_flav_vape_lft_yn.ses_02A","su_flav_vape_lft_yn.ses_03A","su_flav_vape_lft_yn.ses_04A","su_flav_vape_lft_yn.ses_05A","su_flav_vape_lft_yn.ses_06A"),variable.name="session_id",value.name="su_flav_vape_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_flav_vape_pyr_yn.ses_00A="ses_00A",su_flav_vape_lft_yn.ses_01A="ses_01A",su_flav_vape_lft_yn.ses_02A="ses_02A",su_flav_vape_lft_yn.ses_03A="ses_03A",su_flav_vape_lft_yn.ses_04A="ses_04A",su_flav_vape_lft_yn.ses_05A="ses_05A",su_flav_vape_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_flav_vape_lft_yn,by=c("participant_id","session_id"))
dat.su_flav_vape_lft_onset <- dat.su_flav_vape_pyr_yn %>% dplyr::select(participant_id,su_flav_vape_lft_onset)
dat <- dplyr::left_join(dat,dat.su_flav_vape_lft_onset,by="participant_id")
rm(dat.su_flav_vape_pyr_yn,dat.su_flav_vape_lft_yn,dat.su_flav_vape_lft_onset)
# su_mj_smoke_pyr_yn
dat.su_mj_smoke_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_smoke_pyr_yn))
dat.su_mj_smoke_pyr_yn <- dat.su_mj_smoke_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_smoke_lft_yn.ses_01A = if_else(su_mj_smoke_pyr_yn.ses_00A==1 | su_mj_smoke_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_smoke_lft_yn.ses_02A = if_else(su_mj_smoke_pyr_yn.ses_00A==1 | su_mj_smoke_pyr_yn.ses_01A==1 | su_mj_smoke_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_smoke_lft_yn.ses_03A = if_else(su_mj_smoke_pyr_yn.ses_00A==1 | su_mj_smoke_pyr_yn.ses_01A==1 | su_mj_smoke_pyr_yn.ses_02A==1 | su_mj_smoke_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_smoke_lft_yn.ses_04A = if_else(su_mj_smoke_pyr_yn.ses_00A==1 | su_mj_smoke_pyr_yn.ses_01A==1 | su_mj_smoke_pyr_yn.ses_02A==1 | su_mj_smoke_pyr_yn.ses_03A==1 | su_mj_smoke_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_smoke_lft_yn.ses_05A = if_else(su_mj_smoke_pyr_yn.ses_00A==1 | su_mj_smoke_pyr_yn.ses_01A==1 | su_mj_smoke_pyr_yn.ses_02A==1 | su_mj_smoke_pyr_yn.ses_03A==1 | su_mj_smoke_pyr_yn.ses_04A==1 | su_mj_smoke_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_smoke_lft_yn.ses_06A = if_else(su_mj_smoke_pyr_yn.ses_00A==1 | su_mj_smoke_pyr_yn.ses_01A==1 | su_mj_smoke_pyr_yn.ses_02A==1 | su_mj_smoke_pyr_yn.ses_03A==1 | su_mj_smoke_pyr_yn.ses_04A==1 | su_mj_smoke_pyr_yn.ses_05A==1 | su_mj_smoke_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_smoke_lft_onset = if_else(su_mj_smoke_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_smoke_pyr_yn.ses_00A==0 & su_mj_smoke_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_smoke_pyr_yn.ses_00A==0 & su_mj_smoke_pyr_yn.ses_01A==0 & su_mj_smoke_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_smoke_pyr_yn.ses_00A==0 & su_mj_smoke_pyr_yn.ses_01A==0 & su_mj_smoke_pyr_yn.ses_02A==0 & su_mj_smoke_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_smoke_pyr_yn.ses_00A==0 & su_mj_smoke_pyr_yn.ses_01A==0 & su_mj_smoke_pyr_yn.ses_02A==0 & su_mj_smoke_pyr_yn.ses_03A==0 & su_mj_smoke_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_smoke_pyr_yn.ses_00A==0 & su_mj_smoke_pyr_yn.ses_01A==0 & su_mj_smoke_pyr_yn.ses_02A==0 & su_mj_smoke_pyr_yn.ses_03A==0 & su_mj_smoke_pyr_yn.ses_04A==0 & su_mj_smoke_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_smoke_pyr_yn.ses_00A==0 & su_mj_smoke_pyr_yn.ses_01A==0 & su_mj_smoke_pyr_yn.ses_02A==0 & su_mj_smoke_pyr_yn.ses_03A==0 & su_mj_smoke_pyr_yn.ses_04A==0 & su_mj_smoke_pyr_yn.ses_05A==0 & su_mj_smoke_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_smoke_lft_yn <- dat.su_mj_smoke_pyr_yn %>%
dplyr::select(participant_id,su_mj_smoke_pyr_yn.ses_00A,su_mj_smoke_lft_yn.ses_01A:su_mj_smoke_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_smoke_pyr_yn.ses_00A","su_mj_smoke_lft_yn.ses_01A","su_mj_smoke_lft_yn.ses_02A","su_mj_smoke_lft_yn.ses_03A","su_mj_smoke_lft_yn.ses_04A","su_mj_smoke_lft_yn.ses_05A","su_mj_smoke_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_smoke_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_smoke_pyr_yn.ses_00A="ses_00A",su_mj_smoke_lft_yn.ses_01A="ses_01A",su_mj_smoke_lft_yn.ses_02A="ses_02A",su_mj_smoke_lft_yn.ses_03A="ses_03A",su_mj_smoke_lft_yn.ses_04A="ses_04A",su_mj_smoke_lft_yn.ses_05A="ses_05A",su_mj_smoke_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_smoke_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_smoke_lft_onset <- dat.su_mj_smoke_pyr_yn %>% dplyr::select(participant_id,su_mj_smoke_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_smoke_lft_onset,by="participant_id")
rm(dat.su_mj_smoke_pyr_yn,dat.su_mj_smoke_lft_yn,dat.su_mj_smoke_lft_onset)
# su_mj_edbl_pyr_yn
dat.su_mj_edbl_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_edbl_pyr_yn))
dat.su_mj_edbl_pyr_yn <- dat.su_mj_edbl_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_edbl_lft_yn.ses_01A = if_else(su_mj_edbl_pyr_yn.ses_00A==1 | su_mj_edbl_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_edbl_lft_yn.ses_02A = if_else(su_mj_edbl_pyr_yn.ses_00A==1 | su_mj_edbl_pyr_yn.ses_01A==1 | su_mj_edbl_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_edbl_lft_yn.ses_03A = if_else(su_mj_edbl_pyr_yn.ses_00A==1 | su_mj_edbl_pyr_yn.ses_01A==1 | su_mj_edbl_pyr_yn.ses_02A==1 | su_mj_edbl_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_edbl_lft_yn.ses_04A = if_else(su_mj_edbl_pyr_yn.ses_00A==1 | su_mj_edbl_pyr_yn.ses_01A==1 | su_mj_edbl_pyr_yn.ses_02A==1 | su_mj_edbl_pyr_yn.ses_03A==1 | su_mj_edbl_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_edbl_lft_yn.ses_05A = if_else(su_mj_edbl_pyr_yn.ses_00A==1 | su_mj_edbl_pyr_yn.ses_01A==1 | su_mj_edbl_pyr_yn.ses_02A==1 | su_mj_edbl_pyr_yn.ses_03A==1 | su_mj_edbl_pyr_yn.ses_04A==1 | su_mj_edbl_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_edbl_lft_yn.ses_06A = if_else(su_mj_edbl_pyr_yn.ses_00A==1 | su_mj_edbl_pyr_yn.ses_01A==1 | su_mj_edbl_pyr_yn.ses_02A==1 | su_mj_edbl_pyr_yn.ses_03A==1 | su_mj_edbl_pyr_yn.ses_04A==1 | su_mj_edbl_pyr_yn.ses_05A==1 | su_mj_edbl_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_edbl_lft_onset = if_else(su_mj_edbl_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_edbl_pyr_yn.ses_00A==0 & su_mj_edbl_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_edbl_pyr_yn.ses_00A==0 & su_mj_edbl_pyr_yn.ses_01A==0 & su_mj_edbl_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_edbl_pyr_yn.ses_00A==0 & su_mj_edbl_pyr_yn.ses_01A==0 & su_mj_edbl_pyr_yn.ses_02A==0 & su_mj_edbl_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_edbl_pyr_yn.ses_00A==0 & su_mj_edbl_pyr_yn.ses_01A==0 & su_mj_edbl_pyr_yn.ses_02A==0 & su_mj_edbl_pyr_yn.ses_03A==0 & su_mj_edbl_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_edbl_pyr_yn.ses_00A==0 & su_mj_edbl_pyr_yn.ses_01A==0 & su_mj_edbl_pyr_yn.ses_02A==0 & su_mj_edbl_pyr_yn.ses_03A==0 & su_mj_edbl_pyr_yn.ses_04A==0 & su_mj_edbl_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_edbl_pyr_yn.ses_00A==0 & su_mj_edbl_pyr_yn.ses_01A==0 & su_mj_edbl_pyr_yn.ses_02A==0 & su_mj_edbl_pyr_yn.ses_03A==0 & su_mj_edbl_pyr_yn.ses_04A==0 & su_mj_edbl_pyr_yn.ses_05A==0 & su_mj_edbl_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_edbl_lft_yn <- dat.su_mj_edbl_pyr_yn %>%
dplyr::select(participant_id,su_mj_edbl_pyr_yn.ses_00A,su_mj_edbl_lft_yn.ses_01A:su_mj_edbl_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_edbl_pyr_yn.ses_00A","su_mj_edbl_lft_yn.ses_01A","su_mj_edbl_lft_yn.ses_02A","su_mj_edbl_lft_yn.ses_03A","su_mj_edbl_lft_yn.ses_04A","su_mj_edbl_lft_yn.ses_05A","su_mj_edbl_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_edbl_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_edbl_pyr_yn.ses_00A="ses_00A",su_mj_edbl_lft_yn.ses_01A="ses_01A",su_mj_edbl_lft_yn.ses_02A="ses_02A",su_mj_edbl_lft_yn.ses_03A="ses_03A",su_mj_edbl_lft_yn.ses_04A="ses_04A",su_mj_edbl_lft_yn.ses_05A="ses_05A",su_mj_edbl_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_edbl_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_edbl_lft_onset <- dat.su_mj_edbl_pyr_yn %>% dplyr::select(participant_id,su_mj_edbl_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_edbl_lft_onset,by="participant_id")
rm(dat.su_mj_edbl_pyr_yn,dat.su_mj_edbl_lft_yn,dat.su_mj_edbl_lft_onset)
# su_mj_drink_pyr_yn
dat.su_mj_drink_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_drink_pyr_yn))
dat.su_mj_drink_pyr_yn <- dat.su_mj_drink_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_drink_lft_yn.ses_01A = if_else(su_mj_drink_pyr_yn.ses_00A==1 | su_mj_drink_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_drink_lft_yn.ses_02A = if_else(su_mj_drink_pyr_yn.ses_00A==1 | su_mj_drink_pyr_yn.ses_01A==1 | su_mj_drink_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_drink_lft_yn.ses_03A = if_else(su_mj_drink_pyr_yn.ses_00A==1 | su_mj_drink_pyr_yn.ses_01A==1 | su_mj_drink_pyr_yn.ses_02A==1 | su_mj_drink_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_drink_lft_yn.ses_04A = if_else(su_mj_drink_pyr_yn.ses_00A==1 | su_mj_drink_pyr_yn.ses_01A==1 | su_mj_drink_pyr_yn.ses_02A==1 | su_mj_drink_pyr_yn.ses_03A==1 | su_mj_drink_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_drink_lft_yn.ses_05A = if_else(su_mj_drink_pyr_yn.ses_00A==1 | su_mj_drink_pyr_yn.ses_01A==1 | su_mj_drink_pyr_yn.ses_02A==1 | su_mj_drink_pyr_yn.ses_03A==1 | su_mj_drink_pyr_yn.ses_04A==1 | su_mj_drink_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_drink_lft_yn.ses_06A = if_else(su_mj_drink_pyr_yn.ses_00A==1 | su_mj_drink_pyr_yn.ses_01A==1 | su_mj_drink_pyr_yn.ses_02A==1 | su_mj_drink_pyr_yn.ses_03A==1 | su_mj_drink_pyr_yn.ses_04A==1 | su_mj_drink_pyr_yn.ses_05A==1 | su_mj_drink_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_drink_lft_onset = if_else(su_mj_drink_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_drink_pyr_yn.ses_00A==0 & su_mj_drink_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_drink_pyr_yn.ses_00A==0 & su_mj_drink_pyr_yn.ses_01A==0 & su_mj_drink_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_drink_pyr_yn.ses_00A==0 & su_mj_drink_pyr_yn.ses_01A==0 & su_mj_drink_pyr_yn.ses_02A==0 & su_mj_drink_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_drink_pyr_yn.ses_00A==0 & su_mj_drink_pyr_yn.ses_01A==0 & su_mj_drink_pyr_yn.ses_02A==0 & su_mj_drink_pyr_yn.ses_03A==0 & su_mj_drink_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_drink_pyr_yn.ses_00A==0 & su_mj_drink_pyr_yn.ses_01A==0 & su_mj_drink_pyr_yn.ses_02A==0 & su_mj_drink_pyr_yn.ses_03A==0 & su_mj_drink_pyr_yn.ses_04A==0 & su_mj_drink_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_drink_pyr_yn.ses_00A==0 & su_mj_drink_pyr_yn.ses_01A==0 & su_mj_drink_pyr_yn.ses_02A==0 & su_mj_drink_pyr_yn.ses_03A==0 & su_mj_drink_pyr_yn.ses_04A==0 & su_mj_drink_pyr_yn.ses_05A==0 & su_mj_drink_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_drink_lft_yn <- dat.su_mj_drink_pyr_yn %>%
dplyr::select(participant_id,su_mj_drink_pyr_yn.ses_00A,su_mj_drink_lft_yn.ses_01A:su_mj_drink_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_drink_pyr_yn.ses_00A","su_mj_drink_lft_yn.ses_01A","su_mj_drink_lft_yn.ses_02A","su_mj_drink_lft_yn.ses_03A","su_mj_drink_lft_yn.ses_04A","su_mj_drink_lft_yn.ses_05A","su_mj_drink_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_drink_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_drink_pyr_yn.ses_00A="ses_00A",su_mj_drink_lft_yn.ses_01A="ses_01A",su_mj_drink_lft_yn.ses_02A="ses_02A",su_mj_drink_lft_yn.ses_03A="ses_03A",su_mj_drink_lft_yn.ses_04A="ses_04A",su_mj_drink_lft_yn.ses_05A="ses_05A",su_mj_drink_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_drink_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_drink_lft_onset <- dat.su_mj_drink_pyr_yn %>% dplyr::select(participant_id,su_mj_drink_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_drink_lft_onset,by="participant_id")
rm(dat.su_mj_drink_pyr_yn,dat.su_mj_drink_lft_yn,dat.su_mj_drink_lft_onset)
# su_mj_conc_pyr_yn
dat.su_mj_conc_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_conc_pyr_yn))
dat.su_mj_conc_pyr_yn <- dat.su_mj_conc_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_conc_lft_yn.ses_01A = if_else(su_mj_conc_pyr_yn.ses_00A==1 | su_mj_conc_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_conc_lft_yn.ses_02A = if_else(su_mj_conc_pyr_yn.ses_00A==1 | su_mj_conc_pyr_yn.ses_01A==1 | su_mj_conc_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_conc_lft_yn.ses_03A = if_else(su_mj_conc_pyr_yn.ses_00A==1 | su_mj_conc_pyr_yn.ses_01A==1 | su_mj_conc_pyr_yn.ses_02A==1 | su_mj_conc_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_conc_lft_yn.ses_04A = if_else(su_mj_conc_pyr_yn.ses_00A==1 | su_mj_conc_pyr_yn.ses_01A==1 | su_mj_conc_pyr_yn.ses_02A==1 | su_mj_conc_pyr_yn.ses_03A==1 | su_mj_conc_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_conc_lft_yn.ses_05A = if_else(su_mj_conc_pyr_yn.ses_00A==1 | su_mj_conc_pyr_yn.ses_01A==1 | su_mj_conc_pyr_yn.ses_02A==1 | su_mj_conc_pyr_yn.ses_03A==1 | su_mj_conc_pyr_yn.ses_04A==1 | su_mj_conc_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_conc_lft_yn.ses_06A = if_else(su_mj_conc_pyr_yn.ses_00A==1 | su_mj_conc_pyr_yn.ses_01A==1 | su_mj_conc_pyr_yn.ses_02A==1 | su_mj_conc_pyr_yn.ses_03A==1 | su_mj_conc_pyr_yn.ses_04A==1 | su_mj_conc_pyr_yn.ses_05A==1 | su_mj_conc_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_conc_lft_onset = if_else(su_mj_conc_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_conc_pyr_yn.ses_00A==0 & su_mj_conc_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_conc_pyr_yn.ses_00A==0 & su_mj_conc_pyr_yn.ses_01A==0 & su_mj_conc_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_conc_pyr_yn.ses_00A==0 & su_mj_conc_pyr_yn.ses_01A==0 & su_mj_conc_pyr_yn.ses_02A==0 & su_mj_conc_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_conc_pyr_yn.ses_00A==0 & su_mj_conc_pyr_yn.ses_01A==0 & su_mj_conc_pyr_yn.ses_02A==0 & su_mj_conc_pyr_yn.ses_03A==0 & su_mj_conc_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_conc_pyr_yn.ses_00A==0 & su_mj_conc_pyr_yn.ses_01A==0 & su_mj_conc_pyr_yn.ses_02A==0 & su_mj_conc_pyr_yn.ses_03A==0 & su_mj_conc_pyr_yn.ses_04A==0 & su_mj_conc_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_conc_pyr_yn.ses_00A==0 & su_mj_conc_pyr_yn.ses_01A==0 & su_mj_conc_pyr_yn.ses_02A==0 & su_mj_conc_pyr_yn.ses_03A==0 & su_mj_conc_pyr_yn.ses_04A==0 & su_mj_conc_pyr_yn.ses_05A==0 & su_mj_conc_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_conc_lft_yn <- dat.su_mj_conc_pyr_yn %>%
dplyr::select(participant_id,su_mj_conc_pyr_yn.ses_00A,su_mj_conc_lft_yn.ses_01A:su_mj_conc_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_conc_pyr_yn.ses_00A","su_mj_conc_lft_yn.ses_01A","su_mj_conc_lft_yn.ses_02A","su_mj_conc_lft_yn.ses_03A","su_mj_conc_lft_yn.ses_04A","su_mj_conc_lft_yn.ses_05A","su_mj_conc_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_conc_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_conc_pyr_yn.ses_00A="ses_00A",su_mj_conc_lft_yn.ses_01A="ses_01A",su_mj_conc_lft_yn.ses_02A="ses_02A",su_mj_conc_lft_yn.ses_03A="ses_03A",su_mj_conc_lft_yn.ses_04A="ses_04A",su_mj_conc_lft_yn.ses_05A="ses_05A",su_mj_conc_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_conc_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_conc_lft_onset <- dat.su_mj_conc_pyr_yn %>% dplyr::select(participant_id,su_mj_conc_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_conc_lft_onset,by="participant_id")
rm(dat.su_mj_conc_pyr_yn,dat.su_mj_conc_lft_yn,dat.su_mj_conc_lft_onset)
# su_mj_tinc_pyr_yn
dat.su_mj_tinc_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_tinc_pyr_yn))
dat.su_mj_tinc_pyr_yn <- dat.su_mj_tinc_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_tinc_lft_yn.ses_01A = if_else(su_mj_tinc_pyr_yn.ses_00A==1 | su_mj_tinc_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_tinc_lft_yn.ses_02A = if_else(su_mj_tinc_pyr_yn.ses_00A==1 | su_mj_tinc_pyr_yn.ses_01A==1 | su_mj_tinc_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_tinc_lft_yn.ses_03A = if_else(su_mj_tinc_pyr_yn.ses_00A==1 | su_mj_tinc_pyr_yn.ses_01A==1 | su_mj_tinc_pyr_yn.ses_02A==1 | su_mj_tinc_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_tinc_lft_yn.ses_04A = if_else(su_mj_tinc_pyr_yn.ses_00A==1 | su_mj_tinc_pyr_yn.ses_01A==1 | su_mj_tinc_pyr_yn.ses_02A==1 | su_mj_tinc_pyr_yn.ses_03A==1 | su_mj_tinc_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_tinc_lft_yn.ses_05A = if_else(su_mj_tinc_pyr_yn.ses_00A==1 | su_mj_tinc_pyr_yn.ses_01A==1 | su_mj_tinc_pyr_yn.ses_02A==1 | su_mj_tinc_pyr_yn.ses_03A==1 | su_mj_tinc_pyr_yn.ses_04A==1 | su_mj_tinc_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_tinc_lft_yn.ses_06A = if_else(su_mj_tinc_pyr_yn.ses_00A==1 | su_mj_tinc_pyr_yn.ses_01A==1 | su_mj_tinc_pyr_yn.ses_02A==1 | su_mj_tinc_pyr_yn.ses_03A==1 | su_mj_tinc_pyr_yn.ses_04A==1 | su_mj_tinc_pyr_yn.ses_05A==1 | su_mj_tinc_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_tinc_lft_onset = if_else(su_mj_tinc_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_tinc_pyr_yn.ses_00A==0 & su_mj_tinc_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_tinc_pyr_yn.ses_00A==0 & su_mj_tinc_pyr_yn.ses_01A==0 & su_mj_tinc_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_tinc_pyr_yn.ses_00A==0 & su_mj_tinc_pyr_yn.ses_01A==0 & su_mj_tinc_pyr_yn.ses_02A==0 & su_mj_tinc_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_tinc_pyr_yn.ses_00A==0 & su_mj_tinc_pyr_yn.ses_01A==0 & su_mj_tinc_pyr_yn.ses_02A==0 & su_mj_tinc_pyr_yn.ses_03A==0 & su_mj_tinc_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_tinc_pyr_yn.ses_00A==0 & su_mj_tinc_pyr_yn.ses_01A==0 & su_mj_tinc_pyr_yn.ses_02A==0 & su_mj_tinc_pyr_yn.ses_03A==0 & su_mj_tinc_pyr_yn.ses_04A==0 & su_mj_tinc_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_tinc_pyr_yn.ses_00A==0 & su_mj_tinc_pyr_yn.ses_01A==0 & su_mj_tinc_pyr_yn.ses_02A==0 & su_mj_tinc_pyr_yn.ses_03A==0 & su_mj_tinc_pyr_yn.ses_04A==0 & su_mj_tinc_pyr_yn.ses_05A==0 & su_mj_tinc_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_tinc_lft_yn <- dat.su_mj_tinc_pyr_yn %>%
dplyr::select(participant_id,su_mj_tinc_pyr_yn.ses_00A,su_mj_tinc_lft_yn.ses_01A:su_mj_tinc_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_tinc_pyr_yn.ses_00A","su_mj_tinc_lft_yn.ses_01A","su_mj_tinc_lft_yn.ses_02A","su_mj_tinc_lft_yn.ses_03A","su_mj_tinc_lft_yn.ses_04A","su_mj_tinc_lft_yn.ses_05A","su_mj_tinc_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_tinc_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_tinc_pyr_yn.ses_00A="ses_00A",su_mj_tinc_lft_yn.ses_01A="ses_01A",su_mj_tinc_lft_yn.ses_02A="ses_02A",su_mj_tinc_lft_yn.ses_03A="ses_03A",su_mj_tinc_lft_yn.ses_04A="ses_04A",su_mj_tinc_lft_yn.ses_05A="ses_05A",su_mj_tinc_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_tinc_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_tinc_lft_onset <- dat.su_mj_tinc_pyr_yn %>% dplyr::select(participant_id,su_mj_tinc_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_tinc_lft_onset,by="participant_id")
rm(dat.su_mj_tinc_pyr_yn,dat.su_mj_tinc_lft_yn,dat.su_mj_tinc_lft_onset)
# su_mj_blunt_pyr_yn
dat.su_mj_blunt_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_blunt_pyr_yn))
dat.su_mj_blunt_pyr_yn <- dat.su_mj_blunt_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_blunt_lft_yn.ses_01A = if_else(su_mj_blunt_pyr_yn.ses_00A==1 | su_mj_blunt_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_blunt_lft_yn.ses_02A = if_else(su_mj_blunt_pyr_yn.ses_00A==1 | su_mj_blunt_pyr_yn.ses_01A==1 | su_mj_blunt_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_blunt_lft_yn.ses_03A = if_else(su_mj_blunt_pyr_yn.ses_00A==1 | su_mj_blunt_pyr_yn.ses_01A==1 | su_mj_blunt_pyr_yn.ses_02A==1 | su_mj_blunt_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_blunt_lft_yn.ses_04A = if_else(su_mj_blunt_pyr_yn.ses_00A==1 | su_mj_blunt_pyr_yn.ses_01A==1 | su_mj_blunt_pyr_yn.ses_02A==1 | su_mj_blunt_pyr_yn.ses_03A==1 | su_mj_blunt_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_blunt_lft_yn.ses_05A = if_else(su_mj_blunt_pyr_yn.ses_00A==1 | su_mj_blunt_pyr_yn.ses_01A==1 | su_mj_blunt_pyr_yn.ses_02A==1 | su_mj_blunt_pyr_yn.ses_03A==1 | su_mj_blunt_pyr_yn.ses_04A==1 | su_mj_blunt_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_blunt_lft_yn.ses_06A = if_else(su_mj_blunt_pyr_yn.ses_00A==1 | su_mj_blunt_pyr_yn.ses_01A==1 | su_mj_blunt_pyr_yn.ses_02A==1 | su_mj_blunt_pyr_yn.ses_03A==1 | su_mj_blunt_pyr_yn.ses_04A==1 | su_mj_blunt_pyr_yn.ses_05A==1 | su_mj_blunt_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_blunt_lft_onset = if_else(su_mj_blunt_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_blunt_pyr_yn.ses_00A==0 & su_mj_blunt_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_blunt_pyr_yn.ses_00A==0 & su_mj_blunt_pyr_yn.ses_01A==0 & su_mj_blunt_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_blunt_pyr_yn.ses_00A==0 & su_mj_blunt_pyr_yn.ses_01A==0 & su_mj_blunt_pyr_yn.ses_02A==0 & su_mj_blunt_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_blunt_pyr_yn.ses_00A==0 & su_mj_blunt_pyr_yn.ses_01A==0 & su_mj_blunt_pyr_yn.ses_02A==0 & su_mj_blunt_pyr_yn.ses_03A==0 & su_mj_blunt_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_blunt_pyr_yn.ses_00A==0 & su_mj_blunt_pyr_yn.ses_01A==0 & su_mj_blunt_pyr_yn.ses_02A==0 & su_mj_blunt_pyr_yn.ses_03A==0 & su_mj_blunt_pyr_yn.ses_04A==0 & su_mj_blunt_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_blunt_pyr_yn.ses_00A==0 & su_mj_blunt_pyr_yn.ses_01A==0 & su_mj_blunt_pyr_yn.ses_02A==0 & su_mj_blunt_pyr_yn.ses_03A==0 & su_mj_blunt_pyr_yn.ses_04A==0 & su_mj_blunt_pyr_yn.ses_05A==0 & su_mj_blunt_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_blunt_lft_yn <- dat.su_mj_blunt_pyr_yn %>%
dplyr::select(participant_id,su_mj_blunt_pyr_yn.ses_00A,su_mj_blunt_lft_yn.ses_01A:su_mj_blunt_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_blunt_pyr_yn.ses_00A","su_mj_blunt_lft_yn.ses_01A","su_mj_blunt_lft_yn.ses_02A","su_mj_blunt_lft_yn.ses_03A","su_mj_blunt_lft_yn.ses_04A","su_mj_blunt_lft_yn.ses_05A","su_mj_blunt_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_blunt_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_blunt_pyr_yn.ses_00A="ses_00A",su_mj_blunt_lft_yn.ses_01A="ses_01A",su_mj_blunt_lft_yn.ses_02A="ses_02A",su_mj_blunt_lft_yn.ses_03A="ses_03A",su_mj_blunt_lft_yn.ses_04A="ses_04A",su_mj_blunt_lft_yn.ses_05A="ses_05A",su_mj_blunt_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_blunt_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_blunt_lft_onset <- dat.su_mj_blunt_pyr_yn %>% dplyr::select(participant_id,su_mj_blunt_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_blunt_lft_onset,by="participant_id")
rm(dat.su_mj_blunt_pyr_yn,dat.su_mj_blunt_lft_yn,dat.su_mj_blunt_lft_onset)
# su_mj_vape_flwr_pyr_yn
dat.su_mj_vape_flwr_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_vape_flwr_pyr_yn))
dat.su_mj_vape_flwr_pyr_yn <- dat.su_mj_vape_flwr_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_vape_flwr_lft_yn.ses_01A = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1 | su_mj_vape_flwr_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_vape_flwr_lft_yn.ses_02A = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1 | su_mj_vape_flwr_pyr_yn.ses_01A==1 | su_mj_vape_flwr_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_vape_flwr_lft_yn.ses_03A = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1 | su_mj_vape_flwr_pyr_yn.ses_01A==1 | su_mj_vape_flwr_pyr_yn.ses_02A==1 | su_mj_vape_flwr_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_vape_flwr_lft_yn.ses_04A = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1 | su_mj_vape_flwr_pyr_yn.ses_01A==1 | su_mj_vape_flwr_pyr_yn.ses_02A==1 | su_mj_vape_flwr_pyr_yn.ses_03A==1 | su_mj_vape_flwr_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_vape_flwr_lft_yn.ses_05A = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1 | su_mj_vape_flwr_pyr_yn.ses_01A==1 | su_mj_vape_flwr_pyr_yn.ses_02A==1 | su_mj_vape_flwr_pyr_yn.ses_03A==1 | su_mj_vape_flwr_pyr_yn.ses_04A==1 | su_mj_vape_flwr_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_vape_flwr_lft_yn.ses_06A = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1 | su_mj_vape_flwr_pyr_yn.ses_01A==1 | su_mj_vape_flwr_pyr_yn.ses_02A==1 | su_mj_vape_flwr_pyr_yn.ses_03A==1 | su_mj_vape_flwr_pyr_yn.ses_04A==1 | su_mj_vape_flwr_pyr_yn.ses_05A==1 | su_mj_vape_flwr_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_vape_flwr_lft_onset = if_else(su_mj_vape_flwr_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_vape_flwr_pyr_yn.ses_00A==0 & su_mj_vape_flwr_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_vape_flwr_pyr_yn.ses_00A==0 & su_mj_vape_flwr_pyr_yn.ses_01A==0 & su_mj_vape_flwr_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_vape_flwr_pyr_yn.ses_00A==0 & su_mj_vape_flwr_pyr_yn.ses_01A==0 & su_mj_vape_flwr_pyr_yn.ses_02A==0 & su_mj_vape_flwr_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_vape_flwr_pyr_yn.ses_00A==0 & su_mj_vape_flwr_pyr_yn.ses_01A==0 & su_mj_vape_flwr_pyr_yn.ses_02A==0 & su_mj_vape_flwr_pyr_yn.ses_03A==0 & su_mj_vape_flwr_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_vape_flwr_pyr_yn.ses_00A==0 & su_mj_vape_flwr_pyr_yn.ses_01A==0 & su_mj_vape_flwr_pyr_yn.ses_02A==0 & su_mj_vape_flwr_pyr_yn.ses_03A==0 & su_mj_vape_flwr_pyr_yn.ses_04A==0 & su_mj_vape_flwr_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_vape_flwr_pyr_yn.ses_00A==0 & su_mj_vape_flwr_pyr_yn.ses_01A==0 & su_mj_vape_flwr_pyr_yn.ses_02A==0 & su_mj_vape_flwr_pyr_yn.ses_03A==0 & su_mj_vape_flwr_pyr_yn.ses_04A==0 & su_mj_vape_flwr_pyr_yn.ses_05A==0 & su_mj_vape_flwr_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_vape_flwr_lft_yn <- dat.su_mj_vape_flwr_pyr_yn %>%
dplyr::select(participant_id,su_mj_vape_flwr_pyr_yn.ses_00A,su_mj_vape_flwr_lft_yn.ses_01A:su_mj_vape_flwr_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_vape_flwr_pyr_yn.ses_00A","su_mj_vape_flwr_lft_yn.ses_01A","su_mj_vape_flwr_lft_yn.ses_02A","su_mj_vape_flwr_lft_yn.ses_03A","su_mj_vape_flwr_lft_yn.ses_04A","su_mj_vape_flwr_lft_yn.ses_05A","su_mj_vape_flwr_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_vape_flwr_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_vape_flwr_pyr_yn.ses_00A="ses_00A",su_mj_vape_flwr_lft_yn.ses_01A="ses_01A",su_mj_vape_flwr_lft_yn.ses_02A="ses_02A",su_mj_vape_flwr_lft_yn.ses_03A="ses_03A",su_mj_vape_flwr_lft_yn.ses_04A="ses_04A",su_mj_vape_flwr_lft_yn.ses_05A="ses_05A",su_mj_vape_flwr_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_vape_flwr_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_vape_flwr_lft_onset <- dat.su_mj_vape_flwr_pyr_yn %>% dplyr::select(participant_id,su_mj_vape_flwr_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_vape_flwr_lft_onset,by="participant_id")
rm(dat.su_mj_vape_flwr_pyr_yn,dat.su_mj_vape_flwr_lft_yn,dat.su_mj_vape_flwr_lft_onset)
# su_mj_vape_oil_pyr_yn
dat.su_mj_vape_oil_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_mj_vape_oil_pyr_yn))
dat.su_mj_vape_oil_pyr_yn <- dat.su_mj_vape_oil_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_vape_oil_lft_yn.ses_01A = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1 | su_mj_vape_oil_pyr_yn.ses_01A==1,1,0,missing=0),
su_mj_vape_oil_lft_yn.ses_02A = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1 | su_mj_vape_oil_pyr_yn.ses_01A==1 | su_mj_vape_oil_pyr_yn.ses_02A==1,1,0,missing=0),
su_mj_vape_oil_lft_yn.ses_03A = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1 | su_mj_vape_oil_pyr_yn.ses_01A==1 | su_mj_vape_oil_pyr_yn.ses_02A==1 | su_mj_vape_oil_pyr_yn.ses_03A==1,1,0,missing=0),
su_mj_vape_oil_lft_yn.ses_04A = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1 | su_mj_vape_oil_pyr_yn.ses_01A==1 | su_mj_vape_oil_pyr_yn.ses_02A==1 | su_mj_vape_oil_pyr_yn.ses_03A==1 | su_mj_vape_oil_pyr_yn.ses_04A==1,1,0,missing=0),
su_mj_vape_oil_lft_yn.ses_05A = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1 | su_mj_vape_oil_pyr_yn.ses_01A==1 | su_mj_vape_oil_pyr_yn.ses_02A==1 | su_mj_vape_oil_pyr_yn.ses_03A==1 | su_mj_vape_oil_pyr_yn.ses_04A==1 | su_mj_vape_oil_pyr_yn.ses_05A==1,1,0,missing=0),
su_mj_vape_oil_lft_yn.ses_06A = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1 | su_mj_vape_oil_pyr_yn.ses_01A==1 | su_mj_vape_oil_pyr_yn.ses_02A==1 | su_mj_vape_oil_pyr_yn.ses_03A==1 | su_mj_vape_oil_pyr_yn.ses_04A==1 | su_mj_vape_oil_pyr_yn.ses_05A==1 | su_mj_vape_oil_pyr_yn.ses_06A==1,1,0,missing=0),
su_mj_vape_oil_lft_onset = if_else(su_mj_vape_oil_pyr_yn.ses_00A==1,"0Y",
if_else(su_mj_vape_oil_pyr_yn.ses_00A==0 & su_mj_vape_oil_pyr_yn.ses_01A==1,"1Y",
if_else(su_mj_vape_oil_pyr_yn.ses_00A==0 & su_mj_vape_oil_pyr_yn.ses_01A==0 & su_mj_vape_oil_pyr_yn.ses_02A==1,"2Y",
if_else(su_mj_vape_oil_pyr_yn.ses_00A==0 & su_mj_vape_oil_pyr_yn.ses_01A==0 & su_mj_vape_oil_pyr_yn.ses_02A==0 & su_mj_vape_oil_pyr_yn.ses_03A==1,"3Y",
if_else(su_mj_vape_oil_pyr_yn.ses_00A==0 & su_mj_vape_oil_pyr_yn.ses_01A==0 & su_mj_vape_oil_pyr_yn.ses_02A==0 & su_mj_vape_oil_pyr_yn.ses_03A==0 & su_mj_vape_oil_pyr_yn.ses_04A==1,"4Y",
if_else(su_mj_vape_oil_pyr_yn.ses_00A==0 & su_mj_vape_oil_pyr_yn.ses_01A==0 & su_mj_vape_oil_pyr_yn.ses_02A==0 & su_mj_vape_oil_pyr_yn.ses_03A==0 & su_mj_vape_oil_pyr_yn.ses_04A==0 & su_mj_vape_oil_pyr_yn.ses_05A==1,"5Y",
if_else(su_mj_vape_oil_pyr_yn.ses_00A==0 & su_mj_vape_oil_pyr_yn.ses_01A==0 & su_mj_vape_oil_pyr_yn.ses_02A==0 & su_mj_vape_oil_pyr_yn.ses_03A==0 & su_mj_vape_oil_pyr_yn.ses_04A==0 & su_mj_vape_oil_pyr_yn.ses_05A==0 & su_mj_vape_oil_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_vape_oil_lft_yn <- dat.su_mj_vape_oil_pyr_yn %>%
dplyr::select(participant_id,su_mj_vape_oil_pyr_yn.ses_00A,su_mj_vape_oil_lft_yn.ses_01A:su_mj_vape_oil_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_vape_oil_pyr_yn.ses_00A","su_mj_vape_oil_lft_yn.ses_01A","su_mj_vape_oil_lft_yn.ses_02A","su_mj_vape_oil_lft_yn.ses_03A","su_mj_vape_oil_lft_yn.ses_04A","su_mj_vape_oil_lft_yn.ses_05A","su_mj_vape_oil_lft_yn.ses_06A"),variable.name="session_id",value.name="su_mj_vape_oil_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_vape_oil_pyr_yn.ses_00A="ses_00A",su_mj_vape_oil_lft_yn.ses_01A="ses_01A",su_mj_vape_oil_lft_yn.ses_02A="ses_02A",su_mj_vape_oil_lft_yn.ses_03A="ses_03A",su_mj_vape_oil_lft_yn.ses_04A="ses_04A",su_mj_vape_oil_lft_yn.ses_05A="ses_05A",su_mj_vape_oil_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_vape_oil_lft_yn,by=c("participant_id","session_id"))
dat.su_mj_vape_oil_lft_onset <- dat.su_mj_vape_oil_pyr_yn %>% dplyr::select(participant_id,su_mj_vape_oil_lft_onset)
dat <- dplyr::left_join(dat,dat.su_mj_vape_oil_lft_onset,by="participant_id")
rm(dat.su_mj_vape_oil_pyr_yn,dat.su_mj_vape_oil_lft_yn,dat.su_mj_vape_oil_lft_onset)
# su_cbd_pyr_yn
dat.su_cbd_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_cbd_pyr_yn))
dat.su_cbd_pyr_yn <- dat.su_cbd_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_cbd_lft_yn.ses_01A = if_else(su_cbd_pyr_yn.ses_00A==1 | su_cbd_pyr_yn.ses_01A==1,1,0,missing=0),
su_cbd_lft_yn.ses_02A = if_else(su_cbd_pyr_yn.ses_00A==1 | su_cbd_pyr_yn.ses_01A==1 | su_cbd_pyr_yn.ses_02A==1,1,0,missing=0),
su_cbd_lft_yn.ses_03A = if_else(su_cbd_pyr_yn.ses_00A==1 | su_cbd_pyr_yn.ses_01A==1 | su_cbd_pyr_yn.ses_02A==1 | su_cbd_pyr_yn.ses_03A==1,1,0,missing=0),
su_cbd_lft_yn.ses_04A = if_else(su_cbd_pyr_yn.ses_00A==1 | su_cbd_pyr_yn.ses_01A==1 | su_cbd_pyr_yn.ses_02A==1 | su_cbd_pyr_yn.ses_03A==1 | su_cbd_pyr_yn.ses_04A==1,1,0,missing=0),
su_cbd_lft_yn.ses_05A = if_else(su_cbd_pyr_yn.ses_00A==1 | su_cbd_pyr_yn.ses_01A==1 | su_cbd_pyr_yn.ses_02A==1 | su_cbd_pyr_yn.ses_03A==1 | su_cbd_pyr_yn.ses_04A==1 | su_cbd_pyr_yn.ses_05A==1,1,0,missing=0),
su_cbd_lft_yn.ses_06A = if_else(su_cbd_pyr_yn.ses_00A==1 | su_cbd_pyr_yn.ses_01A==1 | su_cbd_pyr_yn.ses_02A==1 | su_cbd_pyr_yn.ses_03A==1 | su_cbd_pyr_yn.ses_04A==1 | su_cbd_pyr_yn.ses_05A==1 | su_cbd_pyr_yn.ses_06A==1,1,0,missing=0),
su_cbd_lft_onset = if_else(su_cbd_pyr_yn.ses_00A==1,"0Y",
if_else(su_cbd_pyr_yn.ses_00A==0 & su_cbd_pyr_yn.ses_01A==1,"1Y",
if_else(su_cbd_pyr_yn.ses_00A==0 & su_cbd_pyr_yn.ses_01A==0 & su_cbd_pyr_yn.ses_02A==1,"2Y",
if_else(su_cbd_pyr_yn.ses_00A==0 & su_cbd_pyr_yn.ses_01A==0 & su_cbd_pyr_yn.ses_02A==0 & su_cbd_pyr_yn.ses_03A==1,"3Y",
if_else(su_cbd_pyr_yn.ses_00A==0 & su_cbd_pyr_yn.ses_01A==0 & su_cbd_pyr_yn.ses_02A==0 & su_cbd_pyr_yn.ses_03A==0 & su_cbd_pyr_yn.ses_04A==1,"4Y",
if_else(su_cbd_pyr_yn.ses_00A==0 & su_cbd_pyr_yn.ses_01A==0 & su_cbd_pyr_yn.ses_02A==0 & su_cbd_pyr_yn.ses_03A==0 & su_cbd_pyr_yn.ses_04A==0 & su_cbd_pyr_yn.ses_05A==1,"5Y",
if_else(su_cbd_pyr_yn.ses_00A==0 & su_cbd_pyr_yn.ses_01A==0 & su_cbd_pyr_yn.ses_02A==0 & su_cbd_pyr_yn.ses_03A==0 & su_cbd_pyr_yn.ses_04A==0 & su_cbd_pyr_yn.ses_05A==0 & su_cbd_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_cbd_lft_yn <- dat.su_cbd_pyr_yn %>%
dplyr::select(participant_id,su_cbd_pyr_yn.ses_00A,su_cbd_lft_yn.ses_01A:su_cbd_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_cbd_pyr_yn.ses_00A","su_cbd_lft_yn.ses_01A","su_cbd_lft_yn.ses_02A","su_cbd_lft_yn.ses_03A","su_cbd_lft_yn.ses_04A","su_cbd_lft_yn.ses_05A","su_cbd_lft_yn.ses_06A"),variable.name="session_id",value.name="su_cbd_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_cbd_pyr_yn.ses_00A="ses_00A",su_cbd_lft_yn.ses_01A="ses_01A",su_cbd_lft_yn.ses_02A="ses_02A",su_cbd_lft_yn.ses_03A="ses_03A",su_cbd_lft_yn.ses_04A="ses_04A",su_cbd_lft_yn.ses_05A="ses_05A",su_cbd_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_cbd_lft_yn,by=c("participant_id","session_id"))
dat.su_cbd_lft_onset <- dat.su_cbd_pyr_yn %>% dplyr::select(participant_id,su_cbd_lft_onset)
dat <- dplyr::left_join(dat,dat.su_cbd_lft_onset,by="participant_id")
rm(dat.su_cbd_pyr_yn,dat.su_cbd_lft_yn,dat.su_cbd_lft_onset)
# su_alc_pyr_yn_incl_ll
dat.su_alc_pyr_yn_incl_ll <- with(dat,data.frame(participant_id, session_id, su_alc_pyr_yn_incl_ll))
dat.su_alc_pyr_yn_incl_ll <- dat.su_alc_pyr_yn_incl_ll %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_alc_lft_yn_incl_ll.ses_01A = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1 | su_alc_pyr_yn_incl_ll.ses_01A==1,1,0,missing=0),
su_alc_lft_yn_incl_ll.ses_02A = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1 | su_alc_pyr_yn_incl_ll.ses_01A==1 | su_alc_pyr_yn_incl_ll.ses_02A==1,1,0,missing=0),
su_alc_lft_yn_incl_ll.ses_03A = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1 | su_alc_pyr_yn_incl_ll.ses_01A==1 | su_alc_pyr_yn_incl_ll.ses_02A==1 | su_alc_pyr_yn_incl_ll.ses_03A==1,1,0,missing=0),
su_alc_lft_yn_incl_ll.ses_04A = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1 | su_alc_pyr_yn_incl_ll.ses_01A==1 | su_alc_pyr_yn_incl_ll.ses_02A==1 | su_alc_pyr_yn_incl_ll.ses_03A==1 | su_alc_pyr_yn_incl_ll.ses_04A==1,1,0,missing=0),
su_alc_lft_yn_incl_ll.ses_05A = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1 | su_alc_pyr_yn_incl_ll.ses_01A==1 | su_alc_pyr_yn_incl_ll.ses_02A==1 | su_alc_pyr_yn_incl_ll.ses_03A==1 | su_alc_pyr_yn_incl_ll.ses_04A==1 | su_alc_pyr_yn_incl_ll.ses_05A==1,1,0,missing=0),
su_alc_lft_yn_incl_ll.ses_06A = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1 | su_alc_pyr_yn_incl_ll.ses_01A==1 | su_alc_pyr_yn_incl_ll.ses_02A==1 | su_alc_pyr_yn_incl_ll.ses_03A==1 | su_alc_pyr_yn_incl_ll.ses_04A==1 | su_alc_pyr_yn_incl_ll.ses_05A==1 | su_alc_pyr_yn_incl_ll.ses_06A==1,1,0,missing=0),
su_alc_lft_onset_incl_ll = if_else(su_alc_pyr_yn_incl_ll.ses_00A==1,"0Y",
if_else(su_alc_pyr_yn_incl_ll.ses_00A==0 & su_alc_pyr_yn_incl_ll.ses_01A==1,"1Y",
if_else(su_alc_pyr_yn_incl_ll.ses_00A==0 & su_alc_pyr_yn_incl_ll.ses_01A==0 & su_alc_pyr_yn_incl_ll.ses_02A==1,"2Y",
if_else(su_alc_pyr_yn_incl_ll.ses_00A==0 & su_alc_pyr_yn_incl_ll.ses_01A==0 & su_alc_pyr_yn_incl_ll.ses_02A==0 & su_alc_pyr_yn_incl_ll.ses_03A==1,"3Y",
if_else(su_alc_pyr_yn_incl_ll.ses_00A==0 & su_alc_pyr_yn_incl_ll.ses_01A==0 & su_alc_pyr_yn_incl_ll.ses_02A==0 & su_alc_pyr_yn_incl_ll.ses_03A==0 & su_alc_pyr_yn_incl_ll.ses_04A==1,"4Y",
if_else(su_alc_pyr_yn_incl_ll.ses_00A==0 & su_alc_pyr_yn_incl_ll.ses_01A==0 & su_alc_pyr_yn_incl_ll.ses_02A==0 & su_alc_pyr_yn_incl_ll.ses_03A==0 & su_alc_pyr_yn_incl_ll.ses_04A==0 & su_alc_pyr_yn_incl_ll.ses_05A==1,"5Y",
if_else(su_alc_pyr_yn_incl_ll.ses_00A==0 & su_alc_pyr_yn_incl_ll.ses_01A==0 & su_alc_pyr_yn_incl_ll.ses_02A==0 & su_alc_pyr_yn_incl_ll.ses_03A==0 & su_alc_pyr_yn_incl_ll.ses_04A==0 & su_alc_pyr_yn_incl_ll.ses_05A==0 & su_alc_pyr_yn_incl_ll.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_alc_lft_yn_incl_ll <- dat.su_alc_pyr_yn_incl_ll %>%
dplyr::select(participant_id,su_alc_pyr_yn_incl_ll.ses_00A,su_alc_lft_yn_incl_ll.ses_01A:su_alc_lft_yn_incl_ll.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_alc_pyr_yn_incl_ll.ses_00A","su_alc_lft_yn_incl_ll.ses_01A","su_alc_lft_yn_incl_ll.ses_02A","su_alc_lft_yn_incl_ll.ses_03A","su_alc_lft_yn_incl_ll.ses_04A","su_alc_lft_yn_incl_ll.ses_05A","su_alc_lft_yn_incl_ll.ses_06A"),variable.name="session_id",value.name="su_alc_lft_yn_incl_ll") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_alc_pyr_yn_incl_ll.ses_00A="ses_00A",su_alc_lft_yn_incl_ll.ses_01A="ses_01A",su_alc_lft_yn_incl_ll.ses_02A="ses_02A",su_alc_lft_yn_incl_ll.ses_03A="ses_03A",su_alc_lft_yn_incl_ll.ses_04A="ses_04A",su_alc_lft_yn_incl_ll.ses_05A="ses_05A",su_alc_lft_yn_incl_ll.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_alc_lft_yn_incl_ll,by=c("participant_id","session_id"))
dat.su_alc_lft_onset_incl_ll <- dat.su_alc_pyr_yn_incl_ll %>% dplyr::select(participant_id,su_alc_lft_onset_incl_ll)
dat <- dplyr::left_join(dat,dat.su_alc_lft_onset_incl_ll,by="participant_id")
rm(dat.su_alc_pyr_yn_incl_ll,dat.su_alc_lft_yn_incl_ll,dat.su_alc_lft_onset_incl_ll)
# su_nic_pyr_yn_incl_ll
dat.su_nic_pyr_yn_incl_ll <- with(dat,data.frame(participant_id, session_id, su_nic_pyr_yn_incl_ll))
dat.su_nic_pyr_yn_incl_ll <- dat.su_nic_pyr_yn_incl_ll %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_nic_lft_yn_incl_ll.ses_01A = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1 | su_nic_pyr_yn_incl_ll.ses_01A==1,1,0,missing=0),
su_nic_lft_yn_incl_ll.ses_02A = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1 | su_nic_pyr_yn_incl_ll.ses_01A==1 | su_nic_pyr_yn_incl_ll.ses_02A==1,1,0,missing=0),
su_nic_lft_yn_incl_ll.ses_03A = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1 | su_nic_pyr_yn_incl_ll.ses_01A==1 | su_nic_pyr_yn_incl_ll.ses_02A==1 | su_nic_pyr_yn_incl_ll.ses_03A==1,1,0,missing=0),
su_nic_lft_yn_incl_ll.ses_04A = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1 | su_nic_pyr_yn_incl_ll.ses_01A==1 | su_nic_pyr_yn_incl_ll.ses_02A==1 | su_nic_pyr_yn_incl_ll.ses_03A==1 | su_nic_pyr_yn_incl_ll.ses_04A==1,1,0,missing=0),
su_nic_lft_yn_incl_ll.ses_05A = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1 | su_nic_pyr_yn_incl_ll.ses_01A==1 | su_nic_pyr_yn_incl_ll.ses_02A==1 | su_nic_pyr_yn_incl_ll.ses_03A==1 | su_nic_pyr_yn_incl_ll.ses_04A==1 | su_nic_pyr_yn_incl_ll.ses_05A==1,1,0,missing=0),
su_nic_lft_yn_incl_ll.ses_06A = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1 | su_nic_pyr_yn_incl_ll.ses_01A==1 | su_nic_pyr_yn_incl_ll.ses_02A==1 | su_nic_pyr_yn_incl_ll.ses_03A==1 | su_nic_pyr_yn_incl_ll.ses_04A==1 | su_nic_pyr_yn_incl_ll.ses_05A==1 | su_nic_pyr_yn_incl_ll.ses_06A==1,1,0,missing=0),
su_nic_lft_onset_incl_ll = if_else(su_nic_pyr_yn_incl_ll.ses_00A==1,"0Y",
if_else(su_nic_pyr_yn_incl_ll.ses_00A==0 & su_nic_pyr_yn_incl_ll.ses_01A==1,"1Y",
if_else(su_nic_pyr_yn_incl_ll.ses_00A==0 & su_nic_pyr_yn_incl_ll.ses_01A==0 & su_nic_pyr_yn_incl_ll.ses_02A==1,"2Y",
if_else(su_nic_pyr_yn_incl_ll.ses_00A==0 & su_nic_pyr_yn_incl_ll.ses_01A==0 & su_nic_pyr_yn_incl_ll.ses_02A==0 & su_nic_pyr_yn_incl_ll.ses_03A==1,"3Y",
if_else(su_nic_pyr_yn_incl_ll.ses_00A==0 & su_nic_pyr_yn_incl_ll.ses_01A==0 & su_nic_pyr_yn_incl_ll.ses_02A==0 & su_nic_pyr_yn_incl_ll.ses_03A==0 & su_nic_pyr_yn_incl_ll.ses_04A==1,"4Y",
if_else(su_nic_pyr_yn_incl_ll.ses_00A==0 & su_nic_pyr_yn_incl_ll.ses_01A==0 & su_nic_pyr_yn_incl_ll.ses_02A==0 & su_nic_pyr_yn_incl_ll.ses_03A==0 & su_nic_pyr_yn_incl_ll.ses_04A==0 & su_nic_pyr_yn_incl_ll.ses_05A==1,"5Y",
if_else(su_nic_pyr_yn_incl_ll.ses_00A==0 & su_nic_pyr_yn_incl_ll.ses_01A==0 & su_nic_pyr_yn_incl_ll.ses_02A==0 & su_nic_pyr_yn_incl_ll.ses_03A==0 & su_nic_pyr_yn_incl_ll.ses_04A==0 & su_nic_pyr_yn_incl_ll.ses_05A==0 & su_nic_pyr_yn_incl_ll.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_nic_lft_yn_incl_ll <- dat.su_nic_pyr_yn_incl_ll %>%
dplyr::select(participant_id,su_nic_pyr_yn_incl_ll.ses_00A,su_nic_lft_yn_incl_ll.ses_01A:su_nic_lft_yn_incl_ll.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_nic_pyr_yn_incl_ll.ses_00A","su_nic_lft_yn_incl_ll.ses_01A","su_nic_lft_yn_incl_ll.ses_02A","su_nic_lft_yn_incl_ll.ses_03A","su_nic_lft_yn_incl_ll.ses_04A","su_nic_lft_yn_incl_ll.ses_05A","su_nic_lft_yn_incl_ll.ses_06A"),variable.name="session_id",value.name="su_nic_lft_yn_incl_ll") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_nic_pyr_yn_incl_ll.ses_00A="ses_00A",su_nic_lft_yn_incl_ll.ses_01A="ses_01A",su_nic_lft_yn_incl_ll.ses_02A="ses_02A",su_nic_lft_yn_incl_ll.ses_03A="ses_03A",su_nic_lft_yn_incl_ll.ses_04A="ses_04A",su_nic_lft_yn_incl_ll.ses_05A="ses_05A",su_nic_lft_yn_incl_ll.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_nic_lft_yn_incl_ll,by=c("participant_id","session_id"))
dat.su_nic_lft_onset_incl_ll <- dat.su_nic_pyr_yn_incl_ll %>% dplyr::select(participant_id,su_nic_lft_onset_incl_ll)
dat <- dplyr::left_join(dat,dat.su_nic_lft_onset_incl_ll,by="participant_id")
rm(dat.su_nic_pyr_yn_incl_ll,dat.su_nic_lft_yn_incl_ll,dat.su_nic_lft_onset_incl_ll)
# su_mj_pyr_yn_incl_ll
dat.su_mj_pyr_yn_incl_ll <- with(dat,data.frame(participant_id, session_id, su_mj_pyr_yn_incl_ll))
dat.su_mj_pyr_yn_incl_ll <- dat.su_mj_pyr_yn_incl_ll %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_mj_lft_yn_incl_ll.ses_01A = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1 | su_mj_pyr_yn_incl_ll.ses_01A==1,1,0,missing=0),
su_mj_lft_yn_incl_ll.ses_02A = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1 | su_mj_pyr_yn_incl_ll.ses_01A==1 | su_mj_pyr_yn_incl_ll.ses_02A==1,1,0,missing=0),
su_mj_lft_yn_incl_ll.ses_03A = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1 | su_mj_pyr_yn_incl_ll.ses_01A==1 | su_mj_pyr_yn_incl_ll.ses_02A==1 | su_mj_pyr_yn_incl_ll.ses_03A==1,1,0,missing=0),
su_mj_lft_yn_incl_ll.ses_04A = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1 | su_mj_pyr_yn_incl_ll.ses_01A==1 | su_mj_pyr_yn_incl_ll.ses_02A==1 | su_mj_pyr_yn_incl_ll.ses_03A==1 | su_mj_pyr_yn_incl_ll.ses_04A==1,1,0,missing=0),
su_mj_lft_yn_incl_ll.ses_05A = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1 | su_mj_pyr_yn_incl_ll.ses_01A==1 | su_mj_pyr_yn_incl_ll.ses_02A==1 | su_mj_pyr_yn_incl_ll.ses_03A==1 | su_mj_pyr_yn_incl_ll.ses_04A==1 | su_mj_pyr_yn_incl_ll.ses_05A==1,1,0,missing=0),
su_mj_lft_yn_incl_ll.ses_06A = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1 | su_mj_pyr_yn_incl_ll.ses_01A==1 | su_mj_pyr_yn_incl_ll.ses_02A==1 | su_mj_pyr_yn_incl_ll.ses_03A==1 | su_mj_pyr_yn_incl_ll.ses_04A==1 | su_mj_pyr_yn_incl_ll.ses_05A==1 | su_mj_pyr_yn_incl_ll.ses_06A==1,1,0,missing=0),
su_mj_lft_onset_incl_ll = if_else(su_mj_pyr_yn_incl_ll.ses_00A==1,"0Y",
if_else(su_mj_pyr_yn_incl_ll.ses_00A==0 & su_mj_pyr_yn_incl_ll.ses_01A==1,"1Y",
if_else(su_mj_pyr_yn_incl_ll.ses_00A==0 & su_mj_pyr_yn_incl_ll.ses_01A==0 & su_mj_pyr_yn_incl_ll.ses_02A==1,"2Y",
if_else(su_mj_pyr_yn_incl_ll.ses_00A==0 & su_mj_pyr_yn_incl_ll.ses_01A==0 & su_mj_pyr_yn_incl_ll.ses_02A==0 & su_mj_pyr_yn_incl_ll.ses_03A==1,"3Y",
if_else(su_mj_pyr_yn_incl_ll.ses_00A==0 & su_mj_pyr_yn_incl_ll.ses_01A==0 & su_mj_pyr_yn_incl_ll.ses_02A==0 & su_mj_pyr_yn_incl_ll.ses_03A==0 & su_mj_pyr_yn_incl_ll.ses_04A==1,"4Y",
if_else(su_mj_pyr_yn_incl_ll.ses_00A==0 & su_mj_pyr_yn_incl_ll.ses_01A==0 & su_mj_pyr_yn_incl_ll.ses_02A==0 & su_mj_pyr_yn_incl_ll.ses_03A==0 & su_mj_pyr_yn_incl_ll.ses_04A==0 & su_mj_pyr_yn_incl_ll.ses_05A==1,"5Y",
if_else(su_mj_pyr_yn_incl_ll.ses_00A==0 & su_mj_pyr_yn_incl_ll.ses_01A==0 & su_mj_pyr_yn_incl_ll.ses_02A==0 & su_mj_pyr_yn_incl_ll.ses_03A==0 & su_mj_pyr_yn_incl_ll.ses_04A==0 & su_mj_pyr_yn_incl_ll.ses_05A==0 & su_mj_pyr_yn_incl_ll.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_mj_lft_yn_incl_ll <- dat.su_mj_pyr_yn_incl_ll %>%
dplyr::select(participant_id,su_mj_pyr_yn_incl_ll.ses_00A,su_mj_lft_yn_incl_ll.ses_01A:su_mj_lft_yn_incl_ll.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_mj_pyr_yn_incl_ll.ses_00A","su_mj_lft_yn_incl_ll.ses_01A","su_mj_lft_yn_incl_ll.ses_02A","su_mj_lft_yn_incl_ll.ses_03A","su_mj_lft_yn_incl_ll.ses_04A","su_mj_lft_yn_incl_ll.ses_05A","su_mj_lft_yn_incl_ll.ses_06A"),variable.name="session_id",value.name="su_mj_lft_yn_incl_ll") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_mj_pyr_yn_incl_ll.ses_00A="ses_00A",su_mj_lft_yn_incl_ll.ses_01A="ses_01A",su_mj_lft_yn_incl_ll.ses_02A="ses_02A",su_mj_lft_yn_incl_ll.ses_03A="ses_03A",su_mj_lft_yn_incl_ll.ses_04A="ses_04A",su_mj_lft_yn_incl_ll.ses_05A="ses_05A",su_mj_lft_yn_incl_ll.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_mj_lft_yn_incl_ll,by=c("participant_id","session_id"))
dat.su_mj_lft_onset_incl_ll <- dat.su_mj_pyr_yn_incl_ll %>% dplyr::select(participant_id,su_mj_lft_onset_incl_ll)
dat <- dplyr::left_join(dat,dat.su_mj_lft_onset_incl_ll,by="participant_id")
rm(dat.su_mj_pyr_yn_incl_ll,dat.su_mj_lft_yn_incl_ll,dat.su_mj_lft_onset_incl_ll)
# su_pyr_yn_no_alc_nic_mj
dat.su_pyr_yn_no_alc_nic_mj <- with(dat,data.frame(participant_id, session_id, su_pyr_yn_no_alc_nic_mj))
dat.su_pyr_yn_no_alc_nic_mj <- dat.su_pyr_yn_no_alc_nic_mj %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_lft_yn_no_alc_nic_mj.ses_01A = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1 | su_pyr_yn_no_alc_nic_mj.ses_01A==1,1,0,missing=0),
su_lft_yn_no_alc_nic_mj.ses_02A = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1 | su_pyr_yn_no_alc_nic_mj.ses_01A==1 | su_pyr_yn_no_alc_nic_mj.ses_02A==1,1,0,missing=0),
su_lft_yn_no_alc_nic_mj.ses_03A = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1 | su_pyr_yn_no_alc_nic_mj.ses_01A==1 | su_pyr_yn_no_alc_nic_mj.ses_02A==1 | su_pyr_yn_no_alc_nic_mj.ses_03A==1,1,0,missing=0),
su_lft_yn_no_alc_nic_mj.ses_04A = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1 | su_pyr_yn_no_alc_nic_mj.ses_01A==1 | su_pyr_yn_no_alc_nic_mj.ses_02A==1 | su_pyr_yn_no_alc_nic_mj.ses_03A==1 | su_pyr_yn_no_alc_nic_mj.ses_04A==1,1,0,missing=0),
su_lft_yn_no_alc_nic_mj.ses_05A = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1 | su_pyr_yn_no_alc_nic_mj.ses_01A==1 | su_pyr_yn_no_alc_nic_mj.ses_02A==1 | su_pyr_yn_no_alc_nic_mj.ses_03A==1 | su_pyr_yn_no_alc_nic_mj.ses_04A==1 | su_pyr_yn_no_alc_nic_mj.ses_05A==1,1,0,missing=0),
su_lft_yn_no_alc_nic_mj.ses_06A = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1 | su_pyr_yn_no_alc_nic_mj.ses_01A==1 | su_pyr_yn_no_alc_nic_mj.ses_02A==1 | su_pyr_yn_no_alc_nic_mj.ses_03A==1 | su_pyr_yn_no_alc_nic_mj.ses_04A==1 | su_pyr_yn_no_alc_nic_mj.ses_05A==1 | su_pyr_yn_no_alc_nic_mj.ses_06A==1,1,0,missing=0),
su_lft_onset_no_alc_nic_mj = if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==1,"0Y",
if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==0 & su_pyr_yn_no_alc_nic_mj.ses_01A==1,"1Y",
if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==0 & su_pyr_yn_no_alc_nic_mj.ses_01A==0 & su_pyr_yn_no_alc_nic_mj.ses_02A==1,"2Y",
if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==0 & su_pyr_yn_no_alc_nic_mj.ses_01A==0 & su_pyr_yn_no_alc_nic_mj.ses_02A==0 & su_pyr_yn_no_alc_nic_mj.ses_03A==1,"3Y",
if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==0 & su_pyr_yn_no_alc_nic_mj.ses_01A==0 & su_pyr_yn_no_alc_nic_mj.ses_02A==0 & su_pyr_yn_no_alc_nic_mj.ses_03A==0 & su_pyr_yn_no_alc_nic_mj.ses_04A==1,"4Y",
if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==0 & su_pyr_yn_no_alc_nic_mj.ses_01A==0 & su_pyr_yn_no_alc_nic_mj.ses_02A==0 & su_pyr_yn_no_alc_nic_mj.ses_03A==0 & su_pyr_yn_no_alc_nic_mj.ses_04A==0 & su_pyr_yn_no_alc_nic_mj.ses_05A==1,"5Y",
if_else(su_pyr_yn_no_alc_nic_mj.ses_00A==0 & su_pyr_yn_no_alc_nic_mj.ses_01A==0 & su_pyr_yn_no_alc_nic_mj.ses_02A==0 & su_pyr_yn_no_alc_nic_mj.ses_03A==0 & su_pyr_yn_no_alc_nic_mj.ses_04A==0 & su_pyr_yn_no_alc_nic_mj.ses_05A==0 & su_pyr_yn_no_alc_nic_mj.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_lft_yn_no_alc_nic_mj <- dat.su_pyr_yn_no_alc_nic_mj %>%
dplyr::select(participant_id,su_pyr_yn_no_alc_nic_mj.ses_00A,su_lft_yn_no_alc_nic_mj.ses_01A:su_lft_yn_no_alc_nic_mj.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_pyr_yn_no_alc_nic_mj.ses_00A","su_lft_yn_no_alc_nic_mj.ses_01A","su_lft_yn_no_alc_nic_mj.ses_02A","su_lft_yn_no_alc_nic_mj.ses_03A","su_lft_yn_no_alc_nic_mj.ses_04A","su_lft_yn_no_alc_nic_mj.ses_05A","su_lft_yn_no_alc_nic_mj.ses_06A"),variable.name="session_id",value.name="su_lft_yn_no_alc_nic_mj") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_pyr_yn_no_alc_nic_mj.ses_00A="ses_00A",su_lft_yn_no_alc_nic_mj.ses_01A="ses_01A",su_lft_yn_no_alc_nic_mj.ses_02A="ses_02A",su_lft_yn_no_alc_nic_mj.ses_03A="ses_03A",su_lft_yn_no_alc_nic_mj.ses_04A="ses_04A",su_lft_yn_no_alc_nic_mj.ses_05A="ses_05A",su_lft_yn_no_alc_nic_mj.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_lft_yn_no_alc_nic_mj,by=c("participant_id","session_id"))
dat.su_lft_onset_no_alc_nic_mj <- dat.su_pyr_yn_no_alc_nic_mj %>% dplyr::select(participant_id,su_lft_onset_no_alc_nic_mj)
dat <- dplyr::left_join(dat,dat.su_lft_onset_no_alc_nic_mj,by="participant_id")
rm(dat.su_pyr_yn_no_alc_nic_mj,dat.su_lft_yn_no_alc_nic_mj,dat.su_lft_onset_no_alc_nic_mj)
# su_pyr_yn
dat.su_pyr_yn <- with(dat,data.frame(participant_id, session_id, su_pyr_yn))
dat.su_pyr_yn <- dat.su_pyr_yn %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_lft_yn.ses_01A = if_else(su_pyr_yn.ses_00A==1 | su_pyr_yn.ses_01A==1,1,0,missing=0),
su_lft_yn.ses_02A = if_else(su_pyr_yn.ses_00A==1 | su_pyr_yn.ses_01A==1 | su_pyr_yn.ses_02A==1,1,0,missing=0),
su_lft_yn.ses_03A = if_else(su_pyr_yn.ses_00A==1 | su_pyr_yn.ses_01A==1 | su_pyr_yn.ses_02A==1 | su_pyr_yn.ses_03A==1,1,0,missing=0),
su_lft_yn.ses_04A = if_else(su_pyr_yn.ses_00A==1 | su_pyr_yn.ses_01A==1 | su_pyr_yn.ses_02A==1 | su_pyr_yn.ses_03A==1 | su_pyr_yn.ses_04A==1,1,0,missing=0),
su_lft_yn.ses_05A = if_else(su_pyr_yn.ses_00A==1 | su_pyr_yn.ses_01A==1 | su_pyr_yn.ses_02A==1 | su_pyr_yn.ses_03A==1 | su_pyr_yn.ses_04A==1 | su_pyr_yn.ses_05A==1,1,0,missing=0),
su_lft_yn.ses_06A = if_else(su_pyr_yn.ses_00A==1 | su_pyr_yn.ses_01A==1 | su_pyr_yn.ses_02A==1 | su_pyr_yn.ses_03A==1 | su_pyr_yn.ses_04A==1 | su_pyr_yn.ses_05A==1 | su_pyr_yn.ses_06A==1,1,0,missing=0),
su_lft_onset = if_else(su_pyr_yn.ses_00A==1,"0Y",
if_else(su_pyr_yn.ses_00A==0 & su_pyr_yn.ses_01A==1,"1Y",
if_else(su_pyr_yn.ses_00A==0 & su_pyr_yn.ses_01A==0 & su_pyr_yn.ses_02A==1,"2Y",
if_else(su_pyr_yn.ses_00A==0 & su_pyr_yn.ses_01A==0 & su_pyr_yn.ses_02A==0 & su_pyr_yn.ses_03A==1,"3Y",
if_else(su_pyr_yn.ses_00A==0 & su_pyr_yn.ses_01A==0 & su_pyr_yn.ses_02A==0 & su_pyr_yn.ses_03A==0 & su_pyr_yn.ses_04A==1,"4Y",
if_else(su_pyr_yn.ses_00A==0 & su_pyr_yn.ses_01A==0 & su_pyr_yn.ses_02A==0 & su_pyr_yn.ses_03A==0 & su_pyr_yn.ses_04A==0 & su_pyr_yn.ses_05A==1,"5Y",
if_else(su_pyr_yn.ses_00A==0 & su_pyr_yn.ses_01A==0 & su_pyr_yn.ses_02A==0 & su_pyr_yn.ses_03A==0 & su_pyr_yn.ses_04A==0 & su_pyr_yn.ses_05A==0 & su_pyr_yn.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_lft_yn <- dat.su_pyr_yn %>%
dplyr::select(participant_id,su_pyr_yn.ses_00A,su_lft_yn.ses_01A:su_lft_yn.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_pyr_yn.ses_00A","su_lft_yn.ses_01A","su_lft_yn.ses_02A","su_lft_yn.ses_03A","su_lft_yn.ses_04A","su_lft_yn.ses_05A","su_lft_yn.ses_06A"),variable.name="session_id",value.name="su_lft_yn") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_pyr_yn.ses_00A="ses_00A",su_lft_yn.ses_01A="ses_01A",su_lft_yn.ses_02A="ses_02A",su_lft_yn.ses_03A="ses_03A",su_lft_yn.ses_04A="ses_04A",su_lft_yn.ses_05A="ses_05A",su_lft_yn.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_lft_yn,by=c("participant_id","session_id"))
dat.su_lft_onset <- dat.su_pyr_yn %>% dplyr::select(participant_id,su_lft_onset)
dat <- dplyr::left_join(dat,dat.su_lft_onset,by="participant_id")
rm(dat.su_pyr_yn,dat.su_lft_yn,dat.su_lft_onset)
# su_pyr_yn_incl_ll
dat.su_pyr_yn_incl_ll <- with(dat,data.frame(participant_id, session_id, su_pyr_yn_incl_ll))
dat.su_pyr_yn_incl_ll <- dat.su_pyr_yn_incl_ll %>%
stats::reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
base::replace(is.na(.), 0) %>%
dplyr::mutate(su_lft_yn_incl_ll.ses_01A = if_else(su_pyr_yn_incl_ll.ses_00A==1 | su_pyr_yn_incl_ll.ses_01A==1,1,0,missing=0),
su_lft_yn_incl_ll.ses_02A = if_else(su_pyr_yn_incl_ll.ses_00A==1 | su_pyr_yn_incl_ll.ses_01A==1 | su_pyr_yn_incl_ll.ses_02A==1,1,0,missing=0),
su_lft_yn_incl_ll.ses_03A = if_else(su_pyr_yn_incl_ll.ses_00A==1 | su_pyr_yn_incl_ll.ses_01A==1 | su_pyr_yn_incl_ll.ses_02A==1 | su_pyr_yn_incl_ll.ses_03A==1,1,0,missing=0),
su_lft_yn_incl_ll.ses_04A = if_else(su_pyr_yn_incl_ll.ses_00A==1 | su_pyr_yn_incl_ll.ses_01A==1 | su_pyr_yn_incl_ll.ses_02A==1 | su_pyr_yn_incl_ll.ses_03A==1 | su_pyr_yn_incl_ll.ses_04A==1,1,0,missing=0),
su_lft_yn_incl_ll.ses_05A = if_else(su_pyr_yn_incl_ll.ses_00A==1 | su_pyr_yn_incl_ll.ses_01A==1 | su_pyr_yn_incl_ll.ses_02A==1 | su_pyr_yn_incl_ll.ses_03A==1 | su_pyr_yn_incl_ll.ses_04A==1 | su_pyr_yn_incl_ll.ses_05A==1,1,0,missing=0),
su_lft_yn_incl_ll.ses_06A = if_else(su_pyr_yn_incl_ll.ses_00A==1 | su_pyr_yn_incl_ll.ses_01A==1 | su_pyr_yn_incl_ll.ses_02A==1 | su_pyr_yn_incl_ll.ses_03A==1 | su_pyr_yn_incl_ll.ses_04A==1 | su_pyr_yn_incl_ll.ses_05A==1 | su_pyr_yn_incl_ll.ses_06A==1,1,0,missing=0),
su_lft_onset_incl_ll = if_else(su_pyr_yn_incl_ll.ses_00A==1,"0Y",
if_else(su_pyr_yn_incl_ll.ses_00A==0 & su_pyr_yn_incl_ll.ses_01A==1,"1Y",
if_else(su_pyr_yn_incl_ll.ses_00A==0 & su_pyr_yn_incl_ll.ses_01A==0 & su_pyr_yn_incl_ll.ses_02A==1,"2Y",
if_else(su_pyr_yn_incl_ll.ses_00A==0 & su_pyr_yn_incl_ll.ses_01A==0 & su_pyr_yn_incl_ll.ses_02A==0 & su_pyr_yn_incl_ll.ses_03A==1,"3Y",
if_else(su_pyr_yn_incl_ll.ses_00A==0 & su_pyr_yn_incl_ll.ses_01A==0 & su_pyr_yn_incl_ll.ses_02A==0 & su_pyr_yn_incl_ll.ses_03A==0 & su_pyr_yn_incl_ll.ses_04A==1,"4Y",
if_else(su_pyr_yn_incl_ll.ses_00A==0 & su_pyr_yn_incl_ll.ses_01A==0 & su_pyr_yn_incl_ll.ses_02A==0 & su_pyr_yn_incl_ll.ses_03A==0 & su_pyr_yn_incl_ll.ses_04A==0 & su_pyr_yn_incl_ll.ses_05A==1,"5Y",
if_else(su_pyr_yn_incl_ll.ses_00A==0 & su_pyr_yn_incl_ll.ses_01A==0 & su_pyr_yn_incl_ll.ses_02A==0 & su_pyr_yn_incl_ll.ses_03A==0 & su_pyr_yn_incl_ll.ses_04A==0 & su_pyr_yn_incl_ll.ses_05A==0 & su_pyr_yn_incl_ll.ses_06A==1,"6Y",NA_character_,missing=NA_character_))))))))
dat.su_lft_yn_incl_ll <- dat.su_pyr_yn_incl_ll %>%
dplyr::select(participant_id,su_pyr_yn_incl_ll.ses_00A,su_lft_yn_incl_ll.ses_01A:su_lft_yn_incl_ll.ses_06A) %>%
reshape2::melt(.,id.vars="participant_id",measure.vars=c("su_pyr_yn_incl_ll.ses_00A","su_lft_yn_incl_ll.ses_01A","su_lft_yn_incl_ll.ses_02A","su_lft_yn_incl_ll.ses_03A","su_lft_yn_incl_ll.ses_04A","su_lft_yn_incl_ll.ses_05A","su_lft_yn_incl_ll.ses_06A"),variable.name="session_id",value.name="su_lft_yn_incl_ll") %>%
dplyr::mutate(session_id = dplyr::recode(session_id,su_pyr_yn_incl_ll.ses_00A="ses_00A",su_lft_yn_incl_ll.ses_01A="ses_01A",su_lft_yn_incl_ll.ses_02A="ses_02A",su_lft_yn_incl_ll.ses_03A="ses_03A",su_lft_yn_incl_ll.ses_04A="ses_04A",su_lft_yn_incl_ll.ses_05A="ses_05A",su_lft_yn_incl_ll.ses_06A="ses_06A"))
dat <- dplyr::left_join(dat,dat.su_lft_yn_incl_ll,by=c("participant_id","session_id"))
dat.su_lft_onset_incl_ll <- dat.su_pyr_yn_incl_ll %>% dplyr::select(participant_id,su_lft_onset_incl_ll)
dat <- dplyr::left_join(dat,dat.su_lft_onset_incl_ll,by="participant_id")
rm(dat.su_pyr_yn_incl_ll,dat.su_lft_yn_incl_ll,dat.su_lft_onset_incl_ll)
##### Step 3_c: Lifetime total dose #####
#rename some variables to match naming convention used here
dat <- dat %>%
dplyr::mutate(su_alc_pyr_td = su_y_tlfb__alc__cum_totdose,
su_nic_pyr_td = su_y_tlfb__nic__cum_totdose,
su_mj_pyr_td = su_y_tlfb__mj__cum_totdose,
su_nic_vape_pyr_td = su_y_tlfb__nic__vape__cum_totdose,
su_nic_cig_pyr_td = su_y_tlfb__nic__cig__cum_totdose,
su_nic_cigar_pyr_td = su_y_tlfb__nic__cigar__cum_totdose,
su_nic_pipe_pyr_td = su_y_tlfb__nic__pipe__cum_totdose,
su_nic_hookah_pyr_td = su_y_tlfb__nic__hookah__cum_totdose,
su_nic_rplc_pyr_td = su_y_tlfb__nic__rplc__cum_totdose,
su_nic_chew_pyr_td = su_y_tlfb__nic__chew__cum_totdose,
su_mj_smoke_pyr_td = su_y_tlfb__mj__smoke__cum_totdose,
su_mj_edbl_pyr_td = su_y_tlfb__mj__edbl__cum_totdose,
su_mj_drink_pyr_td = su_y_tlfb__mj__drink__cum_totdose,
su_mj_conc_pyr_td = su_y_tlfb__mj__conc__cum_totdose,
su_mj_tinc_pyr_td = su_y_tlfb__mj__tinc__cum_totdose,
su_mj_blunt_pyr_td = su_y_tlfb__mj__blunt__cum_totdose,
su_mj_vape_flwr_pyr_td = su_y_tlfb__mj__vape__flwr__cum_totdose,
su_mj_vape_oil_pyr_td = su_y_tlfb__mj__vape__oil__cum_totdose,
su_cbd_pyr_td = su_y_tlfb__cbd__cum_totdose,
su_alc_binge_pyr_td = su_y_tlfb__alc__binge_ud)
# su_alc_pyr_td
dat.su_alc_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_alc_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_alc_pyr_td.ses_00A=replace_na(su_alc_pyr_td.ses_00A,0),
su_alc_pyr_td.ses_01A=replace_na(su_alc_pyr_td.ses_01A,0),
su_alc_pyr_td.ses_02A=replace_na(su_alc_pyr_td.ses_02A,0),
su_alc_pyr_td.ses_03A=replace_na(su_alc_pyr_td.ses_03A,0),
su_alc_pyr_td.ses_04A=replace_na(su_alc_pyr_td.ses_04A,0),
su_alc_pyr_td.ses_05A=replace_na(su_alc_pyr_td.ses_05A,0),
su_alc_pyr_td.ses_06A=replace_na(su_alc_pyr_td.ses_06A,0),
su_alc_pyr_td.ses_01A.cf=su_alc_pyr_td.ses_00A+su_alc_pyr_td.ses_01A,
su_alc_pyr_td.ses_02A.cf=su_alc_pyr_td.ses_00A+su_alc_pyr_td.ses_01A+su_alc_pyr_td.ses_02A,
su_alc_pyr_td.ses_03A.cf=su_alc_pyr_td.ses_00A+su_alc_pyr_td.ses_01A+su_alc_pyr_td.ses_02A+su_alc_pyr_td.ses_03A,
su_alc_pyr_td.ses_04A.cf=su_alc_pyr_td.ses_00A+su_alc_pyr_td.ses_01A+su_alc_pyr_td.ses_02A+su_alc_pyr_td.ses_03A+su_alc_pyr_td.ses_04A,
su_alc_pyr_td.ses_05A.cf=su_alc_pyr_td.ses_00A+su_alc_pyr_td.ses_01A+su_alc_pyr_td.ses_02A+su_alc_pyr_td.ses_03A+su_alc_pyr_td.ses_04A+su_alc_pyr_td.ses_05A,
su_alc_pyr_td.ses_06A.cf=su_alc_pyr_td.ses_00A+su_alc_pyr_td.ses_01A+su_alc_pyr_td.ses_02A+su_alc_pyr_td.ses_03A+su_alc_pyr_td.ses_04A+su_alc_pyr_td.ses_05A+su_alc_pyr_td.ses_06A)
dat.su_alc_lft_td <- dat.su_alc_pyr_td %>% select(participant_id,su_alc_pyr_td.ses_00A,su_alc_pyr_td.ses_01A.cf,su_alc_pyr_td.ses_02A.cf,su_alc_pyr_td.ses_03A.cf,su_alc_pyr_td.ses_04A.cf,su_alc_pyr_td.ses_05A.cf,su_alc_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_alc_pyr_td.ses_00A","su_alc_pyr_td.ses_01A.cf","su_alc_pyr_td.ses_02A.cf","su_alc_pyr_td.ses_03A.cf","su_alc_pyr_td.ses_04A.cf","su_alc_pyr_td.ses_05A.cf","su_alc_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_alc_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_alc_lft_td,by=c("participant_id","session_id"))
rm(dat.su_alc_lft_td,dat.su_alc_pyr_td)
# su_nic_pyr_td
dat.su_nic_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_pyr_td.ses_00A=replace_na(su_nic_pyr_td.ses_00A,0),
su_nic_pyr_td.ses_01A=replace_na(su_nic_pyr_td.ses_01A,0),
su_nic_pyr_td.ses_02A=replace_na(su_nic_pyr_td.ses_02A,0),
su_nic_pyr_td.ses_03A=replace_na(su_nic_pyr_td.ses_03A,0),
su_nic_pyr_td.ses_04A=replace_na(su_nic_pyr_td.ses_04A,0),
su_nic_pyr_td.ses_05A=replace_na(su_nic_pyr_td.ses_05A,0),
su_nic_pyr_td.ses_06A=replace_na(su_nic_pyr_td.ses_06A,0),
su_nic_pyr_td.ses_01A.cf=su_nic_pyr_td.ses_00A+su_nic_pyr_td.ses_01A,
su_nic_pyr_td.ses_02A.cf=su_nic_pyr_td.ses_00A+su_nic_pyr_td.ses_01A+su_nic_pyr_td.ses_02A,
su_nic_pyr_td.ses_03A.cf=su_nic_pyr_td.ses_00A+su_nic_pyr_td.ses_01A+su_nic_pyr_td.ses_02A+su_nic_pyr_td.ses_03A,
su_nic_pyr_td.ses_04A.cf=su_nic_pyr_td.ses_00A+su_nic_pyr_td.ses_01A+su_nic_pyr_td.ses_02A+su_nic_pyr_td.ses_03A+su_nic_pyr_td.ses_04A,
su_nic_pyr_td.ses_05A.cf=su_nic_pyr_td.ses_00A+su_nic_pyr_td.ses_01A+su_nic_pyr_td.ses_02A+su_nic_pyr_td.ses_03A+su_nic_pyr_td.ses_04A+su_nic_pyr_td.ses_05A,
su_nic_pyr_td.ses_06A.cf=su_nic_pyr_td.ses_00A+su_nic_pyr_td.ses_01A+su_nic_pyr_td.ses_02A+su_nic_pyr_td.ses_03A+su_nic_pyr_td.ses_04A+su_nic_pyr_td.ses_05A+su_nic_pyr_td.ses_06A)
dat.su_nic_lft_td <- dat.su_nic_pyr_td %>% select(participant_id,su_nic_pyr_td.ses_00A,su_nic_pyr_td.ses_01A.cf,su_nic_pyr_td.ses_02A.cf,su_nic_pyr_td.ses_03A.cf,su_nic_pyr_td.ses_04A.cf,su_nic_pyr_td.ses_05A.cf,su_nic_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_pyr_td.ses_00A","su_nic_pyr_td.ses_01A.cf","su_nic_pyr_td.ses_02A.cf","su_nic_pyr_td.ses_03A.cf","su_nic_pyr_td.ses_04A.cf","su_nic_pyr_td.ses_05A.cf","su_nic_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_lft_td,dat.su_nic_pyr_td)
# su_mj_pyr_td
dat.su_mj_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_pyr_td.ses_00A=replace_na(su_mj_pyr_td.ses_00A,0),
su_mj_pyr_td.ses_01A=replace_na(su_mj_pyr_td.ses_01A,0),
su_mj_pyr_td.ses_02A=replace_na(su_mj_pyr_td.ses_02A,0),
su_mj_pyr_td.ses_03A=replace_na(su_mj_pyr_td.ses_03A,0),
su_mj_pyr_td.ses_04A=replace_na(su_mj_pyr_td.ses_04A,0),
su_mj_pyr_td.ses_05A=replace_na(su_mj_pyr_td.ses_05A,0),
su_mj_pyr_td.ses_06A=replace_na(su_mj_pyr_td.ses_06A,0),
su_mj_pyr_td.ses_01A.cf=su_mj_pyr_td.ses_00A+su_mj_pyr_td.ses_01A,
su_mj_pyr_td.ses_02A.cf=su_mj_pyr_td.ses_00A+su_mj_pyr_td.ses_01A+su_mj_pyr_td.ses_02A,
su_mj_pyr_td.ses_03A.cf=su_mj_pyr_td.ses_00A+su_mj_pyr_td.ses_01A+su_mj_pyr_td.ses_02A+su_mj_pyr_td.ses_03A,
su_mj_pyr_td.ses_04A.cf=su_mj_pyr_td.ses_00A+su_mj_pyr_td.ses_01A+su_mj_pyr_td.ses_02A+su_mj_pyr_td.ses_03A+su_mj_pyr_td.ses_04A,
su_mj_pyr_td.ses_05A.cf=su_mj_pyr_td.ses_00A+su_mj_pyr_td.ses_01A+su_mj_pyr_td.ses_02A+su_mj_pyr_td.ses_03A+su_mj_pyr_td.ses_04A+su_mj_pyr_td.ses_05A,
su_mj_pyr_td.ses_06A.cf=su_mj_pyr_td.ses_00A+su_mj_pyr_td.ses_01A+su_mj_pyr_td.ses_02A+su_mj_pyr_td.ses_03A+su_mj_pyr_td.ses_04A+su_mj_pyr_td.ses_05A+su_mj_pyr_td.ses_06A)
dat.su_mj_lft_td <- dat.su_mj_pyr_td %>% select(participant_id,su_mj_pyr_td.ses_00A,su_mj_pyr_td.ses_01A.cf,su_mj_pyr_td.ses_02A.cf,su_mj_pyr_td.ses_03A.cf,su_mj_pyr_td.ses_04A.cf,su_mj_pyr_td.ses_05A.cf,su_mj_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_pyr_td.ses_00A","su_mj_pyr_td.ses_01A.cf","su_mj_pyr_td.ses_02A.cf","su_mj_pyr_td.ses_03A.cf","su_mj_pyr_td.ses_04A.cf","su_mj_pyr_td.ses_05A.cf","su_mj_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_lft_td,dat.su_mj_pyr_td)
# su_nic_vape_pyr_td
dat.su_nic_vape_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_vape_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_vape_pyr_td.ses_00A=replace_na(su_nic_vape_pyr_td.ses_00A,0),
su_nic_vape_pyr_td.ses_01A=replace_na(su_nic_vape_pyr_td.ses_01A,0),
su_nic_vape_pyr_td.ses_02A=replace_na(su_nic_vape_pyr_td.ses_02A,0),
su_nic_vape_pyr_td.ses_03A=replace_na(su_nic_vape_pyr_td.ses_03A,0),
su_nic_vape_pyr_td.ses_04A=replace_na(su_nic_vape_pyr_td.ses_04A,0),
su_nic_vape_pyr_td.ses_05A=replace_na(su_nic_vape_pyr_td.ses_05A,0),
su_nic_vape_pyr_td.ses_06A=replace_na(su_nic_vape_pyr_td.ses_06A,0),
su_nic_vape_pyr_td.ses_01A.cf=su_nic_vape_pyr_td.ses_00A+su_nic_vape_pyr_td.ses_01A,
su_nic_vape_pyr_td.ses_02A.cf=su_nic_vape_pyr_td.ses_00A+su_nic_vape_pyr_td.ses_01A+su_nic_vape_pyr_td.ses_02A,
su_nic_vape_pyr_td.ses_03A.cf=su_nic_vape_pyr_td.ses_00A+su_nic_vape_pyr_td.ses_01A+su_nic_vape_pyr_td.ses_02A+su_nic_vape_pyr_td.ses_03A,
su_nic_vape_pyr_td.ses_04A.cf=su_nic_vape_pyr_td.ses_00A+su_nic_vape_pyr_td.ses_01A+su_nic_vape_pyr_td.ses_02A+su_nic_vape_pyr_td.ses_03A+su_nic_vape_pyr_td.ses_04A,
su_nic_vape_pyr_td.ses_05A.cf=su_nic_vape_pyr_td.ses_00A+su_nic_vape_pyr_td.ses_01A+su_nic_vape_pyr_td.ses_02A+su_nic_vape_pyr_td.ses_03A+su_nic_vape_pyr_td.ses_04A+su_nic_vape_pyr_td.ses_05A,
su_nic_vape_pyr_td.ses_06A.cf=su_nic_vape_pyr_td.ses_00A+su_nic_vape_pyr_td.ses_01A+su_nic_vape_pyr_td.ses_02A+su_nic_vape_pyr_td.ses_03A+su_nic_vape_pyr_td.ses_04A+su_nic_vape_pyr_td.ses_05A+su_nic_vape_pyr_td.ses_06A)
dat.su_nic_vape_lft_td <- dat.su_nic_vape_pyr_td %>% select(participant_id,su_nic_vape_pyr_td.ses_00A,su_nic_vape_pyr_td.ses_01A.cf,su_nic_vape_pyr_td.ses_02A.cf,su_nic_vape_pyr_td.ses_03A.cf,su_nic_vape_pyr_td.ses_04A.cf,su_nic_vape_pyr_td.ses_05A.cf,su_nic_vape_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_vape_pyr_td.ses_00A","su_nic_vape_pyr_td.ses_01A.cf","su_nic_vape_pyr_td.ses_02A.cf","su_nic_vape_pyr_td.ses_03A.cf","su_nic_vape_pyr_td.ses_04A.cf","su_nic_vape_pyr_td.ses_05A.cf","su_nic_vape_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_vape_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_vape_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_vape_lft_td,dat.su_nic_vape_pyr_td)
# su_nic_cig_pyr_td
dat.su_nic_cig_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_cig_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_cig_pyr_td.ses_00A=replace_na(su_nic_cig_pyr_td.ses_00A,0),
su_nic_cig_pyr_td.ses_01A=replace_na(su_nic_cig_pyr_td.ses_01A,0),
su_nic_cig_pyr_td.ses_02A=replace_na(su_nic_cig_pyr_td.ses_02A,0),
su_nic_cig_pyr_td.ses_03A=replace_na(su_nic_cig_pyr_td.ses_03A,0),
su_nic_cig_pyr_td.ses_04A=replace_na(su_nic_cig_pyr_td.ses_04A,0),
su_nic_cig_pyr_td.ses_05A=replace_na(su_nic_cig_pyr_td.ses_05A,0),
su_nic_cig_pyr_td.ses_06A=replace_na(su_nic_cig_pyr_td.ses_06A,0),
su_nic_cig_pyr_td.ses_01A.cf=su_nic_cig_pyr_td.ses_00A+su_nic_cig_pyr_td.ses_01A,
su_nic_cig_pyr_td.ses_02A.cf=su_nic_cig_pyr_td.ses_00A+su_nic_cig_pyr_td.ses_01A+su_nic_cig_pyr_td.ses_02A,
su_nic_cig_pyr_td.ses_03A.cf=su_nic_cig_pyr_td.ses_00A+su_nic_cig_pyr_td.ses_01A+su_nic_cig_pyr_td.ses_02A+su_nic_cig_pyr_td.ses_03A,
su_nic_cig_pyr_td.ses_04A.cf=su_nic_cig_pyr_td.ses_00A+su_nic_cig_pyr_td.ses_01A+su_nic_cig_pyr_td.ses_02A+su_nic_cig_pyr_td.ses_03A+su_nic_cig_pyr_td.ses_04A,
su_nic_cig_pyr_td.ses_05A.cf=su_nic_cig_pyr_td.ses_00A+su_nic_cig_pyr_td.ses_01A+su_nic_cig_pyr_td.ses_02A+su_nic_cig_pyr_td.ses_03A+su_nic_cig_pyr_td.ses_04A+su_nic_cig_pyr_td.ses_05A,
su_nic_cig_pyr_td.ses_06A.cf=su_nic_cig_pyr_td.ses_00A+su_nic_cig_pyr_td.ses_01A+su_nic_cig_pyr_td.ses_02A+su_nic_cig_pyr_td.ses_03A+su_nic_cig_pyr_td.ses_04A+su_nic_cig_pyr_td.ses_05A+su_nic_cig_pyr_td.ses_06A)
dat.su_nic_cig_lft_td <- dat.su_nic_cig_pyr_td %>% select(participant_id,su_nic_cig_pyr_td.ses_00A,su_nic_cig_pyr_td.ses_01A.cf,su_nic_cig_pyr_td.ses_02A.cf,su_nic_cig_pyr_td.ses_03A.cf,su_nic_cig_pyr_td.ses_04A.cf,su_nic_cig_pyr_td.ses_05A.cf,su_nic_cig_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_cig_pyr_td.ses_00A","su_nic_cig_pyr_td.ses_01A.cf","su_nic_cig_pyr_td.ses_02A.cf","su_nic_cig_pyr_td.ses_03A.cf","su_nic_cig_pyr_td.ses_04A.cf","su_nic_cig_pyr_td.ses_05A.cf","su_nic_cig_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_cig_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_cig_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_cig_lft_td,dat.su_nic_cig_pyr_td)
# su_nic_cigar_pyr_td
dat.su_nic_cigar_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_cigar_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_cigar_pyr_td.ses_00A=replace_na(su_nic_cigar_pyr_td.ses_00A,0),
su_nic_cigar_pyr_td.ses_01A=replace_na(su_nic_cigar_pyr_td.ses_01A,0),
su_nic_cigar_pyr_td.ses_02A=replace_na(su_nic_cigar_pyr_td.ses_02A,0),
su_nic_cigar_pyr_td.ses_03A=replace_na(su_nic_cigar_pyr_td.ses_03A,0),
su_nic_cigar_pyr_td.ses_04A=replace_na(su_nic_cigar_pyr_td.ses_04A,0),
su_nic_cigar_pyr_td.ses_05A=replace_na(su_nic_cigar_pyr_td.ses_05A,0),
su_nic_cigar_pyr_td.ses_06A=replace_na(su_nic_cigar_pyr_td.ses_06A,0),
su_nic_cigar_pyr_td.ses_01A.cf=su_nic_cigar_pyr_td.ses_00A+su_nic_cigar_pyr_td.ses_01A,
su_nic_cigar_pyr_td.ses_02A.cf=su_nic_cigar_pyr_td.ses_00A+su_nic_cigar_pyr_td.ses_01A+su_nic_cigar_pyr_td.ses_02A,
su_nic_cigar_pyr_td.ses_03A.cf=su_nic_cigar_pyr_td.ses_00A+su_nic_cigar_pyr_td.ses_01A+su_nic_cigar_pyr_td.ses_02A+su_nic_cigar_pyr_td.ses_03A,
su_nic_cigar_pyr_td.ses_04A.cf=su_nic_cigar_pyr_td.ses_00A+su_nic_cigar_pyr_td.ses_01A+su_nic_cigar_pyr_td.ses_02A+su_nic_cigar_pyr_td.ses_03A+su_nic_cigar_pyr_td.ses_04A,
su_nic_cigar_pyr_td.ses_05A.cf=su_nic_cigar_pyr_td.ses_00A+su_nic_cigar_pyr_td.ses_01A+su_nic_cigar_pyr_td.ses_02A+su_nic_cigar_pyr_td.ses_03A+su_nic_cigar_pyr_td.ses_04A+su_nic_cigar_pyr_td.ses_05A,
su_nic_cigar_pyr_td.ses_06A.cf=su_nic_cigar_pyr_td.ses_00A+su_nic_cigar_pyr_td.ses_01A+su_nic_cigar_pyr_td.ses_02A+su_nic_cigar_pyr_td.ses_03A+su_nic_cigar_pyr_td.ses_04A+su_nic_cigar_pyr_td.ses_05A+su_nic_cigar_pyr_td.ses_06A)
dat.su_nic_cigar_lft_td <- dat.su_nic_cigar_pyr_td %>% select(participant_id,su_nic_cigar_pyr_td.ses_00A,su_nic_cigar_pyr_td.ses_01A.cf,su_nic_cigar_pyr_td.ses_02A.cf,su_nic_cigar_pyr_td.ses_03A.cf,su_nic_cigar_pyr_td.ses_04A.cf,su_nic_cigar_pyr_td.ses_05A.cf,su_nic_cigar_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_cigar_pyr_td.ses_00A","su_nic_cigar_pyr_td.ses_01A.cf","su_nic_cigar_pyr_td.ses_02A.cf","su_nic_cigar_pyr_td.ses_03A.cf","su_nic_cigar_pyr_td.ses_04A.cf","su_nic_cigar_pyr_td.ses_05A.cf","su_nic_cigar_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_cigar_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_cigar_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_cigar_lft_td,dat.su_nic_cigar_pyr_td)
# su_nic_pipe_pyr_td
dat.su_nic_pipe_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_pipe_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_pipe_pyr_td.ses_00A=replace_na(su_nic_pipe_pyr_td.ses_00A,0),
su_nic_pipe_pyr_td.ses_01A=replace_na(su_nic_pipe_pyr_td.ses_01A,0),
su_nic_pipe_pyr_td.ses_02A=replace_na(su_nic_pipe_pyr_td.ses_02A,0),
su_nic_pipe_pyr_td.ses_03A=replace_na(su_nic_pipe_pyr_td.ses_03A,0),
su_nic_pipe_pyr_td.ses_04A=replace_na(su_nic_pipe_pyr_td.ses_04A,0),
su_nic_pipe_pyr_td.ses_05A=replace_na(su_nic_pipe_pyr_td.ses_05A,0),
su_nic_pipe_pyr_td.ses_06A=replace_na(su_nic_pipe_pyr_td.ses_06A,0),
su_nic_pipe_pyr_td.ses_01A.cf=su_nic_pipe_pyr_td.ses_00A+su_nic_pipe_pyr_td.ses_01A,
su_nic_pipe_pyr_td.ses_02A.cf=su_nic_pipe_pyr_td.ses_00A+su_nic_pipe_pyr_td.ses_01A+su_nic_pipe_pyr_td.ses_02A,
su_nic_pipe_pyr_td.ses_03A.cf=su_nic_pipe_pyr_td.ses_00A+su_nic_pipe_pyr_td.ses_01A+su_nic_pipe_pyr_td.ses_02A+su_nic_pipe_pyr_td.ses_03A,
su_nic_pipe_pyr_td.ses_04A.cf=su_nic_pipe_pyr_td.ses_00A+su_nic_pipe_pyr_td.ses_01A+su_nic_pipe_pyr_td.ses_02A+su_nic_pipe_pyr_td.ses_03A+su_nic_pipe_pyr_td.ses_04A,
su_nic_pipe_pyr_td.ses_05A.cf=su_nic_pipe_pyr_td.ses_00A+su_nic_pipe_pyr_td.ses_01A+su_nic_pipe_pyr_td.ses_02A+su_nic_pipe_pyr_td.ses_03A+su_nic_pipe_pyr_td.ses_04A+su_nic_pipe_pyr_td.ses_05A,
su_nic_pipe_pyr_td.ses_06A.cf=su_nic_pipe_pyr_td.ses_00A+su_nic_pipe_pyr_td.ses_01A+su_nic_pipe_pyr_td.ses_02A+su_nic_pipe_pyr_td.ses_03A+su_nic_pipe_pyr_td.ses_04A+su_nic_pipe_pyr_td.ses_05A+su_nic_pipe_pyr_td.ses_06A)
dat.su_nic_pipe_lft_td <- dat.su_nic_pipe_pyr_td %>% select(participant_id,su_nic_pipe_pyr_td.ses_00A,su_nic_pipe_pyr_td.ses_01A.cf,su_nic_pipe_pyr_td.ses_02A.cf,su_nic_pipe_pyr_td.ses_03A.cf,su_nic_pipe_pyr_td.ses_04A.cf,su_nic_pipe_pyr_td.ses_05A.cf,su_nic_pipe_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_pipe_pyr_td.ses_00A","su_nic_pipe_pyr_td.ses_01A.cf","su_nic_pipe_pyr_td.ses_02A.cf","su_nic_pipe_pyr_td.ses_03A.cf","su_nic_pipe_pyr_td.ses_04A.cf","su_nic_pipe_pyr_td.ses_05A.cf","su_nic_pipe_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_pipe_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_pipe_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_pipe_lft_td,dat.su_nic_pipe_pyr_td)
# su_nic_hookah_pyr_td
dat.su_nic_hookah_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_hookah_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_hookah_pyr_td.ses_00A=replace_na(su_nic_hookah_pyr_td.ses_00A,0),
su_nic_hookah_pyr_td.ses_01A=replace_na(su_nic_hookah_pyr_td.ses_01A,0),
su_nic_hookah_pyr_td.ses_02A=replace_na(su_nic_hookah_pyr_td.ses_02A,0),
su_nic_hookah_pyr_td.ses_03A=replace_na(su_nic_hookah_pyr_td.ses_03A,0),
su_nic_hookah_pyr_td.ses_04A=replace_na(su_nic_hookah_pyr_td.ses_04A,0),
su_nic_hookah_pyr_td.ses_05A=replace_na(su_nic_hookah_pyr_td.ses_05A,0),
su_nic_hookah_pyr_td.ses_06A=replace_na(su_nic_hookah_pyr_td.ses_06A,0),
su_nic_hookah_pyr_td.ses_01A.cf=su_nic_hookah_pyr_td.ses_00A+su_nic_hookah_pyr_td.ses_01A,
su_nic_hookah_pyr_td.ses_02A.cf=su_nic_hookah_pyr_td.ses_00A+su_nic_hookah_pyr_td.ses_01A+su_nic_hookah_pyr_td.ses_02A,
su_nic_hookah_pyr_td.ses_03A.cf=su_nic_hookah_pyr_td.ses_00A+su_nic_hookah_pyr_td.ses_01A+su_nic_hookah_pyr_td.ses_02A+su_nic_hookah_pyr_td.ses_03A,
su_nic_hookah_pyr_td.ses_04A.cf=su_nic_hookah_pyr_td.ses_00A+su_nic_hookah_pyr_td.ses_01A+su_nic_hookah_pyr_td.ses_02A+su_nic_hookah_pyr_td.ses_03A+su_nic_hookah_pyr_td.ses_04A,
su_nic_hookah_pyr_td.ses_05A.cf=su_nic_hookah_pyr_td.ses_00A+su_nic_hookah_pyr_td.ses_01A+su_nic_hookah_pyr_td.ses_02A+su_nic_hookah_pyr_td.ses_03A+su_nic_hookah_pyr_td.ses_04A+su_nic_hookah_pyr_td.ses_05A,
su_nic_hookah_pyr_td.ses_06A.cf=su_nic_hookah_pyr_td.ses_00A+su_nic_hookah_pyr_td.ses_01A+su_nic_hookah_pyr_td.ses_02A+su_nic_hookah_pyr_td.ses_03A+su_nic_hookah_pyr_td.ses_04A+su_nic_hookah_pyr_td.ses_05A+su_nic_hookah_pyr_td.ses_06A)
dat.su_nic_hookah_lft_td <- dat.su_nic_hookah_pyr_td %>% select(participant_id,su_nic_hookah_pyr_td.ses_00A,su_nic_hookah_pyr_td.ses_01A.cf,su_nic_hookah_pyr_td.ses_02A.cf,su_nic_hookah_pyr_td.ses_03A.cf,su_nic_hookah_pyr_td.ses_04A.cf,su_nic_hookah_pyr_td.ses_05A.cf,su_nic_hookah_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_hookah_pyr_td.ses_00A","su_nic_hookah_pyr_td.ses_01A.cf","su_nic_hookah_pyr_td.ses_02A.cf","su_nic_hookah_pyr_td.ses_03A.cf","su_nic_hookah_pyr_td.ses_04A.cf","su_nic_hookah_pyr_td.ses_05A.cf","su_nic_hookah_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_hookah_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_hookah_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_hookah_lft_td,dat.su_nic_hookah_pyr_td)
# su_nic_rplc_pyr_td
dat.su_nic_rplc_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_rplc_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_rplc_pyr_td.ses_00A=replace_na(su_nic_rplc_pyr_td.ses_00A,0),
su_nic_rplc_pyr_td.ses_01A=replace_na(su_nic_rplc_pyr_td.ses_01A,0),
su_nic_rplc_pyr_td.ses_02A=replace_na(su_nic_rplc_pyr_td.ses_02A,0),
su_nic_rplc_pyr_td.ses_03A=replace_na(su_nic_rplc_pyr_td.ses_03A,0),
su_nic_rplc_pyr_td.ses_04A=replace_na(su_nic_rplc_pyr_td.ses_04A,0),
su_nic_rplc_pyr_td.ses_05A=replace_na(su_nic_rplc_pyr_td.ses_05A,0),
su_nic_rplc_pyr_td.ses_06A=replace_na(su_nic_rplc_pyr_td.ses_06A,0),
su_nic_rplc_pyr_td.ses_01A.cf=su_nic_rplc_pyr_td.ses_00A+su_nic_rplc_pyr_td.ses_01A,
su_nic_rplc_pyr_td.ses_02A.cf=su_nic_rplc_pyr_td.ses_00A+su_nic_rplc_pyr_td.ses_01A+su_nic_rplc_pyr_td.ses_02A,
su_nic_rplc_pyr_td.ses_03A.cf=su_nic_rplc_pyr_td.ses_00A+su_nic_rplc_pyr_td.ses_01A+su_nic_rplc_pyr_td.ses_02A+su_nic_rplc_pyr_td.ses_03A,
su_nic_rplc_pyr_td.ses_04A.cf=su_nic_rplc_pyr_td.ses_00A+su_nic_rplc_pyr_td.ses_01A+su_nic_rplc_pyr_td.ses_02A+su_nic_rplc_pyr_td.ses_03A+su_nic_rplc_pyr_td.ses_04A,
su_nic_rplc_pyr_td.ses_05A.cf=su_nic_rplc_pyr_td.ses_00A+su_nic_rplc_pyr_td.ses_01A+su_nic_rplc_pyr_td.ses_02A+su_nic_rplc_pyr_td.ses_03A+su_nic_rplc_pyr_td.ses_04A+su_nic_rplc_pyr_td.ses_05A,
su_nic_rplc_pyr_td.ses_06A.cf=su_nic_rplc_pyr_td.ses_00A+su_nic_rplc_pyr_td.ses_01A+su_nic_rplc_pyr_td.ses_02A+su_nic_rplc_pyr_td.ses_03A+su_nic_rplc_pyr_td.ses_04A+su_nic_rplc_pyr_td.ses_05A+su_nic_rplc_pyr_td.ses_06A)
dat.su_nic_rplc_lft_td <- dat.su_nic_rplc_pyr_td %>% select(participant_id,su_nic_rplc_pyr_td.ses_00A,su_nic_rplc_pyr_td.ses_01A.cf,su_nic_rplc_pyr_td.ses_02A.cf,su_nic_rplc_pyr_td.ses_03A.cf,su_nic_rplc_pyr_td.ses_04A.cf,su_nic_rplc_pyr_td.ses_05A.cf,su_nic_rplc_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_rplc_pyr_td.ses_00A","su_nic_rplc_pyr_td.ses_01A.cf","su_nic_rplc_pyr_td.ses_02A.cf","su_nic_rplc_pyr_td.ses_03A.cf","su_nic_rplc_pyr_td.ses_04A.cf","su_nic_rplc_pyr_td.ses_05A.cf","su_nic_rplc_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_rplc_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_rplc_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_rplc_lft_td,dat.su_nic_rplc_pyr_td)
# su_nic_chew_pyr_td
dat.su_nic_chew_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_nic_chew_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_nic_chew_pyr_td.ses_00A=replace_na(su_nic_chew_pyr_td.ses_00A,0),
su_nic_chew_pyr_td.ses_01A=replace_na(su_nic_chew_pyr_td.ses_01A,0),
su_nic_chew_pyr_td.ses_02A=replace_na(su_nic_chew_pyr_td.ses_02A,0),
su_nic_chew_pyr_td.ses_03A=replace_na(su_nic_chew_pyr_td.ses_03A,0),
su_nic_chew_pyr_td.ses_04A=replace_na(su_nic_chew_pyr_td.ses_04A,0),
su_nic_chew_pyr_td.ses_05A=replace_na(su_nic_chew_pyr_td.ses_05A,0),
su_nic_chew_pyr_td.ses_06A=replace_na(su_nic_chew_pyr_td.ses_06A,0),
su_nic_chew_pyr_td.ses_01A.cf=su_nic_chew_pyr_td.ses_00A+su_nic_chew_pyr_td.ses_01A,
su_nic_chew_pyr_td.ses_02A.cf=su_nic_chew_pyr_td.ses_00A+su_nic_chew_pyr_td.ses_01A+su_nic_chew_pyr_td.ses_02A,
su_nic_chew_pyr_td.ses_03A.cf=su_nic_chew_pyr_td.ses_00A+su_nic_chew_pyr_td.ses_01A+su_nic_chew_pyr_td.ses_02A+su_nic_chew_pyr_td.ses_03A,
su_nic_chew_pyr_td.ses_04A.cf=su_nic_chew_pyr_td.ses_00A+su_nic_chew_pyr_td.ses_01A+su_nic_chew_pyr_td.ses_02A+su_nic_chew_pyr_td.ses_03A+su_nic_chew_pyr_td.ses_04A,
su_nic_chew_pyr_td.ses_05A.cf=su_nic_chew_pyr_td.ses_00A+su_nic_chew_pyr_td.ses_01A+su_nic_chew_pyr_td.ses_02A+su_nic_chew_pyr_td.ses_03A+su_nic_chew_pyr_td.ses_04A+su_nic_chew_pyr_td.ses_05A,
su_nic_chew_pyr_td.ses_06A.cf=su_nic_chew_pyr_td.ses_00A+su_nic_chew_pyr_td.ses_01A+su_nic_chew_pyr_td.ses_02A+su_nic_chew_pyr_td.ses_03A+su_nic_chew_pyr_td.ses_04A+su_nic_chew_pyr_td.ses_05A+su_nic_chew_pyr_td.ses_06A)
dat.su_nic_chew_lft_td <- dat.su_nic_chew_pyr_td %>% select(participant_id,su_nic_chew_pyr_td.ses_00A,su_nic_chew_pyr_td.ses_01A.cf,su_nic_chew_pyr_td.ses_02A.cf,su_nic_chew_pyr_td.ses_03A.cf,su_nic_chew_pyr_td.ses_04A.cf,su_nic_chew_pyr_td.ses_05A.cf,su_nic_chew_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_nic_chew_pyr_td.ses_00A","su_nic_chew_pyr_td.ses_01A.cf","su_nic_chew_pyr_td.ses_02A.cf","su_nic_chew_pyr_td.ses_03A.cf","su_nic_chew_pyr_td.ses_04A.cf","su_nic_chew_pyr_td.ses_05A.cf","su_nic_chew_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_nic_chew_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_nic_chew_lft_td,by=c("participant_id","session_id"))
rm(dat.su_nic_chew_lft_td,dat.su_nic_chew_pyr_td)
# su_mj_smoke_pyr_td
dat.su_mj_smoke_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_smoke_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_smoke_pyr_td.ses_00A=replace_na(su_mj_smoke_pyr_td.ses_00A,0),
su_mj_smoke_pyr_td.ses_01A=replace_na(su_mj_smoke_pyr_td.ses_01A,0),
su_mj_smoke_pyr_td.ses_02A=replace_na(su_mj_smoke_pyr_td.ses_02A,0),
su_mj_smoke_pyr_td.ses_03A=replace_na(su_mj_smoke_pyr_td.ses_03A,0),
su_mj_smoke_pyr_td.ses_04A=replace_na(su_mj_smoke_pyr_td.ses_04A,0),
su_mj_smoke_pyr_td.ses_05A=replace_na(su_mj_smoke_pyr_td.ses_05A,0),
su_mj_smoke_pyr_td.ses_06A=replace_na(su_mj_smoke_pyr_td.ses_06A,0),
su_mj_smoke_pyr_td.ses_01A.cf=su_mj_smoke_pyr_td.ses_00A+su_mj_smoke_pyr_td.ses_01A,
su_mj_smoke_pyr_td.ses_02A.cf=su_mj_smoke_pyr_td.ses_00A+su_mj_smoke_pyr_td.ses_01A+su_mj_smoke_pyr_td.ses_02A,
su_mj_smoke_pyr_td.ses_03A.cf=su_mj_smoke_pyr_td.ses_00A+su_mj_smoke_pyr_td.ses_01A+su_mj_smoke_pyr_td.ses_02A+su_mj_smoke_pyr_td.ses_03A,
su_mj_smoke_pyr_td.ses_04A.cf=su_mj_smoke_pyr_td.ses_00A+su_mj_smoke_pyr_td.ses_01A+su_mj_smoke_pyr_td.ses_02A+su_mj_smoke_pyr_td.ses_03A+su_mj_smoke_pyr_td.ses_04A,
su_mj_smoke_pyr_td.ses_05A.cf=su_mj_smoke_pyr_td.ses_00A+su_mj_smoke_pyr_td.ses_01A+su_mj_smoke_pyr_td.ses_02A+su_mj_smoke_pyr_td.ses_03A+su_mj_smoke_pyr_td.ses_04A+su_mj_smoke_pyr_td.ses_05A,
su_mj_smoke_pyr_td.ses_06A.cf=su_mj_smoke_pyr_td.ses_00A+su_mj_smoke_pyr_td.ses_01A+su_mj_smoke_pyr_td.ses_02A+su_mj_smoke_pyr_td.ses_03A+su_mj_smoke_pyr_td.ses_04A+su_mj_smoke_pyr_td.ses_05A+su_mj_smoke_pyr_td.ses_06A)
dat.su_mj_smoke_lft_td <- dat.su_mj_smoke_pyr_td %>% select(participant_id,su_mj_smoke_pyr_td.ses_00A,su_mj_smoke_pyr_td.ses_01A.cf,su_mj_smoke_pyr_td.ses_02A.cf,su_mj_smoke_pyr_td.ses_03A.cf,su_mj_smoke_pyr_td.ses_04A.cf,su_mj_smoke_pyr_td.ses_05A.cf,su_mj_smoke_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_smoke_pyr_td.ses_00A","su_mj_smoke_pyr_td.ses_01A.cf","su_mj_smoke_pyr_td.ses_02A.cf","su_mj_smoke_pyr_td.ses_03A.cf","su_mj_smoke_pyr_td.ses_04A.cf","su_mj_smoke_pyr_td.ses_05A.cf","su_mj_smoke_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_smoke_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_smoke_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_smoke_lft_td,dat.su_mj_smoke_pyr_td)
# su_mj_edbl_pyr_td
dat.su_mj_edbl_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_edbl_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_edbl_pyr_td.ses_00A=replace_na(su_mj_edbl_pyr_td.ses_00A,0),
su_mj_edbl_pyr_td.ses_01A=replace_na(su_mj_edbl_pyr_td.ses_01A,0),
su_mj_edbl_pyr_td.ses_02A=replace_na(su_mj_edbl_pyr_td.ses_02A,0),
su_mj_edbl_pyr_td.ses_03A=replace_na(su_mj_edbl_pyr_td.ses_03A,0),
su_mj_edbl_pyr_td.ses_04A=replace_na(su_mj_edbl_pyr_td.ses_04A,0),
su_mj_edbl_pyr_td.ses_05A=replace_na(su_mj_edbl_pyr_td.ses_05A,0),
su_mj_edbl_pyr_td.ses_06A=replace_na(su_mj_edbl_pyr_td.ses_06A,0),
su_mj_edbl_pyr_td.ses_01A.cf=su_mj_edbl_pyr_td.ses_00A+su_mj_edbl_pyr_td.ses_01A,
su_mj_edbl_pyr_td.ses_02A.cf=su_mj_edbl_pyr_td.ses_00A+su_mj_edbl_pyr_td.ses_01A+su_mj_edbl_pyr_td.ses_02A,
su_mj_edbl_pyr_td.ses_03A.cf=su_mj_edbl_pyr_td.ses_00A+su_mj_edbl_pyr_td.ses_01A+su_mj_edbl_pyr_td.ses_02A+su_mj_edbl_pyr_td.ses_03A,
su_mj_edbl_pyr_td.ses_04A.cf=su_mj_edbl_pyr_td.ses_00A+su_mj_edbl_pyr_td.ses_01A+su_mj_edbl_pyr_td.ses_02A+su_mj_edbl_pyr_td.ses_03A+su_mj_edbl_pyr_td.ses_04A,
su_mj_edbl_pyr_td.ses_05A.cf=su_mj_edbl_pyr_td.ses_00A+su_mj_edbl_pyr_td.ses_01A+su_mj_edbl_pyr_td.ses_02A+su_mj_edbl_pyr_td.ses_03A+su_mj_edbl_pyr_td.ses_04A+su_mj_edbl_pyr_td.ses_05A,
su_mj_edbl_pyr_td.ses_06A.cf=su_mj_edbl_pyr_td.ses_00A+su_mj_edbl_pyr_td.ses_01A+su_mj_edbl_pyr_td.ses_02A+su_mj_edbl_pyr_td.ses_03A+su_mj_edbl_pyr_td.ses_04A+su_mj_edbl_pyr_td.ses_05A+su_mj_edbl_pyr_td.ses_06A)
dat.su_mj_edbl_lft_td <- dat.su_mj_edbl_pyr_td %>% select(participant_id,su_mj_edbl_pyr_td.ses_00A,su_mj_edbl_pyr_td.ses_01A.cf,su_mj_edbl_pyr_td.ses_02A.cf,su_mj_edbl_pyr_td.ses_03A.cf,su_mj_edbl_pyr_td.ses_04A.cf,su_mj_edbl_pyr_td.ses_05A.cf,su_mj_edbl_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_edbl_pyr_td.ses_00A","su_mj_edbl_pyr_td.ses_01A.cf","su_mj_edbl_pyr_td.ses_02A.cf","su_mj_edbl_pyr_td.ses_03A.cf","su_mj_edbl_pyr_td.ses_04A.cf","su_mj_edbl_pyr_td.ses_05A.cf","su_mj_edbl_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_edbl_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_edbl_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_edbl_lft_td,dat.su_mj_edbl_pyr_td)
# su_mj_drink_pyr_td
dat.su_mj_drink_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_drink_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_drink_pyr_td.ses_00A=replace_na(su_mj_drink_pyr_td.ses_00A,0),
su_mj_drink_pyr_td.ses_01A=replace_na(su_mj_drink_pyr_td.ses_01A,0),
su_mj_drink_pyr_td.ses_02A=replace_na(su_mj_drink_pyr_td.ses_02A,0),
su_mj_drink_pyr_td.ses_03A=replace_na(su_mj_drink_pyr_td.ses_03A,0),
su_mj_drink_pyr_td.ses_04A=replace_na(su_mj_drink_pyr_td.ses_04A,0),
su_mj_drink_pyr_td.ses_05A=replace_na(su_mj_drink_pyr_td.ses_05A,0),
su_mj_drink_pyr_td.ses_06A=replace_na(su_mj_drink_pyr_td.ses_06A,0),
su_mj_drink_pyr_td.ses_01A.cf=su_mj_drink_pyr_td.ses_00A+su_mj_drink_pyr_td.ses_01A,
su_mj_drink_pyr_td.ses_02A.cf=su_mj_drink_pyr_td.ses_00A+su_mj_drink_pyr_td.ses_01A+su_mj_drink_pyr_td.ses_02A,
su_mj_drink_pyr_td.ses_03A.cf=su_mj_drink_pyr_td.ses_00A+su_mj_drink_pyr_td.ses_01A+su_mj_drink_pyr_td.ses_02A+su_mj_drink_pyr_td.ses_03A,
su_mj_drink_pyr_td.ses_04A.cf=su_mj_drink_pyr_td.ses_00A+su_mj_drink_pyr_td.ses_01A+su_mj_drink_pyr_td.ses_02A+su_mj_drink_pyr_td.ses_03A+su_mj_drink_pyr_td.ses_04A,
su_mj_drink_pyr_td.ses_05A.cf=su_mj_drink_pyr_td.ses_00A+su_mj_drink_pyr_td.ses_01A+su_mj_drink_pyr_td.ses_02A+su_mj_drink_pyr_td.ses_03A+su_mj_drink_pyr_td.ses_04A+su_mj_drink_pyr_td.ses_05A,
su_mj_drink_pyr_td.ses_06A.cf=su_mj_drink_pyr_td.ses_00A+su_mj_drink_pyr_td.ses_01A+su_mj_drink_pyr_td.ses_02A+su_mj_drink_pyr_td.ses_03A+su_mj_drink_pyr_td.ses_04A+su_mj_drink_pyr_td.ses_05A+su_mj_drink_pyr_td.ses_06A)
dat.su_mj_drink_lft_td <- dat.su_mj_drink_pyr_td %>% select(participant_id,su_mj_drink_pyr_td.ses_00A,su_mj_drink_pyr_td.ses_01A.cf,su_mj_drink_pyr_td.ses_02A.cf,su_mj_drink_pyr_td.ses_03A.cf,su_mj_drink_pyr_td.ses_04A.cf,su_mj_drink_pyr_td.ses_05A.cf,su_mj_drink_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_drink_pyr_td.ses_00A","su_mj_drink_pyr_td.ses_01A.cf","su_mj_drink_pyr_td.ses_02A.cf","su_mj_drink_pyr_td.ses_03A.cf","su_mj_drink_pyr_td.ses_04A.cf","su_mj_drink_pyr_td.ses_05A.cf","su_mj_drink_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_drink_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_drink_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_drink_lft_td,dat.su_mj_drink_pyr_td)
# su_mj_conc_pyr_td
dat.su_mj_conc_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_conc_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_conc_pyr_td.ses_00A=replace_na(su_mj_conc_pyr_td.ses_00A,0),
su_mj_conc_pyr_td.ses_01A=replace_na(su_mj_conc_pyr_td.ses_01A,0),
su_mj_conc_pyr_td.ses_02A=replace_na(su_mj_conc_pyr_td.ses_02A,0),
su_mj_conc_pyr_td.ses_03A=replace_na(su_mj_conc_pyr_td.ses_03A,0),
su_mj_conc_pyr_td.ses_04A=replace_na(su_mj_conc_pyr_td.ses_04A,0),
su_mj_conc_pyr_td.ses_05A=replace_na(su_mj_conc_pyr_td.ses_05A,0),
su_mj_conc_pyr_td.ses_06A=replace_na(su_mj_conc_pyr_td.ses_06A,0),
su_mj_conc_pyr_td.ses_01A.cf=su_mj_conc_pyr_td.ses_00A+su_mj_conc_pyr_td.ses_01A,
su_mj_conc_pyr_td.ses_02A.cf=su_mj_conc_pyr_td.ses_00A+su_mj_conc_pyr_td.ses_01A+su_mj_conc_pyr_td.ses_02A,
su_mj_conc_pyr_td.ses_03A.cf=su_mj_conc_pyr_td.ses_00A+su_mj_conc_pyr_td.ses_01A+su_mj_conc_pyr_td.ses_02A+su_mj_conc_pyr_td.ses_03A,
su_mj_conc_pyr_td.ses_04A.cf=su_mj_conc_pyr_td.ses_00A+su_mj_conc_pyr_td.ses_01A+su_mj_conc_pyr_td.ses_02A+su_mj_conc_pyr_td.ses_03A+su_mj_conc_pyr_td.ses_04A,
su_mj_conc_pyr_td.ses_05A.cf=su_mj_conc_pyr_td.ses_00A+su_mj_conc_pyr_td.ses_01A+su_mj_conc_pyr_td.ses_02A+su_mj_conc_pyr_td.ses_03A+su_mj_conc_pyr_td.ses_04A+su_mj_conc_pyr_td.ses_05A,
su_mj_conc_pyr_td.ses_06A.cf=su_mj_conc_pyr_td.ses_00A+su_mj_conc_pyr_td.ses_01A+su_mj_conc_pyr_td.ses_02A+su_mj_conc_pyr_td.ses_03A+su_mj_conc_pyr_td.ses_04A+su_mj_conc_pyr_td.ses_05A+su_mj_conc_pyr_td.ses_06A)
dat.su_mj_conc_lft_td <- dat.su_mj_conc_pyr_td %>% select(participant_id,su_mj_conc_pyr_td.ses_00A,su_mj_conc_pyr_td.ses_01A.cf,su_mj_conc_pyr_td.ses_02A.cf,su_mj_conc_pyr_td.ses_03A.cf,su_mj_conc_pyr_td.ses_04A.cf,su_mj_conc_pyr_td.ses_05A.cf,su_mj_conc_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_conc_pyr_td.ses_00A","su_mj_conc_pyr_td.ses_01A.cf","su_mj_conc_pyr_td.ses_02A.cf","su_mj_conc_pyr_td.ses_03A.cf","su_mj_conc_pyr_td.ses_04A.cf","su_mj_conc_pyr_td.ses_05A.cf","su_mj_conc_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_conc_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_conc_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_conc_lft_td,dat.su_mj_conc_pyr_td)
# su_mj_tinc_pyr_td
dat.su_mj_tinc_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_tinc_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_tinc_pyr_td.ses_00A=replace_na(su_mj_tinc_pyr_td.ses_00A,0),
su_mj_tinc_pyr_td.ses_01A=replace_na(su_mj_tinc_pyr_td.ses_01A,0),
su_mj_tinc_pyr_td.ses_02A=replace_na(su_mj_tinc_pyr_td.ses_02A,0),
su_mj_tinc_pyr_td.ses_03A=replace_na(su_mj_tinc_pyr_td.ses_03A,0),
su_mj_tinc_pyr_td.ses_04A=replace_na(su_mj_tinc_pyr_td.ses_04A,0),
su_mj_tinc_pyr_td.ses_05A=replace_na(su_mj_tinc_pyr_td.ses_05A,0),
su_mj_tinc_pyr_td.ses_06A=replace_na(su_mj_tinc_pyr_td.ses_06A,0),
su_mj_tinc_pyr_td.ses_01A.cf=su_mj_tinc_pyr_td.ses_00A+su_mj_tinc_pyr_td.ses_01A,
su_mj_tinc_pyr_td.ses_02A.cf=su_mj_tinc_pyr_td.ses_00A+su_mj_tinc_pyr_td.ses_01A+su_mj_tinc_pyr_td.ses_02A,
su_mj_tinc_pyr_td.ses_03A.cf=su_mj_tinc_pyr_td.ses_00A+su_mj_tinc_pyr_td.ses_01A+su_mj_tinc_pyr_td.ses_02A+su_mj_tinc_pyr_td.ses_03A,
su_mj_tinc_pyr_td.ses_04A.cf=su_mj_tinc_pyr_td.ses_00A+su_mj_tinc_pyr_td.ses_01A+su_mj_tinc_pyr_td.ses_02A+su_mj_tinc_pyr_td.ses_03A+su_mj_tinc_pyr_td.ses_04A,
su_mj_tinc_pyr_td.ses_05A.cf=su_mj_tinc_pyr_td.ses_00A+su_mj_tinc_pyr_td.ses_01A+su_mj_tinc_pyr_td.ses_02A+su_mj_tinc_pyr_td.ses_03A+su_mj_tinc_pyr_td.ses_04A+su_mj_tinc_pyr_td.ses_05A,
su_mj_tinc_pyr_td.ses_06A.cf=su_mj_tinc_pyr_td.ses_00A+su_mj_tinc_pyr_td.ses_01A+su_mj_tinc_pyr_td.ses_02A+su_mj_tinc_pyr_td.ses_03A+su_mj_tinc_pyr_td.ses_04A+su_mj_tinc_pyr_td.ses_05A+su_mj_tinc_pyr_td.ses_06A)
dat.su_mj_tinc_lft_td <- dat.su_mj_tinc_pyr_td %>% select(participant_id,su_mj_tinc_pyr_td.ses_00A,su_mj_tinc_pyr_td.ses_01A.cf,su_mj_tinc_pyr_td.ses_02A.cf,su_mj_tinc_pyr_td.ses_03A.cf,su_mj_tinc_pyr_td.ses_04A.cf,su_mj_tinc_pyr_td.ses_05A.cf,su_mj_tinc_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_tinc_pyr_td.ses_00A","su_mj_tinc_pyr_td.ses_01A.cf","su_mj_tinc_pyr_td.ses_02A.cf","su_mj_tinc_pyr_td.ses_03A.cf","su_mj_tinc_pyr_td.ses_04A.cf","su_mj_tinc_pyr_td.ses_05A.cf","su_mj_tinc_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_tinc_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_tinc_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_tinc_lft_td,dat.su_mj_tinc_pyr_td)
# su_mj_blunt_pyr_td
dat.su_mj_blunt_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_blunt_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_blunt_pyr_td.ses_00A=replace_na(su_mj_blunt_pyr_td.ses_00A,0),
su_mj_blunt_pyr_td.ses_01A=replace_na(su_mj_blunt_pyr_td.ses_01A,0),
su_mj_blunt_pyr_td.ses_02A=replace_na(su_mj_blunt_pyr_td.ses_02A,0),
su_mj_blunt_pyr_td.ses_03A=replace_na(su_mj_blunt_pyr_td.ses_03A,0),
su_mj_blunt_pyr_td.ses_04A=replace_na(su_mj_blunt_pyr_td.ses_04A,0),
su_mj_blunt_pyr_td.ses_05A=replace_na(su_mj_blunt_pyr_td.ses_05A,0),
su_mj_blunt_pyr_td.ses_06A=replace_na(su_mj_blunt_pyr_td.ses_06A,0),
su_mj_blunt_pyr_td.ses_01A.cf=su_mj_blunt_pyr_td.ses_00A+su_mj_blunt_pyr_td.ses_01A,
su_mj_blunt_pyr_td.ses_02A.cf=su_mj_blunt_pyr_td.ses_00A+su_mj_blunt_pyr_td.ses_01A+su_mj_blunt_pyr_td.ses_02A,
su_mj_blunt_pyr_td.ses_03A.cf=su_mj_blunt_pyr_td.ses_00A+su_mj_blunt_pyr_td.ses_01A+su_mj_blunt_pyr_td.ses_02A+su_mj_blunt_pyr_td.ses_03A,
su_mj_blunt_pyr_td.ses_04A.cf=su_mj_blunt_pyr_td.ses_00A+su_mj_blunt_pyr_td.ses_01A+su_mj_blunt_pyr_td.ses_02A+su_mj_blunt_pyr_td.ses_03A+su_mj_blunt_pyr_td.ses_04A,
su_mj_blunt_pyr_td.ses_05A.cf=su_mj_blunt_pyr_td.ses_00A+su_mj_blunt_pyr_td.ses_01A+su_mj_blunt_pyr_td.ses_02A+su_mj_blunt_pyr_td.ses_03A+su_mj_blunt_pyr_td.ses_04A+su_mj_blunt_pyr_td.ses_05A,
su_mj_blunt_pyr_td.ses_06A.cf=su_mj_blunt_pyr_td.ses_00A+su_mj_blunt_pyr_td.ses_01A+su_mj_blunt_pyr_td.ses_02A+su_mj_blunt_pyr_td.ses_03A+su_mj_blunt_pyr_td.ses_04A+su_mj_blunt_pyr_td.ses_05A+su_mj_blunt_pyr_td.ses_06A)
dat.su_mj_blunt_lft_td <- dat.su_mj_blunt_pyr_td %>% select(participant_id,su_mj_blunt_pyr_td.ses_00A,su_mj_blunt_pyr_td.ses_01A.cf,su_mj_blunt_pyr_td.ses_02A.cf,su_mj_blunt_pyr_td.ses_03A.cf,su_mj_blunt_pyr_td.ses_04A.cf,su_mj_blunt_pyr_td.ses_05A.cf,su_mj_blunt_pyr_td.ses_06A.cf) %>%
reshape2::melt(., id.vars="participant_id", measure.vars=c("su_mj_blunt_pyr_td.ses_00A","su_mj_blunt_pyr_td.ses_01A.cf","su_mj_blunt_pyr_td.ses_02A.cf","su_mj_blunt_pyr_td.ses_03A.cf","su_mj_blunt_pyr_td.ses_04A.cf","su_mj_blunt_pyr_td.ses_05A.cf","su_mj_blunt_pyr_td.ses_06A.cf"),variable.name="session_id",value.name="su_mj_blunt_lft_td") %>%
dplyr::mutate(session_id = factor(session_id,labels=c("ses_00A", "ses_01A", "ses_02A", "ses_03A", "ses_04A", "ses_05A", "ses_06A")))
dat <- left_join(dat,dat.su_mj_blunt_lft_td,by=c("participant_id","session_id"))
rm(dat.su_mj_blunt_lft_td,dat.su_mj_blunt_pyr_td)
# su_mj_vape_flwr_pyr_td
dat.su_mj_vape_flwr_pyr_td <- dat %>% dplyr::select(participant_id,session_id,su_mj_vape_flwr_pyr_td) %>%
{as.data.frame(.)} %>%
reshape(., idvar = "participant_id", timevar = "session_id", direction = "wide") %>%
dplyr::mutate(su_mj_vape_flwr_pyr_td.ses_00A=replace_na(su_mj_vape_flwr_pyr_td.ses_00A,0),
su_mj_vape_flwr_pyr_td.ses_01A=replace_na(su_mj_vape_flwr_pyr_td.ses_01A,0),
su_mj_vape_flwr_pyr_td.ses_02A=replace_na(su_mj_vape_flwr_pyr_td.ses_02A,0),
su_mj_vape_flwr_pyr_td.ses_03A=replace_na(su_mj_vape_flwr_pyr_td.ses_03A,0),
su_mj_vape_flwr_pyr_td.ses_04A=replace_na(su_mj_vape_flwr_pyr_td.ses_04A,0),
su_mj_vape_flwr_pyr_td.ses_05A=replace_na(su_mj_vape_flwr_pyr_td.ses_05A,0),
su_mj_vape_flwr_pyr_td.ses_06A=replace_na(su_mj_vape_flwr_pyr_td.ses_06A,0),
su_mj_vape_flwr_pyr_td.ses_01A.cf=su_mj_vape_flwr_pyr_td.ses_00A+su_mj_vape_flwr_pyr_td.ses_01A,
su_mj_vape_flwr_pyr_td.ses_02A.cf=su_mj_vape_flwr_pyr_td.ses_00A+su_mj_vape_flwr_pyr_td.ses_01A+su_mj_vape_flwr_pyr_td.ses_02A,
su_mj_vape_flwr_pyr_td.ses_03A.cf=su_mj_vape_flwr_pyr_td.ses_00A+su_mj_vape_flwr_pyr_td.ses_01A+su_mj_vape_flwr_pyr_td.ses_02A+su_mj_vape_flwr_pyr_td.ses_03A,
su_mj_vape_flwr_pyr_td.ses_04A.cf=su_mj_vape_flwr_pyr_td.ses_00A+su_mj_vape_flwr_pyr_td.ses_01A+su_mj_vape_flwr_pyr_td.ses_02A+su_mj_vape_flwr_pyr_td.ses_03A+su_mj_vape_flwr_pyr_td.ses_04A,
su_mj_vape_flwr_pyr_td.ses_05A.cf=su_mj_vape_flwr_pyr_td.ses_00A+su_mj_vape_flwr_pyr_td.ses_01A+su_mj_vape_flwr_pyr_td.ses_02A+su_mj_vape_flwr_pyr_td.ses_03A+su_mj_vape_flwr_pyr_td.ses_04A+su_mj_vape_flwr_pyr_td.ses_05A,
su_mj_vape_flwr_pyr_td.ses_06A.cf=su_mj_vape_flwr_pyr_td.ses_00A+su_mj_vape_flwr_pyr_td.ses_01A+su_mj_vape_flwr_pyr_td.ses_02A+su_mj_vape_flwr_pyr_td.ses_03A+su_mj_vape_flwr_pyr_td.ses_04A+su_mj_vape_flwr_pyr_t

ABCD_6_SU_00_coding.R, no license · at the source

Overview

Authors: Ryan M Sullivan¹, Alexander L Wallace¹, Chase A Shankula², Olivier Celhay³, Laura R Ziemer³, Calen J Smith³, Samantha Berman³, Janosch Linkersdörfer³, Meghan E Martz⁴, Kelly E Courtney¹, Joanna Jacobus¹, Susan F Tapert¹, Mary M Heitzeg⁴, Krista M Lisdahl², Natasha E Wade¹

ORCID iDs: Ryan M Sullivan, Alexander L Wallace, Chase A Shankula, Olivier Celhay, Laura R Ziemer, Calen J Smith, Samantha Berman, Janosch Linkersdörfer, Kelly E Courtney, Susan F Tapert, Krista M Lisdahl

Institutions: University of California San Diego (United States); University of Wisconsin–Milwaukee (United States); J. Craig Venter Institute (United States); University of Michigan (United States)

Journal: Drug and alcohol dependence reports, volume 20, article 100463

Dates: received 9 July 2026; accepted 12 July 2026; published online 13 July 2026

Type: Research article · Language: English

License: CC BY-NC

Identifiers: DOI 10.1016/j.dadr.2026.100463 · PMID 42541135 · PMCID PMC13427407 · OpenAlex W7168178698

Open access: gold, a free copy (OpenAlex)

Status: code verified

Categories: human (organism), other condition (population), developmental (subfield)

Methods: Machine learning, Statistics

Keywords: Substance Use, Cohort Study, Alcohol, Cannabis, Nicotine, Polysubstance Use

Topic: Substance Abuse Treatment and Outcomes (Epidemiology, Medicine), according to OpenAlex

Funding: NIDA NIH HHS (U01 DA041028, U01 DA041148, U01 DA050988, U01 DA051038, U01 DA041089, U01 DA041025, U01 DA041117, U01 DA041156, U01 DA050987, U01 DA051039, U01 DA041022, U01 DA041048, U01 DA041134, U01 DA051018, U01 DA051037, U01 DA050989, U01 DA051016, U24 DA041147, U01 DA041106, U01 DA041120, U01 DA041174, U01 DA041093, U24 DA041123); National Institute on Drug Abuse

Citations: cited by 1 paper (Europe PMC); 37 references in the paper

Abstract

Background: Adolescent substance use is a continued public health concern. The objective of this manuscript is to detail the prevalence of substance use, polysubstance use, and investigate sex differences in the Adolescent Brain Cognitive Development (ABCD) Study from ages 9–17.

Methods: 11,880 youth across the U.S., recruited at ages 9–10, completed annual study visits from September 2016 to January 2024. The ABCD 6.0 data release comprises baseline to year-6 data. Lifetime and annual substance use prevalence rates, sex differences, and polysubstance use are described and analyzed.

Results: Past-year substance use prevalence increased with age; 38% report lifetime use by age 16. Alcohol, cannabis, and nicotine were the most reported substances. There were non-significant differences observed between unweighted trends and census-weighted trends. More boys reported substance use prior to age 12, then from age 13 onward, more girls reported use. Polysubstance use analyses detail the occurrence of the most shared substance use patterns and divergent reports across the sexes.

Conclusions: Descriptively, these prevalence rates mirror other national surveys showing increases in reported use across early adolescence, with alcohol, cannabis, and nicotine being the most used substances. Unique sex differences and polysubstance use prevalence rates are contextualized alongside prior national reports of these behaviors in the U.S. Understanding the latest prevalences, specifically in a well-phenotyped cohort, helps to guide knowledge for continued analysis of antecedents and sequelae of substance use on health.

Reproduced under the paper's license (CC BY-NC), from the paper cited above.

Repository

Its files are read in the Code ↔ Paper reader above, with 1 match between paragraphs and lines of code.

OSF dgqc9

License: none: the authors keep all their rights

State: the link answers, verified on 27 September 2026

Evidence: files inventoried

Languages: R (5)

Size: 10 files, 5 scripts

Software Heritage: not checked

Found in: the text, “Statistical analysis”

Not found: README, license file, CITATION.cff, environment file, tests, continuous integration, documentation

Tools: reshape2 (4 files), tidyverse (4 files), ggplot2 (1 file), ggpubr (1 file)

Availability: 1 check, the latest on 27 September 2026: the link answers (HTTP 200)

27 September 2026: the link answers (HTTP 200)

5 files

Scripts+Codebook/ABCD_6_SU_00_coding.R, R, 1,763 lines, 1 match
Scripts+Codebook/ABCD_6_SU_01_weighting.R, R, 1,125 lines
Scripts+Codebook/ABCD_6_SU_02_association.R, R, 782 lines
Scripts+Codebook/ABCD_6_SU_03_tabs_figs.R, R, 3,618 lines
Scripts+Codebook/ABCD_SU_51_to_60_variablenames.R, R, 174 lines

At the source: doi.org/10.17605/OSF.IO/DGQC9

The paper's code and data availability statement is in the Data section.

Tracing map

Proposed by the machine: these links were found in the paper and verified at the source, without human review. The map will receive a Zenodo DOI once one of the paper's authors has validated it with their ORCID.

What the map holds:

1 repository of the authors' code, each at its verified commit, with its license and how the link was found in the paper;
5 scripts, each with its path and the digest of its content;
1 match between paragraphs of the paper and lines of the code (method lexical-v1);
neither the text of the paper nor the code itself.

Its JSON (tracing-map.json) is deposited on Zenodo with its DOI once the map is validated.

Data

No dataset and no data link were found in the paper.

Data Availability

Data used in the preparation of this article were obtained from the Adolescent Brain Cognitive Development™ (ABCD) Study (https://abcdstudy.org/), held in the NIH Brain Development Cohorts Data Sharing Platform (https://www.nbdc-datahub.org/). This is a multisite, longitudinal study designed to recruit more than 10,000 children aged 9–10 and follow them over 10 years into early adulthood. Code to reproduce these results are located in an OSF repository: https://doi.org/10.17605/OSF.IO/DGQC9.

Reproduced under the paper's license (CC BY-NC), from the paper cited above.

Versions

The history of this record: each version stored by the harvester or made by a correction of its authors or of the maintainers of its code, and what changed in its facts. The texts of the paper (its abstract, its availability statements) are not part of it; versions that changed only those are not listed.

Version 2, 28 September 2026

Authors: added Ryan M Sullivan (0000-0001-9180-4909); Alexander L Wallace (0000-0002-2224-196X); Chase A Shankula (0000-0002-7922-655X); Olivier Celhay (0000-0002-2971-9110); Laura R Ziemer (0000-0003-0026-3823); Calen J Smith (0009-0005-8949-9382); Samantha Berman (0000-0002-9803-019X); Kelly E Courtney (0000-0002-9280-2435); Susan F Tapert (0000-0001-7259-6112); Krista M Lisdahl (0000-0001-9515-1335); removed Ryan M Sullivan; Alexander L Wallace; Chase A Shankula; Olivier Celhay; Laura R Ziemer; Calen J Smith; Samantha Berman; Kelly E Courtney; Susan F Tapert; Krista M Lisdahl

Version 1, 27 September 2026: the first record

Recorded: type, language, journal, volume, pages, dates, 15 authors, 6 keywords, 2 funders, 34 references.

Cite

This paper

Sullivan, R. M., Wallace, A. L., Shankula, C. A., Celhay, O., Ziemer, L. R., Smith, C. J., Berman, S., Linkersdörfer, J., Martz, M. E., Courtney, K. E., Jacobus, J., Tapert, S. F., Heitzeg, M. M., Lisdahl, K. M., & Wade, N. E. (2026). Substance use patterns from late childhood to mid-adolescence: Updates on the Adolescent Brain Cognitive Development Study. Drug and alcohol dependence reports, 20, 100463. https://doi.org/10.1016/j.dadr.2026.100463

BibTeX

@article{sullivan2026substance, author = {Sullivan, Ryan M and Wallace, Alexander L and Shankula, Chase A and Celhay, Olivier and Ziemer, Laura R and Smith, Calen J and Berman, Samantha and Linkersdörfer, Janosch and Martz, Meghan E and Courtney, Kelly E and Jacobus, Joanna and Tapert, Susan F and Heitzeg, Mary M and Lisdahl, Krista M and Wade, Natasha E}, title = {{Substance use patterns from late childhood to mid-adolescence: Updates on the Adolescent Brain Cognitive Development Study}}, journal = {Drug and alcohol dependence reports}, year = {2026}, month = jul, volume = {20}, pages = {100463}, publisher = {Elsevier}, issn = {2772-7246}, doi = {10.1016/j.dadr.2026.100463}, url = {https://doi.org/10.1016/j.dadr.2026.100463}, pmid = {42541135}, pmcid = {PMC13427407} }

RIS

TY - JOUR AU - Sullivan, Ryan M AU - Wallace, Alexander L AU - Shankula, Chase A AU - Celhay, Olivier AU - Ziemer, Laura R AU - Smith, Calen J AU - Berman, Samantha AU - Linkersdörfer, Janosch AU - Martz, Meghan E AU - Courtney, Kelly E AU - Jacobus, Joanna AU - Tapert, Susan F AU - Heitzeg, Mary M AU - Lisdahl, Krista M AU - Wade, Natasha E TI - Substance use patterns from late childhood to mid-adolescence: Updates on the Adolescent Brain Cognitive Development Study T2 - Drug and alcohol dependence reports J2 - Drug Alcohol Depend Rep PY - 2026 DA - 2026/07/13 VL - 20 SP - 100463 SN - 2772-7246 PB - Elsevier DO - 10.1016/j.dadr.2026.100463 UR - https://doi.org/10.1016/j.dadr.2026.100463 LA - en ER -

CSL-JSON

{ "id": "10.1016/j.dadr.2026.100463", "type": "article-journal", "title": "Substance use patterns from late childhood to mid-adolescence: Updates on the Adolescent Brain Cognitive Development Study", "container-title": "Drug and alcohol dependence reports", "author": [ { "family": "Sullivan", "given": "Ryan M" }, { "family": "Wallace", "given": "Alexander L" }, { "family": "Shankula", "given": "Chase A" }, { "family": "Celhay", "given": "Olivier" }, { "family": "Ziemer", "given": "Laura R" }, { "family": "Smith", "given": "Calen J" }, { "family": "Berman", "given": "Samantha" }, { "family": "Linkersdörfer", "given": "Janosch" }, { "family": "Martz", "given": "Meghan E" }, { "family": "Courtney", "given": "Kelly E" }, { "family": "Jacobus", "given": "Joanna" }, { "family": "Tapert", "given": "Susan F" }, { "family": "Heitzeg", "given": "Mary M" }, { "family": "Lisdahl", "given": "Krista M" }, { "family": "Wade", "given": "Natasha E" } ], "container-title-short": "Drug Alcohol Depend Rep", "volume": "20", "page": "100463", "DOI": "10.1016/j.dadr.2026.100463", "PMID": "42541135", "PMCID": "PMC13427407", "ISSN": "2772-7246", "publisher": "Elsevier", "URL": "https://doi.org/10.1016/j.dadr.2026.100463", "language": "en", "issued": { "date-parts": [ [ 2026, 7, 13 ] ] } }

The tracing map gets a citation of its own once an author has validated it and it has a DOI.

Similar papers

The papers with a page that share the most with this one: the tools found in their code, their categories, datasets, cited references and authors, the rarest counting most.

[1] doi:10.1111/acer.70370 [code]: Low-Level Alcohol Consumption in Children 11-12 Years Old Is Linked to Neural Substrates Involved in Reward Processing and Inhibitory Control: Results From a Brain-Wide Association Study.
Journal: Alcohol, clinical & experimental research
In common: tidyverse, other condition, 2 references, author Ryan M Sullivan
[2] doi:10.1016/j.dcn.2026.101738 [code]: Timing and tempo of puberty and neurodevelopment following adversity: A registered report.
Journal: Developmental cognitive neuroscience
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental, 1 reference
[3] doi:10.1038/s41467-026-76675-1 [code]: Long-read proteogenomic atlas of human neuronal differentiation reveals isoform diversity informing neurodevelopmental risk mechanisms.
Journal: Nature communications
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental
[4] doi:10.1038/s41586-026-10877-x [code]: Human brain organoids record the passage of time over multiple years.
Journal: Nature
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental
[5] doi:10.1038/s41467-026-75722-1 [code]: Single-nucleus analysis of the adult human olfactory epithelium uncovers shared neurogenesis programs with the brain.
Journal: Nature communications
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental
[6] doi:10.7554/elife.107088 [code]: Development of auditory and spontaneous movement responses to music over the first postnatal year.
Journal: eLife
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental
[7] doi:10.1093/cercor/bhag077 [code]: The longitudinal development of intrinsic timescales in infancy and their relation to alpha brain rhythm.
Journal: Cerebral cortex (New York, N.Y. : 1991)
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental
[8] doi:10.7554/elife.103097 [code]: Canonical neurodevelopmental trajectories of structural and functional manifolds.
Journal: eLife
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental
[9] doi:10.1038/s41467-026-73072-6 [code]: Mapping the spatiotemporal continuum of structural connectivity development across the human connectome in youth.
Journal: Nature communications
In common: reshape2, ggplot2, tidyverse, developmental, 1 reference
[10] doi:10.1038/s44318-026-00806-z [code]: Interspecific diversity in the neuronal composition of the mammalian cortex arises from heterochrony in neurogenesis.
Journal: The EMBO journal
In common: reshape2, ggpubr, ggplot2, 1 other tool, developmental

Contribute

The authors of this paper can claim it, correct its record and validate its tracing map, and the maintainers of its code (its owner, or a public member of its organization) correct what it says of their repository; anyone signed in can ask for its removal. Every request goes to OSCR's own machine, which answers it; your account page follows them.

Sign in with ORCID to claim this paper as one of its authors, correct its record or validate its tracing map: when the paper's metadata lists your ORCID iD, you are recognized at once. Maintainers of its code: sign in with GitHub, then claim the repository on your account page.

Request its removal

To ask OSCR to remove this record, the copies of its authors' scripts or its tracing map, use the removal request page: signed in, you say who you are, what to remove and why, then review and confirm the request. Published rules decide every request (how).

Discussion, reproductions, activity

Discussion: questions and error reports about this paper and its code, from signed-in readers and its authors. It opens with sign-in.

Reproductions: reports from readers who ran the authors' code: what they reproduced, with which environment, commit and data. It opens with sign-in.

Activity: what happens around this paper: new versions of its record, its map's validation, discussions and reproductions. It opens with sign-in.