library(metapsyData)
library(metapsyTools)

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

list(
  dat = dat %>%
    runMetaAnalysis(
      "combined") %>%
    {.$model.combined$data},
  metadat = data$returnMetadata()
) -> PanicDB


PanicDB$dat$.TE = PanicDB$dat$.TE*-1