Running ‘testthat.R’ [73s/105s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(FSinR)
  
  Attaching package: 'FSinR'
  
  The following object is masked from 'package:stats':
  
      ts
  
  > 
  > test_check("FSinR")
  ── 1. Failure: Results are correct (@testChiSquared.R#11)  ─────────────────────
  chiSquared(data2, "clase", c("x1", "x2", "x3", "x4", "x5", "x6")) not equal to c(x1 = 0, x2 = 3, x3 = 3.3333, x4 = 1.3333, x5 = 1.3333, x6 = 12).
  Modes: list, numeric
  Component "x3": Mean relative difference: 1e-05
  Component "x4": Mean relative difference: 2.5e-05
  Component "x5": Mean relative difference: 2.5e-05
  
  ── 2. Failure: Results are correct (@testCramer.R#7)  ──────────────────────────
  cramer(data2, "clase", c("x1", "x2", "x3", "x4", "x5", "x6")) not equal to c(...).
  Modes: list, numeric
  
  ── 3. Failure: Results are correct (@testCramer.R#11)  ─────────────────────────
  cramer(data1, "clase", c("x1", "x2", "x3")) not equal to c(x1 = 0, x2 = 0.7071, x3 = 0.7453).
  Modes: list, numeric
  
  ── 4. Failure: Performs correctly (@testFScore.R#14)  ──────────────────────────
  fscore(ToothGrowth, "supp", c("len", "dose")) not equal to c(len = 0.06113754, dose = 0).
  Modes: list, numeric
  Component "len": Mean relative difference: 3.845727e-08
  
  ── 5. Error: (unknown) (@testIndividualFSSearchAlgorithmInterface.R#4)  ────────
  invalid 'row.names' length
  Backtrace:
   1. FSinR:::algorithm(iris, "Species", IEConsistency)
   2. base::`rownames<-`(`*tmp*`, value = names)
   4. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   5. base::`.rowNamesDF<-`(x, value = value)
  
  ── 6. Error: Percentile function works (@testIndividualFeatures.R#4)  ──────────
  invalid 'row.names' length
  Backtrace:
   1. FSinR::selectPercentile(iris, "Species", IEConsistency, 40)
   2. base::`rownames<-`(`*tmp*`, value = names)
   4. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   5. base::`.rowNamesDF<-`(x, value = value)
  
  ── 7. Error: Threshold function works (@testIndividualFeatures.R#17)  ──────────
  invalid 'row.names' length
  Backtrace:
   1. FSinR::selectThreshold(iris, "Species", IEConsistency, 0.9)
   2. base::`rownames<-`(`*tmp*`, value = names)
   4. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   5. base::`.rowNamesDF<-`(x, value = value)
  
  ── 8. Error: Threshold range function works (@testIndividualFeatures.R#30)  ────
  invalid 'row.names' length
  Backtrace:
   1. FSinR::selectThresholdRange(iris, "Species", IEConsistency, 0.9)
   2. base::`rownames<-`(`*tmp*`, value = names)
   4. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   5. base::`.rowNamesDF<-`(x, value = value)
  
  ── 9. Error: Difference function works (@testIndividualFeatures.R#43)  ─────────
  invalid 'row.names' length
  Backtrace:
   1. FSinR::selectDifference(iris, "Species", IEConsistency)
   2. base::`rownames<-`(`*tmp*`, value = names)
   4. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   5. base::`.rowNamesDF<-`(x, value = value)
  
  ── 10. Error: Slope function works (@testIndividualFeatures.R#56)  ─────────────
  invalid 'row.names' length
  Backtrace:
   1. FSinR::selectSlope(iris, "Species", IEConsistency, 0.4)
   2. FSinR::selectDifference(data, class, featureEval, s.threshold)
   3. base::`rownames<-`(`*tmp*`, value = names)
   5. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   6. base::`.rowNamesDF<-`(x, value = value)
  
  ── 11. Failure: Chi Squared  returns numeric value (@testMeasureInterface.R#14) 
  is.numeric(result) isn't true.
  
  ── 12. Failure: Cramer  returns numeric value (@testMeasureInterface.R#14)  ────
  is.numeric(result) isn't true.
  
  ── 13. Failure: F-score  returns numeric value (@testMeasureInterface.R#14)  ───
  is.numeric(result) isn't true.
  
  ── 14. Error: Results are correct (@testSelectDifference.R#7)  ─────────────────
  invalid 'row.names' length
  Backtrace:
   1. testthat::expect_setequal(...)
   4. FSinR::selectDifference(...)
   5. base::`rownames<-`(`*tmp*`, value = names)
   7. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   8. base::`.rowNamesDF<-`(x, value = value)
  
  ── 15. Error: Results are correct (@testSelectKBest.R#8)  ──────────────────────
  invalid 'row.names' length
  Backtrace:
   1. testthat::expect_setequal(...)
   4. FSinR::selectKBest(data1, "clase", IEPConsistency, 1)
   5. base::`rownames<-`(`*tmp*`, value = names)
   7. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   8. base::`.rowNamesDF<-`(x, value = value)
  
  ── 16. Error: Results are correct (@testSelectPercentile.R#6)  ─────────────────
  invalid 'row.names' length
  Backtrace:
   1. testthat::expect_setequal(...)
   4. FSinR::selectPercentile(data2, "clase", giniIndex, 20)
   5. base::`rownames<-`(`*tmp*`, value = names)
   7. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   8. base::`.rowNamesDF<-`(x, value = value)
  
  ── 17. Error: Results are correct (@testSelectSlope.R#8)  ──────────────────────
  invalid 'row.names' length
  Backtrace:
   1. testthat::expect_setequal(...)
   4. FSinR::selectSlope(data1, "clase", cramer, 0.2)
   5. FSinR::selectDifference(data, class, featureEval, s.threshold)
   6. base::`rownames<-`(`*tmp*`, value = names)
   8. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   9. base::`.rowNamesDF<-`(x, value = value)
  
  ── 18. Error: SelectThreshold works (@testSelectThreshold.R#6)  ────────────────
  invalid 'row.names' length
  Backtrace:
   1. testthat::expect_setequal(...)
   4. FSinR::selectThreshold(data2, "clase", IEPConsistency, 0.1)
   5. base::`rownames<-`(`*tmp*`, value = names)
   7. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   8. base::`.rowNamesDF<-`(x, value = value)
  
  ── 19. Error: Results are correct (@testSelectThresholdRange.R#7)  ─────────────
  invalid 'row.names' length
  Backtrace:
   1. testthat::expect_setequal(...)
   4. FSinR::selectThresholdRange(data1, "clase", IEPConsistency, 0.9)
   5. base::`rownames<-`(`*tmp*`, value = names)
   7. base::`row.names<-.data.frame`(`*tmp*`, value = value)
   8. base::`.rowNamesDF<-`(x, value = value)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 333 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 19 ]
  1. Failure: Results are correct (@testChiSquared.R#11) 
  2. Failure: Results are correct (@testCramer.R#7) 
  3. Failure: Results are correct (@testCramer.R#11) 
  4. Failure: Performs correctly (@testFScore.R#14) 
  5. Error: (unknown) (@testIndividualFSSearchAlgorithmInterface.R#4) 
  6. Error: Percentile function works (@testIndividualFeatures.R#4) 
  7. Error: Threshold function works (@testIndividualFeatures.R#17) 
  8. Error: Threshold range function works (@testIndividualFeatures.R#30) 
  9. Error: Difference function works (@testIndividualFeatures.R#43) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted