Nothing
test_that("retropolation gives the correct results", {
short.ts <- ts_span(mdeaths, start = "1976-01")
retro <- ts_chain(short.ts, fdeaths)
# anchor value
expect_equal(
ts_span(retro, start = 1976.1, end = 1976.1),
ts_span(short.ts, start = 1976.1, end = 1976.1)
)
# pc rates
expect_equal(
ts_span(ts_pc(retro), end = 1976.1),
ts_span(ts_pc(fdeaths), end = 1976.1)
)
expect_equal(
ts_span(ts_pc(retro), start = 1976.2),
ts_span(ts_pc(mdeaths), start = 1976.2)
)
})
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.