tests/testthat/test-modify-formula.R

In bayesMeanScale: Bayesian Post-Estimation on the Mean Scale

test_that("make sure modifyFormula is handling offsets correctly", {
  
  skip_on_cran()
  
  testData <- data.frame(
    a = rnorm(10),
    b = rnorm(10, mean=100),
    c = rnorm(10),
    d = rnorm(10),
    y = rnorm(10)
  )
  
  m1           <- lm(y ~ a - offset(log(b)) + offset(exp(c)), data=testData, offset=d/4)
  rightFormula <- formula(y ~ a)
  testFormula  <- modifyFormulaF(m1)
  
  m1Right <- lm(rightFormula, data=testData)
  m1Test  <- lm(testFormula, data=testData)
  
  expect_equal(names(m1Test$coefficients), names(m1Right$coefficients))
})