constants.R

footnote <- "'MZ: Monozygotic, DZ: Dizygotic, DCQ: Dysmorphic concerns questionnaire, MPVS: Multidimensional peer victimization scale, y: year(s)
    ***: p-value <=0.001, **: 0.001 < p-value <= 0.01, *: 0.01 < p-value <= 0.05'"
footnote_acronyms <- "'MZ: Monozygotic, DZ: Dizygotic, DCQ: Dysmorphic concerns questionnaire,MPVS: Multidimensional peer victimization scale, y: year(s)'"
footnote_acronyms_2 <- "n refers to the number of individuals, MZ: Monozygotic, DZ: Dizygotic, DCQ: Dysmorphic concerns questionnaire, MPVS: Multidimensional peer victimization scale, y: year(s), M: mean, SD: standard deviation. At 16y MPVS had 6 items, whereas a 16-item version was used at all other waves. At age 26, there were no missing data because the missing values were replaced with the co-twin’s values. Pearson's Chi-squared test was used for categorical variables; Welch Two Sample t-test for continuous"
footnote_acronyms_incompleteness <- "n refers to the number of individuals, MZ: Monozygotic, DZ: Dizygotic, DCQ: Dysmorphic concerns questionnaire, MPVS: Multidimensional peer victimization scale, y: year(s). At 16y MPVS had 6 items, whereas a 16-item version was used at all other waves."
foonote_acronymns_for_dag_plots <- "DCQ: Dysmorphic concerns questionnaire, MPVS: Multidimensional peer victimization scale, y: year(s)
Dashed lines: p-value>0.05. Solid lines: p-value<=0.05"


var_labels <- list(
  "dcq_total_26_1" = "DCQ",
  "mpvs_total_12_1_scaled_32" = "MPVS (12y)",
  "mpvs_total_child_14_1_scaled_32" = "MPVS (14y)",
  "mpvs_total_16_1_scaled_32" = "MPVS (16y)",
  "mpvs_total_phase_2_21_1_scaled_32" = "MPVS (21y)",
  "age_child_12_1" = "Age (12y)",
  "age_child_14_1" = "Age (14y)",
  "age_child_web_16_1" = "Age (16y)",
  "age_phase2_child_21_1" = "Age (21y)",
  "age_26_1" = "Age (26y)",
  "sex_1_fct" = "Sex"
)