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

data = getData("borderline-psyctr", version = "23.0.1")
dat = data$data

list(
  dat = dat %>%
    runMetaAnalysis("combined") %>%
    {.$model.combined$data} %>%
    {.$N = .$rand_arm1 + .$rand_arm2;
     .$.TE = .$.TE*-1; .},
  metadata = data$returnMetadata()
) -> BpdDB

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