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

data = getData("ocd-psyctr", version = "24.0.1")
dat = data$data

list(
  dat = dat %>%
    runMetaAnalysis("combined") %>%
    {.$model.combined$data} %>%
    {.$N = .$baseline_n_arm1 + .$baseline_n_arm2; .},
  metadata = data$returnMetadata()
) -> OcdDB

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