inst/tinytest/test_NAVseries.window.R

x <- NAVseries(101:110, 1:10)

expect_equal(window(x, 2, 3),
             structure(102:103, timestamp = 2:3,
                       description = character(0),
                       class = "NAVseries"))
expect_equal(window(x), x)

Try the PMwR package in your browser

Any scripts or data that you put into this service are public.

PMwR documentation built on Oct. 19, 2023, 9:09 a.m.