Skip to contents

The calibration suite: every guarantee the documentation states that a simulation can check, with the realised value and its Monte Carlo standard error. Location intervals are scored for coverage (conditional on a changepoint landing within 20 positions of the truth), tests for their size at 5% on data with no change, and monitors for their in-control run length. The row for cpt_test() at a location the data chose is there to show what selection_adjusted = FALSE means: its nominal 5% is not what it delivers.

Usage

cpt_calibration

Format

A tibble with one row per guarantee and setting:

guarantee

what is promised, and by which function.

call

the call that was measured.

setting

the data and the options it was measured on.

kind

"coverage", "size" or "run_length".

nominal

the promised value: a confidence level, a test's level or an average run length (for the e-detector, a lower bound).

realised

the measured value.

mcse

its Monte Carlo standard error.

reps

replicates that counted (for coverage, those that detected the change).

Source

data-raw/calibration.R.

Examples

cpt_calibration[, c("call", "nominal", "realised", "mcse")]
#> # A tibble: 15 × 4
#>    call                                                  nominal realised   mcse
#>    <chr>                                                   <dbl>    <dbl>  <dbl>
#>  1 "cpt_detect(x, method = \"strucchange\")"                0.95   0.953  4.7e-3
#>  2 "cpt_detect(x, method = \"smuce\", alpha = 0.05)"        0.95   1      5  e-4
#>  3 "cpt_confint(cpt_detect(x), method = \"bootstrap\")"     0.95   0.968  5.6e-3
#>  4 "cpt_test_at(x, when = 51)"                              0.05   0.0395 4.4e-3
#>  5 "cpt_test_at(x, when = 51, family = \"poisson\")"        0.05   0.038  4.3e-3
#>  6 "cpt_test_at(x, when = 51, family = \"binomial\")"       0.05   0.0295 3.8e-3
#>  7 "cpt_test_at(x, when = 51, family = \"exponential\")"    0.05   0.059  5.3e-3
#>  8 "cpt_test_at(x, when = 51, family = \"l1\")"             0.05   0.0485 4.8e-3
#>  9 "cpt_test_at(x, when = 51, window = 5)"                  0.05   0.048  4.8e-3
#> 10 "cpt_test_null(x)"                                       0.05   0.049  4.8e-3
#> 11 "cpt_test_null(x, method = \"pettitt\")"                 0.05   0.0315 3.9e-3
#> 12 "cpt_test_null(x, method = \"supF\")"                    0.05   0.0495 4.9e-3
#> 13 "cpt_test(cpt_detect(x, method = \"amoc\", penalty =…    0.05   0.546  1.1e-2
#> 14 "cpt_monitor(\"cpm\", arl0 = 500)"                     500    548      2.7e+1
#> 15 "cpt_monitor(\"edetector\", baseline = b, alpha = 0.…  100    186      1.1e+1