tests/testthat/test-expose.R

In JohnReid/rstanlm: What the Package Does (One Line, Title Case)

context('Expose Stan models')
library(rstanlm)
library(rstan)

test_that("expose Stan functions", {
  model <- stanmodels[['lm']]
  message(class(model))
  expose_stan_functions(model)
  fib(9)
})