library(metapsyData)
library(metapsyTools)

data = getData("depression-childadol-psyctr", version="23.0.2")
dat = data$data

list(
  dat = dat %>%
    filterPoolingData(
      comparison == "PSY vs CTR") %>%
      # Correct coding errors
      mutate(percent_women = ifelse(percent_women > 1,
             round(percent_women/100,2), percent_women),
             percent_women = round(as.numeric(percent_women)*100,2),
             n_sessions_ig = round(as.numeric(n_sessions_ig),0),
             n_sessions_ig = ifelse(n_sessions_ig > 1e4, NA, n_sessions_ig)) %>%
    runMetaAnalysis(
      "combined") %>%
    {.$model.combined$data},
  metadata = data$returnMetadata()
) -> DepressionChildAdolDB


DepressionChildAdolDB$dat$.TE = DepressionChildAdolDB$dat$.TE*-1
save(DepressionChildAdolDB, file="www/data/DepressionChildAdolDB.rda")