library(ecefR)
context("Number Checking")
test_that("Numbers are correct", {
ecef <- c(-1472.238, 5005.461, 3692.592)
lla <- c(35.46943, 106.39, 20.9998)
expect_equal(xyz2lla(ecef[1], ecef[2], ecef[3]), lla, tolerance = 1e-6)
expect_equal(lla2xyz(lla[1], lla[2], lla[3]), ecef, tolerance = 1e-6)
ecef <- c(123, 456, 789)
lla <- c(60.2444, 74.90448, -5442.65383)
expect_equal(xyz2lla(ecef[1], ecef[2], ecef[3]), lla, tolerance = 1e-6)
expect_equal(lla2xyz(lla[1], lla[2], lla[3]), ecef, tolerance = 1e-6)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.