library(metapsyData)
library(metapsyTools)
library(tidyverse)

data = getData("sad-psyctr", version = "24.0.0")
dat = data$data

list(
  dat = dat %>%
    runMetaAnalysis("combined") %>%
    {.$model.combined$data} %>%
    {.$N = (.$bl_n_arm1 + .$bl_n_arm2) %>% round(); .},
  metadata = data$returnMetadata()
) -> SadDB

save(SadDB, file="www/data/SadDB.rda")