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

data = getData("ed-psyctr", version="25.0.0")
dat = data$data

list(
  dat = dat %>%
    # Do minor data manipulations
    runMetaAnalysis("combined", which.combine="studies") %>%
    {.$model.combined$data},
  metadata = data$returnMetadata()
) -> EdDB

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