histdat: a data.frame with two columns. The first has to contain the historical observations. The second has to contain the number of experimental units per study (offsets).
newdat: a data.frame with two columns. The first has to contain the future observations. The second has to contain the number of experimental units per study (offsets).
newoffset: vector with future number of experimental units per historical study.
alternative: either "both", "upper" or "lower". alternative specifies if a prediction interval or an upper or a lower prediction limit should be computed
alpha: defines the level of confidence (1−α)
nboot: number of bootstraps
delta_min: lower start value for bisection
delta_max: upper start value for bisection
tolerance: tolerance for the coverage probability in the bisection
traceplot: if TRUE: Plot for visualization of the bisection process
n_bisec: maximal number of bisection steps
algorithm: either "MS22" or "MS22mod" (see details)
Returns
quasi_pois_pi returns an object of class c("predint", "quasiPoissonPI")
with prediction intervals or limits in the first entry ($prediction).
Details
This function returns bootstrap-calibrated prediction intervals as well as lower or upper prediction limits.
If algorithm is set to "MS22", both limits of the prediction interval are calibrated simultaneously using the algorithm described in Menssen and Schaarschmidt (2022), section 3.2.4. The calibrated prediction interval is given as
[l,u]m=nm∗λ^±qcalibnm∗ϕ^λ^+∑hnhnm∗2ϕ^λ^
with nm∗ as the number of experimental units in the future clusters, λ^ as the estimate for the Poisson mean obtained from the historical data, qcalib as the bootstrap-calibrated coefficient, ϕ^ as the estimate for the dispersion parameter and nh as the number of experimental units per historical cluster.
If algorithm is set to "MS22mod", both limits of the prediction interval are calibrated independently from each other. The resulting prediction interval is given by
Please note, that this modification does not affect the calibration procedure, if only prediction limits are of interest.
Examples
#' # Historical dataqp_dat1
# Future dataqp_dat2
# Pointwise prediction intervalpred_int <- quasi_pois_pi(histdat=ames_HCD, newoffset=3, nboot=100)summary(pred_int)# Pointwise upper predictionpred_u <- quasi_pois_pi(histdat=ames_HCD, newoffset=3, alternative="upper", nboot=100)summary(pred_u)# Please note that nboot was set to 100 in order to decrease computing time# of the example. For a valid analysis set nboot=10000.
References
Menssen and Schaarschmidt (2022): Prediction intervals for all of M future observations based on linear random effects models. Statistica Neerlandica, tools:::Rd_expr_doi("10.1111/stan.12260")