https://github.com/cran/pracma
Revision d5bfb0e3b7a3211ff2bbe2926e5ba31aa24e4df6 authored by HwB on 09 March 2012, 00:00:00 UTC, committed by Gabor Csardi on 09 March 2012, 00:00:00 UTC
1 parent 63e8a52
Tip revision: d5bfb0e3b7a3211ff2bbe2926e5ba31aa24e4df6 authored by HwB on 09 March 2012, 00:00:00 UTC
version 1.0.1
version 1.0.1
Tip revision: d5bfb0e
compan.R
###
### compan.R +++ Test suite +++
###
test.compan <- function(input, expected) {
output <- do.call(getFromNamespace("compan", "pracma"), input)
identical(output, expected)
}
compan.expected.empty <- c()
compan.expected.sngl1 <- c()
compan.expected.sngl2 <- c()
compan.expected.bspl1 <- matrix(c(0, 7, -6, 1, 0, 0, 0, 1, 0),
nrow=3, ncol=3, byrow=TRUE)
test.compan(list(p=c()), compan.expected.empty)
test.compan(list(p=c(0)), compan.expected.sngl1)
test.compan(list(p=c(1)), compan.expected.sngl2)
test.compan(list(p=c(1,0,-7,6)), compan.expected.bspl1)
Computing file changes ...