cchangee ![代码如下:
library(meta)
trialdata <- read.csv(file = 'D:\\Rstudio\\trialdata.csv', header = TRUE)
View(trialdata)
trialdata$HR <- log(trialdata$HR)
trialdata$LCI <- log(trialdata$LCI)
trialdata$UCI <- log(trialdata$UCI)
trialdata$seTE <- (trialdata$UCI - trialdata$LCI)/3.92
metagen(HR,
seTE,
studlab = 锘緼uthor,
method.tau = "SJ",
sm = "SRR",
data = trialdata,
prediction = TRUE)