tests/testthat/test-stats-smooth.spline.R

In broom: Convert Statistical Objects into Tidy Tibbles

context("stats-smooth.spline")

skip_if_not_installed("modeltests")
library(modeltests)

fit <- smooth.spline(mtcars$wt, mtcars$mpg)

test_that("smooth.spline tidier arguments", {
  check_arguments(glance.smooth.spline)
  check_arguments(augment.smooth.spline)
})

test_that("glance.smooth.spline", {
  gl <- glance(fit)
  check_glance_outputs(gl)
})

test_that("augment.smooth.spline", {
  check_augment_function(
    aug = augment.smooth.spline,
    model = fit,
    data = mtcars,
    strict = FALSE
  )
})