Running 'test_changepoints.R' [1s/1s]
Running the tests in 'tests/test_changepoints.R' failed.
Complete output:
  > library(changepointsHD)
  > 
  > set.seed(334)
  > 
  > scp_data = read.table(system.file("extdata", "scp.txt", package="changepointsHD"))
  > scp_data = as.matrix(scp_data)
  > 
  > # prox gradient black-box method
  > cov_est = cov(scp_data)
  > init = solve(cov_est)
  > res_map = prox_gradient_mapping(scp_data, init, 0.1, 0.99, 0.1, 100, 1e-20)
  > 
  > # prox gradient black-box ll
  > res_ll = prox_gradient_ll(scp_data, res_map, 0.1)
  > 
  > prox_gradient_params=list()
  > prox_gradient_params$update_w = 0.1
  > prox_gradient_params$update_change = 0.99
  > prox_gradient_params$regularizer = 0.1
  > prox_gradient_params$max_iter = 1
  > prox_gradient_params$tol = 1e-5
  > 
  > prox_gradient_ll_params=list()
  > prox_gradient_ll_params$regularizer = 0.1
  > 
  > simulated_annealing_params = list()
  > simulated_annealing_params$buff=10
  > 
  > # test simulated annealing
  > changepoints_mod = changepointsMod(bbmod=prox_gradient_mapping,
  +                                  log_likelihood=prox_gradient_ll,
  +                                  bbmod_params=prox_gradient_params,
  +                                  ll_params=prox_gradient_ll_params,
  +                                  part_values=list(init, init),
  +                                  data=list(scp_data))
  > changepoints_mod = simulated_annealing(changepoints_mod, buff=10)
  [1] 14 10
  [1] "UPDATE1"
  [1] 86 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  [1] 60 10
  [1] "UPDATE1"
  [1] 40 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  [1] 23 10
  [1] "UPDATE1"
  [1] 77 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  [1] 22 10
  [1] "UPDATE1"
  [1] 78 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  [1] 17 10
  [1] "UPDATE1"
  [1] 83 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  [1] 16 10
  [1] "UPDATE1"
  [1] 84 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  [1] 18 10
  [1] "UPDATE1"
  [1] 82 10
  [1] "UPDATE2"
  [1] "LL1"
  [1] "LL2"
  > stopifnot(changepoints_mod@changepoints == 56)
  Error: changepoints_mod@changepoints == 56 is not TRUE
  Execution halted