tests/testthat/test-stats-loess.R

In broom: Convert Statistical Objects into Tidy Tibbles

context("stats-loess")

skip_if_not_installed("modeltests")
library(modeltests)

test_that("augment.loess", {
  check_arguments(augment.loess)

  fit <- loess(mpg ~ wt, mtcars)

  check_augment_function(
    aug = augment.loess,
    model = fit,
    data = mtcars,
    newdata = mtcars
  )
})