https://github.com/cran/pracma
Raw File
Tip revision: 113add4c7a9bfd37466a9b41cf2dc060b7b87091 authored by HwB on 06 December 2012, 00:00:00 UTC
version 1.3.1
Tip revision: 113add4
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.)
back to top