tests/testthat/test_wrapper.R

context("test wrapper fn")
test_that("wrapper runs", {
  df = hurdle.IV.sim(type = "cragg")

  expect_that(hurdle.IV(y~exog1+endog
                        ,inst = inst1
                        ,endog = endog
                        ,exog = exog1
                        ,data = df
                        ,type = "cragg"),is_a("list"))

  df = hurdle.IV.sim(type = "lognormal")

  expect_that(hurdle.IV(y~exog1+endog
                        ,inst = inst1
                        ,endog = endog
                        ,exog = exog1
                        ,data = df
                        ,type = "lognormal"),is_a("list"))

})
jackiemauro/hurdleIV documentation built on April 2, 2018, 8:28 p.m.