https://github.com/cran/pracma
Raw File
Tip revision: 392ae21a013fb3f518e8f9eb8efb458a55a2eca2 authored by HwB on 09 April 2011, 00:00:00 UTC
version 0.3-0
Tip revision: 392ae21
trapz.R
###
### trapz.R  +++ Test suite +++
###


test.trapz <- function(input, expected) {
   output <- do.call(getFromNamespace("trapz", "pracma"), input)
   identical(output, expected)
}

trapz.expected.empty1 <- 0
trapz.expected.empty2 <- 0
trapz.expected.gen1 <- 12
trapz.expected.gen2 <- 6
trapz.expected.cmpl1 <- 0+0.5i
trapz.expected.cmpl2 <- 0+0.5i

test.trapz(list(x=c()), trapz.expected.empty1)
test.trapz(list(x=c(), y=c()), trapz.expected.empty2)
test.trapz(list(x=1:5), trapz.expected.gen1)
test.trapz(list(x=seq(0,2,by=0.5), y=1:5), trapz.expected.gen2)
test.trapz(list(x=c(0,1), y=c(0,1i)), trapz.expected.cmpl1)
test.trapz(list(x=c(0,1i), y=c(0,1)), trapz.expected.cmpl2)
back to top