test_getBreaks.R
In cartography: Thematic Cartography

library(sf)
library(sp)
mtq <- st_read(system.file("gpkg/mtq.gpkg", package="cartography"), quiet = TRUE)
v <- mtq$MED
expect_equal(getBreaks(v = v, nclass = 6, method = "fisher-jenks"),
             c(11929, 13953, 15685.5, 17372, 18622, 20354.5, 21761))
expect_equal(getBreaks(v = v, nclass = 6, method = "geom"), 
             c(11929, 13186.1043108293, 14575.6850445193, 16111.7028584815, 
               17809.5896149738, 19686.40341991, 21761)) 
expect_equal(getBreaks(v = v,  method = "arith"), 
             c(11929, 12397.1904761905, 12865.380952381, 13333.5714285714, 
               13801.7619047619, 14269.9523809524, 21761))
expect_equal(getBreaks(v = v,  method = "q6"), 
             c(11929, 13168.65, 14468.275, 15685.5, 17750.25, 20159.35, 
               21761))
expect_equal(getBreaks(v = v, nclass = 8,method = "em"), 
             c(11929, 13334.5, 14369.1578947368, 15121.6363636364, 
               16137.7058823529, 17121.875, 18377.8666666667, 
               19813.2857142857, 21761))
expect_equal(getBreaks(v = v, method = "msd", k = 1, middle = TRUE),
             c(11929, 12548.5835933576, 14941.3317860212, 17334.0799786847, 
               19726.8281713483, 21761))
expect_equal(getBreaks(v = v, method = "msd", k = 1),
             c(11929, 13744.9576896894, 16137.7058823529, 18530.4540750165, 
               20923.2022676801, 21761))
expect_error(getBreaks(v = v, nclass = 7, method = "em"))