tests/testthat/test-utils_optimize_loess.R

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

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

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

  expect_equal(class(m), "loess")

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