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))

})

Try the onion package in your browser

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

onion documentation built on May 29, 2024, 5:22 a.m.