### load data
dat <- get(data(dat.berkey1998))
### construct list of the variance-covariance matrices of the observed outcomes for the studies
V <- lapply(split(dat[,c("v1i", "v2i")], dat$trial), as.matrix)
### construct block diagonal matrix
V <- bldiag(V)
### fit multiple outcomes (meta-regression) model (with ML estimation)
res <- rma.mv(yi, V, mods = ~ outcome + outcome:I(year - 1983) - 1,
random = ~ outcome | trial, struct="UN", data=dat, method="ML")
print(res, digits=3)
Run the code above in your browser using DataLab