Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [37s/55s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(MachineLearning)
  > 
  > test_check("MachineLearning")
  Apriori
  
  Parameter specification:
   confidence minval smax arem  aval originalSupport maxtime support minlen
          0.1    0.1    1 none FALSE            TRUE       5     0.2      2
   maxlen target   ext
       10  rules FALSE
  
  Algorithmic control:
   filter tree heap memopt load sort verbose
      0.1 TRUE TRUE  FALSE TRUE    2    TRUE
  
  Absolute minimum support count: 3054 
  
  set item appearances ...[0 item(s)] done [0.00s].
  set transactions ...[24 item(s), 15270 transaction(s)] done [0.01s].
  sorting and recoding items ... [4 item(s)] done [0.00s].
  creating transaction tree ... done [0.00s].
  checking subsets of size 1 2 3 done [0.00s].
  writing ... [11 rule(s)] done [0.00s].
  creating S4 object  ... done [0.00s].
  6 successful models have been tested 
   
  n= 10689 
  
  node), split, n, loss, yval, (yprob)
        * denotes terminal node
  
  1) root 10689 1730 [17,1.67e+03) (0.838151371 0.155019179 0.006829451)  
    2) pais=Germany,Belgium,France,Ireland,Italy,Netherlands,Portugal,UK,Switzerland,Rusia,Nordic countries,Rest of Europe 9103  722 [17,1.67e+03) (0.920685488 0.076897726 0.002416786) *
    3) pais=USA,Rest of America,Rest of world 1586  629 [1.67e+03,5.51e+03) (0.364438840 0.603404792 0.032156368) *
  6 successful models have been tested 
   
  n= 10689 
  
  node), split, n, loss, yval, (yprob)
        * denotes terminal node
  
  1) root 10689 1730 [17,1.67e+03) (0.838151371 0.155019179 0.006829451)  
    2) pais=Germany,Belgium,France,Ireland,Italy,Netherlands,Portugal,UK,Switzerland,Rusia,Nordic countries,Rest of Europe 9103  722 [17,1.67e+03) (0.920685488 0.076897726 0.002416786) *
    3) pais=USA,Rest of America,Rest of world 1586  629 [1.67e+03,5.51e+03) (0.364438840 0.603404792 0.032156368) *
  ── 1. Error: Test CART with EGATUR dataset. (@test-CART.R#14)  ─────────────────
  incorrect number of dimensions
  1: CART(GastoTotalD ~ pais + aloja, data = EGATUR, nodes_min = 5) at testthat/test-CART.R:14
  2: order(SummaryTrees[, 2], SummaryTrees[, 4], SummaryTrees[, 7], decreasing = TRUE)
  
    attributes  importance
  1       pais 0.049161047
  2      aloja 0.008279454
  3     motivo 0.004326729
    attributes  importance
  1       pais 0.049161047
  2      aloja 0.008279454
  3     motivo 0.004326729
    attributes  importance
  1       pais 0.049161047
  2      aloja 0.008279454
  3     motivo 0.004326729
    attributes  importance
  1       pais 0.049161047
  2      aloja 0.008279454
  3     motivo 0.004326729
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 24 SKIPPED: 0 FAILED: 1
  1. Error: Test CART with EGATUR dataset. (@test-CART.R#14) 
  
  Error: testthat unit tests failed
  Execution halted