tests/testthat/test-statistics.R

test_that("rsd works", {
  vals <- c(5244.86, 4497.89, 5230.10) # Blanks 581
  expected <- 0.08556813

  result <- rsd(vals)
  expect_equal(result, expected)
})

Try the mpactr package in your browser

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

mpactr documentation built on April 3, 2025, 6:19 p.m.