tests/testthat/test-estimate_hat_vals.R

test_that("estimate_hat_vals works as expected.", {

  skip_on_cran()
  data.table::setDTthreads(1)
  val <- estimate_hat_vals(0.2, data_with_gps_test[[2]], seq(1,10,1))

  expect_equal(length(val),200)
  expect_equal(val[20], 0.1250456, tolerance=0.0001)

})

Try the CausalGPS package in your browser

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

CausalGPS documentation built on Sept. 30, 2023, 1:06 a.m.