tests/testthat/test-rToJags.R

context("rToJags")

test_that("rToJags: exponents",
{
  expect_equal(rToJags(y ~ x^2),
               "y ~ pow(x,2)")
})

test_that("rToJags: logit (from VGAM package)",
{
  expect_equal(rToJags(y ~ logit(x, inverse=TRUE)),
               "y ~ ilogit(x)")
})

Try the HydeNet package in your browser

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

HydeNet documentation built on July 8, 2020, 5:15 p.m.