# NOT RUN {
data(DVTipd)
DVTipd$cluster <- 1:4 # Add a fictional clustering to the data set.
metamisc:::metapred(DVTipd, strata = "cluster", f = dvt ~ sex + vein + malign, family = binomial)
# }
# NOT RUN {
# Some additional examples:
metamisc:::metapred(DVTipd, strata = "cluster", f = dvt ~ sex + vein + malign
, family = binomial, stepwise = FALSE)
metamisc:::metapred(DVTipd, strata = "cluster", f = dvt ~ sex + altdiagn + histdvt
, family = binomial, recal.int = TRUE)
metamisc:::metapred(DVTipd, strata = "cluster", f = dvt ~ sex + altdiagn + histdvt
, family = binomial, meta.method = "DL")
# }
# NOT RUN {
# By default, metapred assumes the first column is the outcome.
DVTipd.reordered <- DVTipd[c("dvt", "ddimdich", "histdvt", "cluster")]
mp <- metamisc:::metapred(DVTipd.reordered, strata = "cluster", family = binomial)
fitted <- predict(mp, newdata = DVTipd.reordered)
# }
Run the code above in your browser using DataLab