Running 'testthat.R' [16s/13s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(PCMBase)
  > 
  > test_check("PCMBase")
  -- 1. Failure: Tree with 40 tips and one regime (@test-PCMTree.R#25)  ----------
  PCMTreeGetParent(tree.a, 71L) not identical to 52.
  1/1 mismatches
  [1] 70 - 52 == 18
  
  -- 2. Failure: Tree with 40 tips and two regimes (@test-PCMTree.R#38)  ---------
  PCMTreeGetParent(tree.ab, 71L) not identical to 52.
  1/1 mismatches
  [1] 70 - 52 == 18
  
  -- 3. Failure: PCMTreeNodeTimes (@test-PCMTree.R#51)  --------------------------
  PCMTreeNodeTimes(tree) not equivalent to c(...).
  28/29 mismatches (average diff: 0.695)
  [1] 2.07 - 0.667 ==  1.4078
  [2] 2.69 - 1.036 ==  1.6498
  [3] 2.38 - 1.477 ==  0.9010
  [4] 2.08 - 1.619 ==  0.4605
  [5] 1.95 - 2.107 == -0.1537
  [6] 2.57 - 3.574 == -1.0049
  [7] 2.28 - 3.261 == -0.9782
  [8] 2.89 - 3.563 == -0.6709
  [9] 2.66 - 2.595 ==  0.0674
  ...
  
  -- 4. Error: (unknown) (@test-PCMTree.R#67)  -----------------------------------
  ERR:02621:PCMBase:PCMTree.R:PCMTreeClade:28: cladeRootNode of character-type was not found in tree$node.label
  1: PCMTreeEvalNestedEDxOnTree("E(E(tree, 20),28)", tree) at testthat/test-PCMTree.R:67
  2: eval(parse(text = expr), envir = env)
  3: eval(parse(text = expr), envir = env)
  4: E(E(tree, 20), 28)
  5: PCMTreeExtractClade(tree = x, cladeRootNode = as.character(node), tableAncestors = tableAncestors)
  6: stop(paste0("ERR:02621:PCMBase:PCMTree.R:PCMTreeClade:", cladeRootNode, ": cladeRootNode of character-type was not found in tree$node.label"))
  
  == testthat results  ===========================================================
  OK: 69 SKIPPED: 0 FAILED: 4
  1. Failure: Tree with 40 tips and one regime (@test-PCMTree.R#25) 
  2. Failure: Tree with 40 tips and two regimes (@test-PCMTree.R#38) 
  3. Failure: PCMTreeNodeTimes (@test-PCMTree.R#51) 
  4. Error: (unknown) (@test-PCMTree.R#67) 
  
  Error: testthat unit tests failed
  Execution halted