tests/testthat/test-utils-calculateDistance.R
In adambondarzewski/marine: Demo app
test_that("calculateGeographicalDistance works", {
expect_equal(
calculateGeographicalDistance(57.60287, 57.62190, 11.66572, 11.67703),
geosphere::distm(x = c(57.60287, 11.66572), y = c(57.62190, 11.67703), geosphere::distHaversine)[1,1]
)
expect_equal(calculateGeographicalDistance(52.2297, 52.2297, 21.0122, 21.0122), 0)
})
adambondarzewski/marine documentation built on Jan. 25, 2021, 9:14 a.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.
test_that("calculateGeographicalDistance works", {
expect_equal(
calculateGeographicalDistance(57.60287, 57.62190, 11.66572, 11.67703),
geosphere::distm(x = c(57.60287, 11.66572), y = c(57.62190, 11.67703), geosphere::distHaversine)[1,1]
)
expect_equal(calculateGeographicalDistance(52.2297, 52.2297, 21.0122, 21.0122), 0)
})
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.