tests/testthat/test-generic-model.R

In rbiogeme: Interface to 'Biogeme'

test_that("generic models preserve a complete neutral formula graph", {
  database <- biogeme_database(
    "generic",
    data.frame(choice = c(1, 2), x = c(1, 2), weight = c(1, 2))
  )
  beta <- biogeme_beta("b", start = 0.1)
  model <- biogeme_model(
    database,
    formula = list(log_like = beta * variable("x")),
    weight = variable("weight"),
    simulations = list(score = derive(beta * variable("x"), "x")),
    control = biogeme_control(model_name = "generic_test", number_of_draws = 32)
  )

  expect_s3_class(model, "biogeme_model")
  expect_equal(biogeme_model_parameters(model)$name, "b")
  expect_equal(model$control$model_name, "generic_test")
  expect_equal(model$control$number_of_draws, 32)
})