Running ‘testthat.R’ [213s/334s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(scoringTools)
  > 
  > test_check("scoringTools")
  Generalized Linear Model of class 'speedglm':
  
  Call:  speedglm::speedglm(formula = labels ~ ., data = df_augmente[,      -which(names(df_augmente) %in% c("poidsfinal", "classe_SCORE"))][!df_augmente$poidsfinal ==      0, ], family = stats::binomial(link = "logit"), weights = df_augmente$poidsfinal[!df_augmente$poidsfinal ==      0]) 
  
  Coefficients:
  (Intercept)          x.1          x.2  
       -0.148        3.075       -2.320  
  
  Generalized Linear Model of class 'speedglm':
  
  Call:  speedglm::speedglm(formula = stats::formula("labels ~ ."), data = Filter(function(x) (length(unique(x)) >      1), cbind(data.frame(sapply(disc$Disc.data, as.factor), stringsAsFactors = TRUE),      data_train[, sapply(data_train, is.factor), drop = FALSE])),      family = stats::binomial(link = "logit"), weights = NULL,      fitted = TRUE) 
  
  Coefficients:
  (Intercept)          X22          X32          X33          X34  
         1.43        -2.08        -3.14        16.13        -3.66  
  
  Generalized Linear Model of class 'speedglm':
  
  Call:  speedglm::speedglm(formula = stats::formula("labels ~ ."), data = Filter(function(x) (length(unique(x)) >      1), cbind(data.frame(sapply(disc$Disc.data, as.factor), stringsAsFactors = TRUE),      data_train[, sapply(data_train, is.factor), drop = FALSE])),      family = stats::binomial(link = "logit"), weights = NULL,      fitted = TRUE) 
  
  Coefficients:
  (Intercept)          X22          X32          X33          X34  
         1.43        -2.08        -3.14        16.13        -3.66  
  
  [ FAIL 1 | WARN 57 | SKIP 0 | PASS 954 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-chiM.R:74'): chiM method works with speedglm and glm on dataframes with additional factors ──
  Error in `solve.default(XTX, XTz, tol = tol.solve)`: system is computationally singular: reciprocal condition number = 8.32667e-17
  Backtrace:
      ▆
   1. └─scoringTools::chiM_iter(...) at test-chiM.R:74:8
   2.   └─scoringTools:::fit_disc(disc[[i]], data_train, type = "speedglm")
   3.     └─speedglm::speedglm(...)
   4.       └─speedglm::speedglm.wfit(...)
   5.         ├─base::solve(XTX, XTz, tol = tol.solve)
   6.         ├─base::solve(XTX, XTz, tol = tol.solve)
   7.         └─base::solve.default(XTX, XTz, tol = tol.solve)
  
  [ FAIL 1 | WARN 57 | SKIP 0 | PASS 954 ]
  Error: Test failures
  Execution halted