tests/testthat/test-CreateFormulaRHS.R

In oharar/LatentINLA: Package to Write GLLVMs in INLA

test_that("CreateFormulaRHS works correctly", {
  #  skip_on_cran()
  X <- 1:10
  X.mat <- matrix(X, ncol=5)

  dat.mat <- FormatDataFrameForLV(X.mat)
  LVs <- MakeLVsFromDataFrame(dat=X.mat, nLVs=2)
  Formula <- CreateFormulaRHS(LVs)
  FormulaB <- CreateFormulaRHS(LVs, prior.beta = 2)
  FormulaC <- CreateFormulaRHS(LVs, constrained=TRUE)
  FormulaD <- CreateFormulaRHS(LVs, constrained=FALSE, hyper = "list(oops)")

  # Test size
  expect_equal(length(Formula), 3) # If this fails, we're in trouble
  expect_equal(nchar(Formula), c(1,1,814))
  expect_equal(nchar(FormulaB), c(1,1,807))
  expect_equal(grepl("param = c(0, 0.25)", FormulaB, fixed=TRUE)[3], TRUE)
  expect_equal(nchar(FormulaC), c(1,1,924))

  expect_equal(length(FormulaD), 3) # If this fails, we're in trouble
  expect_equal(nchar(FormulaD), c(1,1,880))
  expect_equal(grepl("oops", FormulaD, fixed=TRUE)[3], TRUE)

})