inst/tests/test-fold.R

context("test fold")
test_that("test EEM class is returned",
          {
              data(applejuice)
              unfold_data <- unfold(applejuice)
              expect_that(fold(unfold_data), is_a("EEM"))
          })

Try the EEM package in your browser

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

EEM documentation built on May 2, 2019, 5:58 a.m.