Nothing
context("Interpolation and Extrapolation")
test_that("Cubic interpolation can return NaN", {
xc <- cubic_interpolate(0.9493646, 1.04033, 0.6949782, 0.1898729, 0.8138197,
0.03981831,
ignoreWarnings = TRUE
)
testthat::expect_true(is.nan(xc))
})
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.