inst/tinytest/test_integrate.R

x <- seq(0, 2, len = 101)
y <- x^3
z <- data.frame(x, y)

# Rectangle rule ===============================================================
expect_equal(integrate_rectangle(z, right = FALSE), 3.9204)
expect_equal(integrate_rectangle(z, right = TRUE), 4.0804)

# Trapezoidal rule =============================================================
expect_equal(integrate_trapezoid(z), 4.0004)

Try the alkahest package in your browser

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

alkahest documentation built on April 3, 2025, 8:52 p.m.