Running ‘testthat.R’ [15s/68s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(adea)
  Loading required package: rmarkdown
  Loading required package: ROI.plugin.glpk
  Loading required package: ROI.plugin.lpsolve
  Loading required package: ROI.plugin.symphony
  > 
  > test_check("adea")
  Starting 2 test processes.
  > testdemo.R: 
  > testdemo.R: 
  > testdemo.R: 	demo(cardealers)
  > testdemo.R: 	---- ~~~~~~~~~~
  > testdemo.R: 
  > testdemo.R: > ## Load data
  > testdemo.R: > data('cardealers4')
  > testdemo.R: 
  > testdemo.R: > input <- cardealers4[, c('Employees', 'Depreciation')]
  > testdemo.R: 
  > testdemo.R: > output <- cardealers4[, c('CarsSold', 'WorkOrders')]
  > testdemo.R: 
  > testdemo.R: > ## Solve dea model using adea from adea package
  > testdemo.R: > adea(input, output)
  > testdemo.R:  Dealer A  Dealer B  Dealer C  Dealer D  Dealer E  Dealer F 
  > testdemo.R: 0.9915929 1.0000000 0.8928571 0.8653846 1.0000000 0.6515044 
  > testdemo.R: 
  > testdemo.R: > ## Solve again and store result in sol.dea
  > testdemo.R: > sol.adea <- adea(input, output)
  > testdemo.R: 
  > testdemo.R: > ## Scores
  > testdemo.R: > sol.adea$eff
  > testdemo.R:  Dealer A  Dealer B  Dealer C  Dealer D  Dealer E  Dealer F 
  > testdemo.R: 0.9915929 1.0000000 0.8928571 0.8653846 1.0000000 0.6515044 
  > testdemo.R: 
  > testdemo.R: > ## Weights
  > testdemo.R: > cbind(sol.adea$ux, sol.adea$vy)
  > testdemo.R:              Employees Depreciation   CarsSold  WorkOrders
  > testdemo.R: Dealer A  1.065648e-16   0.12500000 0.04712389 0.016592920
  > testdemo.R: Dealer B  9.090909e-02   0.00000000 0.00000000 0.023809524
  > testdemo.R: Dealer C  2.391250e-17   0.08333333 0.00000000 0.029761905
  > testdemo.R: Dealer D -3.464649e-17   0.07692308 0.03461538 0.000000000
  > testdemo.R: Dealer E  9.090909e-02   0.00000000 0.02500000 0.000000000
  > testdemo.R: Dealer F -1.381410e-15   0.05000000 0.01884956 0.006637168
  > testdemo.R: 
  > testdemo.R: > ## Input variable loads
  > testdemo.R: > sol.adea$loads$input
  > testdemo.R:    Employees Depreciation 
  > testdemo.R:    0.6666667    1.3333333 
  > testdemo.R: 
  > testdemo.R: > ## Output variable loads
  > testdemo.R: > sol.adea$loads$output
  > testdemo.R:   CarsSold WorkOrders 
  > testdemo.R:  1.1025075  0.8974925 
  > testdemo.R: 
  > testdemo.R: > ## Model load
  > testdemo.R: > sol.adea$loads$load
  > testdemo.R: [1] 0.6666667
  > testdemo.R: 
  > testdemo.R: > ## Compute all dea models in hierarchical way
  > testdemo.R: > adea_hierarchical(input, output)
  > testdemo.R:       Loads nEfficients nVariables nInputs nOutputs                  Inputs
  > testdemo.R: 4 0.6666667           2          4       2        2 Employees, Depreciation
  > testdemo.R: 3 0.9575672           2          3       1        2            Depreciation
  > testdemo.R: 2 1.0000000           1          2       1        1            Depreciation
  > testdemo.R:                Outputs
  > testdemo.R: 4 CarsSold, WorkOrders
  > testdemo.R: 3 CarsSold, WorkOrders
  > testdemo.R: 2             CarsSold
  > testdemo.R: 
  > testdemo.R: > ## Compute again and store result in sol.ah
  > testdemo.R: > sol.ah <- adea_hierarchical(input, output)
  > testdemo.R: 
  > testdemo.R: > ## Get the model with 3 variables
  > testdemo.R: > sol.ah$models[[3]]
  > testdemo.R:  Dealer A  Dealer B  Dealer C  Dealer D  Dealer E  Dealer F 
  > testdemo.R: 0.9915929 1.0000000 0.8928571 0.8653846 1.0000000 0.6515044 
  > testdemo.R: 
  > testdemo.R: > ## Get efficiencies for model with 3 variables
  > testdemo.R: > sol.ah$models[[3]]$eff
  > testdemo.R:  Dealer A  Dealer B  Dealer C  Dealer D  Dealer E  Dealer F 
  > testdemo.R: 0.9915929 1.0000000 0.8928571 0.8653846 1.0000000 0.6515044 
  > testdemo.R: 
  > testdemo.R: > ## Get input names in model with 3 variables
  > testdemo.R: > sol.ah$inputnames[[3]]
  > testdemo.R: [1] "Depreciation"
  > testdemo.R: 
  > testdemo.R: > ## Get output namess in model with 3 variables
  > testdemo.R: > sol.ah$outputnames[[3]]
  > testdemo.R: [1] "CarsSold, WorkOrders"
  > testdemo.R: 
  > testdemo.R: > ## Compute all dea models in parametric way
  > testdemo.R: > adea_parametric(input, output)
  > testdemo.R:       Loads nEfficients nVariables nInputs nOutputs                  Inputs
  > testdemo.R: 4 0.6666667           2          4       2        2 Employees, Depreciation
  > testdemo.R: 3 0.9575672           2          3       1        2            Depreciation
  > testdemo.R: 2 1.0000000           1          2       1        1            Depreciation
  > testdemo.R:                Outputs
  > testdemo.R: 4 CarsSold, WorkOrders
  > testdemo.R: 3 CarsSold, WorkOrders
  > testdemo.R: 2             CarsSold
  > testdemo.R: 
  > testdemo.R: > ## Compute again and store result in sol.ap
  > testdemo.R: > sol.ap <- adea_parametric(input, output)
  > testdemo.R: 
  > testdemo.R: > ## Get the model with 3 variables
  > testdemo.R: > sol.ap$models[[3]]
  > testdemo.R:  Dealer A  Dealer B  Dealer C  Dealer D  Dealer E  Dealer F 
  > testdemo.R: 0.9915929 1.0000000 0.8928571 0.8653846 1.0000000 0.6515044 
  > testdemo.R: 
  > testdemo.R: > ## Get efficiencies for model with 3 variables
  > testdemo.R: > sol.ap$models[[3]]$eff
  > testdemo.R:  Dealer A  Dealer B  Dealer C  Dealer D  Dealer E  Dealer F 
  > testdemo.R: 0.9915929 1.0000000 0.8928571 0.8653846 1.0000000 0.6515044 
  > testdemo.R: 
  > testdemo.R: > ## Get input names in model with 3 variables
  > testdemo.R: > sol.ap$inputnames[[3]]
  > testdemo.R: [1] "Depreciation"
  > testdemo.R: 
  > testdemo.R: > ## Get output names in model with 3 variables
  > testdemo.R: > sol.ap$outputnames[[3]]
  > testdemo.R: [1] "CarsSold, WorkOrders"
  > testcadea.R: Error in .ROI_available_solvers(method) : 
  > testcadea.R:   The requested URL 'http://roi.r-forge.r-project.org' was not found.
  Saving _problems/testcadea-9.R
  Saving _problems/testcadea-10.R
  Saving _problems/testcadea-11.R
  Saving _problems/testcadea-12.R
  [ FAIL 4 | WARN 1 | SKIP 56 | PASS 138 ]
  
  ══ Skipped tests (56) ══════════════════════════════════════════════════════════
  • On CRAN (56): 'testadea.R:33:5', 'testadea.R:61:5', 'testadea.R:69:5',
    'testadea.R:77:5', 'testadea.R:85:5', 'testadea.R:93:5', 'testdea.R:8:5',
    'testdea.R:42:5', 'testdea.R:66:5', 'testdea.R:74:5', 'testdea.R:82:5',
    'testdea.R:90:5', 'testdea.R:98:5', 'testdemo.R:20:5', 'testdemo.R:31:5',
    'testfsdea.R:7:5', 'testfsdea.R:53:5', 'testfsdea.R:76:5',
    'testfsdea.R:84:5', 'testfsdea.R:92:5', 'testfsdea.R:100:5',
    'testfsdea.R:108:5', 'testfsdea.R:119:5', 'testfsdea.R:130:5',
    'testfsdea.R:141:5', 'testfsdea.R:153:5', 'testfsdea.R:165:5',
    'testhierarchical.R:37:5', 'testhierarchical.R:47:5',
    'testhierarchical.R:59:5', 'testhierarchical.R:71:5',
    'testhierarchical.R:83:5', 'testleverage.R:8:5', 'testleverage.R:18:5',
    'testleverage.R:28:5', 'testleverage.R:38:5', 'testleverage.R:48:5',
    'testleverage.R:58:5', 'testleverage.R:69:5', 'testparametric.R:38:5',
    'testparametric.R:48:5', 'testparametric.R:60:5', 'testparametric.R:72:5',
    'testparametric.R:84:5', 'testsolvers.R:19:5', 'testsolvers.R:26:5',
    'testsolvers.R:34:5', 'testsolvers.R:42:5', 'testcadea.R:35:5',
    'testcadea.R:44:5', 'testcadea.R:50:5', 'testcadea.R:79:5',
    'testcadea.R:87:5', 'testcadea.R:95:5', 'testcadea.R:103:5',
    'testcadea.R:111:5'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('testcadea.R:9:5'): Test CADEA: General case (default orientation) and single bound ──
  Expected `sol` to inherit from "cadea".
  Actual class: "try-error".
  ── Failure ('testcadea.R:10:5'): Test CADEA: General case (default orientation) and single bound ──
  Expected `sol` to have length 13.
  Actual length: 1.
  ── Failure ('testcadea.R:11:5'): Test CADEA: General case (default orientation) and single bound ──
  Expected `names(sol)` to equal `c(...)`.
  Differences:
  `actual` is NULL
  `expected` is a character vector ('name', 'orientation', 'load.orientation', 'inputnames', 'outputnames', ...)
  
  ── Error ('testcadea.R:12:5'): Test CADEA: General case (default orientation) and single bound ──
  Error in `sol$name`: $ operator is invalid for atomic vectors
  Backtrace:
      ▆
   1. └─testthat::expect_equal(sol$name, "Test cadea") at testcadea.R:12:5
   2.   └─testthat::quasi_label(enquo(object), label)
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  
  [ FAIL 4 | WARN 1 | SKIP 56 | PASS 138 ]
  Error:
  ! Test failures.
  Execution halted