tests/crossn.R

##
##  c r o s s n . R  tests
##

crossn <- pracma::crossn

x <- c(1.0, 0.0, 0.0)
y <- c(1.0, 0.5, 0.0)
z <- c(0.0, 0.0, 1.0)
identical(pracma::dot(x, crossn(rbind(y, z))),
          det(rbind(x, y, z)))

Try the pracma package in your browser

Any scripts or data that you put into this service are public.

pracma documentation built on March 19, 2024, 3:05 a.m.