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.
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.