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")