Running ‘testthat.R’ [2s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > Sys.setenv("R_TESTS" = "")
  > 
  > test_check("princurve")
  Loading required package: princurve
  [ FAIL 4 | WARN 0 | SKIP 1 | PASS 327 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • On CRAN (1): 'test-legacy_princurve.R:3:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-start_circle.R:41:3'): Testing start_circle ──────────────────
  sum((xbar_orig - xbar_new)^2) is not less than 0.01. Difference: 0.00173
  Backtrace:
      ▆
   1. └─princurve (local) test_start_circle_output(x_orig) at test-start_circle.R:41:3
   2.   └─testthat::expect_lte(sum((xbar_orig - xbar_new)^2), 0.01) at test-start_circle.R:14:3
  ── Failure ('test-start_circle.R:44:3'): Testing start_circle ──────────────────
  sum((xbar_orig - xbar_new)^2) is not less than 0.01. Difference: 0.00173
  Backtrace:
      ▆
   1. └─princurve (local) test_start_circle_output(x_orig) at test-start_circle.R:44:3
   2.   └─testthat::expect_lte(sum((xbar_orig - xbar_new)^2), 0.01) at test-start_circle.R:14:3
  ── Failure ('test-start_circle.R:47:3'): Testing start_circle ──────────────────
  sum((xbar_orig - xbar_new)^2) is not less than 0.01. Difference: 0.00173
  Backtrace:
      ▆
   1. └─princurve (local) test_start_circle_output(x_orig) at test-start_circle.R:47:3
   2.   └─testthat::expect_lte(sum((xbar_orig - xbar_new)^2), 0.01) at test-start_circle.R:14:3
  ── Failure ('test-start_circle.R:50:3'): Testing start_circle ──────────────────
  sum((xbar_orig - xbar_new)^2) is not less than 0.01. Difference: 0.00173
  Backtrace:
      ▆
   1. └─princurve (local) test_start_circle_output(x_orig) at test-start_circle.R:50:3
   2.   └─testthat::expect_lte(sum((xbar_orig - xbar_new)^2), 0.01) at test-start_circle.R:14:3
  
  [ FAIL 4 | WARN 0 | SKIP 1 | PASS 327 ]
  Error: Test failures
  Execution halted