tests/testthat/test_1-0-0_haversine_distance.R

context("Haversine distance")

# bankstown to sydney airports approximately 17628m
test_that("Bankstown airport to Sydney airport approximately 17628m", {
  expect_lt(haversine_distance(-33 - 56/60 - 46/3600, 151 + 10/60 + 38/3600, 
                               -33 - 55/60 - 28/3600, 150 + 59/60+18/3600) / 17.628 - 1, 
            0.01)
})

test_that("Broken Hill airport to Sydney airport approximately 932158", {
  expect_lt(haversine_distance(-33 - 56/60 - 46/3600, 151 + 10/60 + 38/3600, 
                               -32 - 00/60 - 05/3600, 141 + 28/60 + 18/3600) / 932.158 - 1, 
            0.01)
})

Try the hutils package in your browser

Any scripts or data that you put into this service are public.

hutils documentation built on Nov. 1, 2018, 5:05 p.m.