tests/testthat/test-mgcv-convenience.R

context("mgcv convenience functions")

test_that("mgcv convenience works", {
	
	library(mgcv)
	g <- gam(Sepal.Length ~ s(Sepal.Width) + s(Petal.Length), data=iris)
	expect_data_frame(s1d <- tidy_smooth(g), nrows=200, ncols=7)

})

Try the pammtools package in your browser

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

pammtools documentation built on July 26, 2023, 6:07 p.m.