tests/testthat/test_vector_cross_product.R

test_that("Miscellaneous vector cross product tests", {
expect_true(all(abs(vector_cross_product(cbind(c(5,-2,1),c(1,2,0))) -c(-2,1,12)) < 1e-11))
} )

Try the stokes package in your browser

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

stokes documentation built on Aug. 19, 2023, 1:07 a.m.