tests/testthat/test-finalSE.R

library(PELVIS)

test_that("finalSE gives correct answers", {
    x <- c(0.96, 0.5, 0.04)
    expect_equal(finalSE(x, 0.95), c("M", "I", "F"))
})

Try the PELVIS package in your browser

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

PELVIS documentation built on Aug. 8, 2023, 5:09 p.m.