context("Check inv.logit and logit")
p <- runif(100)
a <- GMCM:::logit(p)
pp <- GMCM:::inv.logit(a)
test_that("inv.logit and logit returns proper formatted output", {
expect_true(is.numeric(a))
expect_that(length(a), equals(length(p)))
expect_true(is.numeric(pp))
expect_that(length(pp), equals(length(p)))
expect_that(p - pp, equals(rep(0, length(p))))
})
# Test degenerate input
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.