tests/testthat/test_generics_invisible.R

context("return value of generics")
obj <- kdensity(precip, start = "gaussian")
expect_identical(print(obj), obj)
expect_identical(summary(obj), obj)
expect_identical(plot(obj), obj)
expect_identical(plot(obj, plot_start = TRUE), obj)
expect_identical(points(obj), obj)
expect_identical(lines(obj), obj)
JonasMoss/kdensity documentation built on April 5, 2025, 2:48 p.m.