tests/testthat/test_aah.R

test_that("Test suite aah.R",{

    x <- rfalgg()
    y <- rfalggg()

    expect_true(is.freealg(x))
    expect_true(is.freealg(y))

    expect_true(x+y == y+x)
})

Try the freealg package in your browser

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

freealg documentation built on Sept. 12, 2024, 7:08 a.m.