# tests for class tsRim
# test creation and length method
rim <- new('tsRim', limits=cbind(1:6, 11:16), standard=100 * 1:6, mass=87)
expect_true(validObject(rim))
expect_equal(length(rim), 6L)
# test combination with `c`
rim2 <- new('tsRim', limits=cbind(rnorm(7), rnorm(7) + 5), standard=100 * runif(7), mass=3)
expect_true(validObject(rim2))
expect_equal(length(rim2), 7L)
x <- c(rim, rim2)
expect_equal(length(x), 13L)
expect_true(validObject(x))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.