# NOT RUN {
t <- c(3.4, NA, NA, NA, NA, 2.8, 2.1, 3.1, 2.0, 3.4)
n <- c(40, 20, 22, 24, 18, 30, 25, 30, 16, 22)
m <- meta(smc_from_t(t, n))
mean.age <- rnorm(10, 30, 5)
m <- metalm(m, ~ mean.age)
linearHypothesis(m, list(age_10years = c(0, 10)))
# }
Run the code above in your browser using DataLab