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
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.