Hi Kindly try this, hope it helps
#######################################################
#Creating Dataset
#######################################################
study <- c("Edinburgh", "Orpington-Mild", "Orpington-Moderate", "Orpington-Severe", "Montreal-Home", "Montreal-Transfer", "Newcastle", "Umea", "Uppsala")
n <- c(155, 31, 75, 18, 8, 57, 34, 110, 60)
mean <- c(55, 27, 64, 66, 14, 19, 52, 21, 30)
sd <- c(47, 7, 17, 20, 8, 7, 45, 16, 27)
df <- data.frame(study,n,mean,sd)
library(meta)
m1 <- metamean(n = n,
mean = mean,
sd = sd,
studlab = study,
data = df,
sm = 'MLN',
random = TRUE,
warn = TRUE,
prediction = TRUE)
#######################################################
Forest Plot & Funnel Plot
#######################################################
meta::forest(m1)
meta::funnel(m1)