Nothing
context("writeJagsFormula")
test_that("writeJagsFormula: Poisson Regression",
{
fit <- glm(gear ~ mpg + am, data = mtcars, family = poisson)
expect_silent(writeJagsFormula(fit, c("gear", "mpg", "am")))
})
test_that("writeJagsFormula: Multinomial Regression",
{
fit.gear <- multinom(gear ~ mpg + factor(am), data=mtcars)
expect_silent(writeJagsFormula(fit.gear))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.