https://github.com/cran/pracma
Raw File
Tip revision: d50cda4811eb3cdb8d2ce9e01ddb5e07d4a8c24f authored by HwB on 11 September 2013, 00:00:00 UTC
version 1.5.5
Tip revision: d50cda4
piecewise.R
##
##  p i e c e w i s e . R  Test suite
##


piecewise <- pracma::piecewise

x <- c(0, 1,  2, 3, 4, 5)
y <- c(1, 1, -1, 0, 1, 0)
identical(piecewise(x, y)$area,  1.5)
identical(piecewise(x, y)$zeros, c(1.5, 3, 5))
identical(piecewise(x, y, abs = TRUE)$area,  3.0)
identical(piecewise(x, y, abs = TRUE)$zeros, c(1.5, 3, 5))
back to top