Calibration Belt Significant Deviations
calibrationBeltIntersections returns the
intervals where the calibration belt significantly deviates
from the bisector.
calibrationBeltIntersections(cbBound, seqP, minMax)
The vector of the the probabilities where the points of the calibration belt have been evaluated.
A list with two elements, named
A list with two components,
Each component is a list containing all the intervals where the calibration
belt is significantly over/under the bisector.
to compute and plot the calibaration belt, and
givitiCalibrationTest to perform the
associated calibration test.
1 2 3 4 5 6 7 8 9 10 11 12 13 14
e <- runif(1000) logite <- logit(e) eMod <- logistic(logit(e) + (logit(e))^2) o <- rbinom(1000, size = 1, prob = eMod) data <- data.frame(e = e, o = o, logite = logite) seqP <- seq(from = .01, to =.99, by = .01) seqG <- logit(seqP) minMax <- list(min = min(e), max = max(e)) fwLR <- polynomialLogRegrFw(data, .95, 4, 1) cbBound <- calibrationBeltPoints(data, seqG, fwLR$m, fwLR$fit, .95, .90, "external") calibrationBeltIntersections(cbBound, seqP, minMax)
Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.