tests/testthat/test-rict.R

test_that("multiplication works", {
 test <- rict(demo_observed_values[1:2, ])

 predict <-  rict_predict(demo_observed_values[1:2, ])
 data <-  rict_classify(predict)

 expect_equal(test, data)
})
aquaMetrics/rict documentation built on March 1, 2025, 1:31 p.m.