test_that(context("Object size"), {
dist = c(10, 20, 30, 40, 50)
rings <- viring(x = visib, d = dist)
df <- dwp(vr = rings, pt = pto_carcass)
# df
expect_equal(dim(df), c(37, 2))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.