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)
}) 

Try the optiRum package in your browser

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

optiRum documentation built on May 5, 2022, 1:05 a.m.