tests/testthat/test-analysis.R

In zywhy9/IPM: Integrated Population Model

context("analysis")

test_that("result is a mcmcrs object",{
  set.seed(10)
  data <- ipm_sim_l()
  data_cl <- ipm_sim_cl()
  result <- ipm_analyse(data,maxtime=1,unit="secs",save=10)
  result_l <- ipm_analyse_l(data,maxtime=1,unit="secs",save=10)
  result_cl <- ipm_analyse_cl(data_cl,maxtime=1,unit="secs",save=10)
  expect_true(class(result_cl)=="mcmcrs")
  expect_true(class(result_l)=="mcmcrs")
})