Nothing
context("alignTransect")
data("sierraTransect")
# split transects
g <- subset(sierraTransect, transect == 'Granite')
a <- subset(sierraTransect, transect == 'Andesite')
# basic functionality
test_that("alignTransect works as expected", {
# CRAN safe
# data are not pre-sorted by elevation, alpha order
p <- alignTransect(g$elev, 1, length(g), fix = FALSE)
# structure
expect_true(inherits(p, 'list'))
expect_true(length(p) == 3)
# known output
expect_true(all(p$order == c(7, 1, 2, 4, 5, 6, 3)))
})
# basic functionality
test_that("more complex input", {
# CRAN safe
# more interesting, data are not pre-sorted by elevation
p <- alignTransect(a$elev, 1, length(a), fix = FALSE)
# structure
expect_true(inherits(p, 'list'))
expect_true(length(p) == 3)
# known output
expect_true(all(p$order == c(2, 5, 1, 3, 7, 4, 6)))
})
## TODO: add a couple more with more complex ordering
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.