tests/testthat/test-utils.R
In GeoDaCenter/rgeoda: R Library for Spatial Data Analysis
context("utils.R")
testthat::test_that("natural_breaks", {
guerry_path <- system.file("extdata", "Guerry.shp", package = "rgeoda")
guerry <- st_read(guerry_path)
brks <- natural_breaks(5, guerry["Crm_prs"])
testthat::expect_equal(brks, c(9474, 16722, 23316, 29872))
})
GeoDaCenter/rgeoda documentation built on Dec. 20, 2024, 11:18 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("utils.R")
testthat::test_that("natural_breaks", {
guerry_path <- system.file("extdata", "Guerry.shp", package = "rgeoda")
guerry <- st_read(guerry_path)
brks <- natural_breaks(5, guerry["Crm_prs"])
testthat::expect_equal(brks, c(9474, 16722, 23316, 29872))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.