if (FALSE) {
df <- data.frame(
Percentile = c(0.025, 0.975),
RICandPointEst = c(12, 65),
RICandMarginLow = c(10.9013, 60.2780),
RICandMarginHigh = c(13.86800, 72.64152),
RIDataPointEst = c(13, 69),
RIDataMarginLow = c(11.60130, 63.77848),
RIDataMarginHigh = c(14.39861, 74.22152),
OverlapPointEst = c(TRUE, TRUE),
OverlapMargins = c(TRUE, TRUE)
)
RIperc <- c(0.025, 0.975)
printVerificationTable(df, RIperc)
}
Run the code above in your browser using DataLab