tests/testthat/test-logistic_regression-fit.R

test_that("logistic_regression() fit works", {
  library(glasp)

  set.seed(0)
  data <- simulate_dummy_logistic_data()
  model <- logistic_regression(y~., data, l1=0, l2=0, frob=0, num_comp=1)

  expect_vector(model$model$beta)
})
jlaria/glasp documentation built on Dec. 5, 2022, 6:42 a.m.