tests/testthat/test-cal-gps-dist.R
In BruceZhaoR/pjutils: Pingjia data calculation tools
context("test-cal-gps-dist")
test_that("cal-gps-dist works", {
expect_equal(0, cal_gps_dist(121.434174,31.158213,121.434174,31.158213))
# 1.58km, earth two points distance
expect_equal(1.58, round(cal_gps_dist(121.434174,31.158213,121.444366,31.169403) / 1000, 2))
})
BruceZhaoR/pjutils documentation built on May 20, 2019, 11:38 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.
context("test-cal-gps-dist")
test_that("cal-gps-dist works", {
expect_equal(0, cal_gps_dist(121.434174,31.158213,121.434174,31.158213))
# 1.58km, earth two points distance
expect_equal(1.58, round(cal_gps_dist(121.434174,31.158213,121.444366,31.169403) / 1000, 2))
})
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.