Nothing
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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.