tests/testthat/test-sim-data.R

In bark: Bayesian Additive Regression Kernels

# Copyright (c) 2023 Merlise Clyde and Zhi Ouyang. All rights reserved
# See full license at
# https://github.com/merliseclyde/bark/blob/master/LICENSE.md
#
# SPDX-License-Identifier: GPL-3.0-or-later

test_that("simulations", {
  n = 10 

  dat = sim_Friedman1(n)
  expect_no_error(dat)
  expect_warning(sim.Friedman1(n))
  
  dat = sim_Friedman2(n)
  expect_no_error(dat)
   expect_warning(sim.Friedman2(n))
  
  
  dat = sim_Friedman3(n)
  expect_no_error(dat)
   expect_warning(sim.Friedman3(n))
  
  dat = sim_circle(n)
  expect_no_error(dat)
  expect_warning(sim.Circle(n))
  
  expect_error(sim_circle(n, dim=1))

})