tests/testthat/test_aat.R

test_that("Test suite aat.R",{
    x <- sample(1:10)
    expect_true(all(drop(as.quaternion(x)) == x))
    expect_true(all(drop(as.octonion  (x)) == x))

})
RobinHankin/onion documentation built on April 20, 2024, 2:05 p.m.