tests/testthat/test-cosinor-constructor.R

In asshah4/card: Cardiovascular Applications in Research Data

test_that("cosinor_reg creates appropriate parsnip model", {
	skip()
	cosinor_mod <-
		cosinor_reg(period = c(24, 8)) |>
		parsnip::set_engine("card") |>
		parsnip::set_mode("regression")

	cosinor_fit <-
		cosinor_mod |>
		parsnip::fit(rDYX ~ hour, data = twins)
	expect_that(cosinor_mod, is_a("cosinor_reg"))
	expect_s3_class(cosinor_fit$fit, "cosinor")
})