tests/testthat/test-stats-loess.R

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
  )
})

Try the broom package in your browser

Any scripts or data that you put into this service are public.

broom documentation built on Aug. 30, 2022, 1:07 a.m.