## test decoding of encoded coordinate
#DECVAL <- 51512331
#testthat::expect_that(getOption("BITSIZE"), testthat::equals(10))
#testthat::expect_that(decX(DECVAL), testthat::equals(49))
#testthat::expect_that(decY(DECVAL), testthat::equals(129))
#testthat::expect_that(decZ(DECVAL), testthat::equals(11))
## test encoding of var
#testthat::expect_that(enc(49,129,11), testthat::equals(DECVAL))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.