Running ‘testthat.R’ [96s/128s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ocp)
  > 
  > test_check("ocp")
  ── 1. Failure: Univariate gaussian with missing points example, maxCPs:  (@test-
  ocpd6$changepoint_lists$maxCPs[[1]] not identical to c(1, 22, 41, 341, 641).
  1/5 mismatches
  [2] 23 - 22 == 1
  
  ── 2. Failure: Univariate gaussian with missing points example, colmaxes:  (@tes
  ocpd6$changepoint_lists$colmaxes[[1]] not identical to c(1, 22, 41, 341, 641).
  Lengths differ: 6 is not 5
  
  ── 3. Failure: Univariate gaussian with missing points example, threscps:  (@tes
  ocpd6$changepoint_lists$threshcps[[1]] not identical to c(1, 22, 41, 341, 641).
  Lengths differ: 6 is not 5
  
  ── 4. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b =
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 5. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b =
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 6. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b =
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 7. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b =
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 8. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b =
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 9. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b =
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 10. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b 
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ── 11. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b 
  Object:  46 not found in true list:  c(1, 21, 41, 74)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 5249 SKIPPED: 0 FAILED: 11
  1. Failure: Univariate gaussian with missing points example, maxCPs:  (@test-examples.R#122) 
  2. Failure: Univariate gaussian with missing points example, colmaxes:  (@test-examples.R#125) 
  3. Failure: Univariate gaussian with missing points example, threscps:  (@test-examples.R#128) 
  4. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b = 1e-04))FALSE  Option params:  3  list(truncRlim = 0.01, minRlength = 10, maxRlength = 100, minsep = 5, maxsep = 50, hazard_func = function (x, lambda) 
  {
      const_hazard(x, lambda = 1000)
  }) output options: list(getR = TRUE, optionalOutputs = TRUE) (@test-minoutputs.R#139) 
  5. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b = 1e-04))FALSE  Option params:  3  list(truncRlim = 0.01, minRlength = 10, maxRlength = 100, minsep = 5, maxsep = 50, hazard_func = function (x, lambda) 
  {
      const_hazard(x, lambda = 1000)
  }) output options: list(getR = TRUE, optionalOutputs = TRUE) (@test-minoutputs.R#140) 
  6. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b = 1e-04))FALSE  Option params:  3  list(truncRlim = 0.01, minRlength = 10, maxRlength = 100, minsep = 5, maxsep = 50, hazard_func = function (x, lambda) 
  {
      const_hazard(x, lambda = 1000)
  }) output options: list(getR = FALSE, optionalOutputs = FALSE) (@test-minoutputs.R#139) 
  7. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b = 1e-04))FALSE  Option params:  3  list(truncRlim = 0.01, minRlength = 10, maxRlength = 100, minsep = 5, maxsep = 50, hazard_func = function (x, lambda) 
  {
      const_hazard(x, lambda = 1000)
  }) output options: list(getR = FALSE, optionalOutputs = FALSE) (@test-minoutputs.R#140) 
  8. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b = 1e-04))FALSE  Option params:  3  list(truncRlim = 0.01, minRlength = 10, maxRlength = 100, minsep = 5, maxsep = 50, hazard_func = function (x, lambda) 
  {
      const_hazard(x, lambda = 1000)
  }) output options: list(getR = FALSE, optionalOutputs = TRUE) (@test-minoutputs.R#139) 
  9. Failure: Data params: 2  list("g")list(list(m = 0, k = 0.01, a = 0.01, b = 1e-04))FALSE  Option params:  3  list(truncRlim = 0.01, minRlength = 10, maxRlength = 100, minsep = 5, maxsep = 50, hazard_func = function (x, lambda) 
  {
      const_hazard(x, lambda = 1000)
  }) output options: list(getR = FALSE, optionalOutputs = TRUE) (@test-minoutputs.R#140) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted