tests/testthat/test-logit.prob.R

context("logit.prob")

test_that("logit.prob outputs correctly", {
    odds <- 1
    logit <- log(odds)
    expect_true(logit.prob(logit) == 0.5)
}) 
stephlocke/optiRum documentation built on March 11, 2024, 2:25 a.m.