tests/testthat/test-utils_optimize_spline.R

test_that("`utils_optimize_spline()` works", {

  xy <- zoo_simulate(cols = 1, rows = 30, seed = 1)

  m <- utils_optimize_spline(
    x = as.numeric(zoo::index(xy)),
    y = xy[,1]
  )

  expect_equal(class(m), "smooth.spline")

})
BlasBenito/distantia documentation built on Feb. 21, 2025, 2:48 a.m.