tests/testthat/test-smd.R

test_that("smd", {
  
  data <- Leidig2018
  result <- smd(data = data)
  expect_s3_class(result, "sc_smd")
  expect_equal(result$smd[,-1] |> sum() |> round(4), 558.2741)
  
})

Try the scan package in your browser

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

scan documentation built on Sept. 11, 2025, 5:12 p.m.