# Calibration Belt Significant Deviations

### Description

`calibrationBeltIntersections`

returns the
intervals where the calibration belt significantly deviates
from the bisector.

### Usage

1 | ```
calibrationBeltIntersections(cbBound, seqP, minMax)
``` |

### Arguments

`cbBound` |
A |

`seqP` |
The vector of the the probabilities where the points of the calibration belt have been evaluated. |

`minMax` |
A list with two elements, named |

### Value

A list with two components, `overBisector`

and `underBisector`

.
Each component is a list containing all the intervals where the calibration
belt is significantly over/under the bisector.

### See Also

`givitiCalibrationBelt`

and `plot.givitiCalibrationBelt`

to compute and plot the calibaration belt, and
`givitiCalibrationTest`

to perform the
associated calibration test.

### Examples

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)
``` |