tests/testthat/test-sd_via_median_estimator.R

test_that("sd_via_median_estimator works", {
  # scalar
  expect_equal(length(sd_via_median_estimator(rnorm(n = 100))), 1)
  
  # positive
  expect_true(sd_via_median_estimator(rnorm(n = 100)) > 0)
})

Try the saccadr package in your browser

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

saccadr documentation built on Sept. 8, 2023, 5:13 p.m.