https://github.com/cran/pracma
Tip revision: 12e26b7898f3fb6da81e710947bff1bfaf513f81 authored by Hans W. Borchers on 04 March 2022, 09:40:02 UTC
version 2.3.8
version 2.3.8
Tip revision: 12e26b7
cross.R
###
### cross.R +++ Test suite +++
###
test.cross <- function(input, expected) {
output <- do.call(getFromNamespace("cross", "pracma"), input)
identical(output, expected)
}
cross.expected.1 <- c(-3, 6, -3)
#cross.expected. <-
#cross.expected. <-
#cross.expected. <-
test.cross(list(x=c(1, 2, 3), y=c(4, 5, 6)), cross.expected.1)
#test.cross(list(), cross.expected.)
#test.cross(list(), cross.expected.)
#test.cross(list(), cross.expected.)