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 June 11, 2025, 3:45 a.m.