tests/testthat/test-printer.R

test_that("test test",{
  set.seed(123)
  res = printer(x = rnorm(5), r = rnorm(5))
  expect_that(nrow(res) ,equals(5) )
})
Junzheshao5959/ssmimputedemo documentation built on Aug. 27, 2022, 8:49 a.m.