Running ‘testthat.R’ [246s/286s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(basket)
  > 
  > test_check("basket")
  
  ── The MEM Model Call ──────────────────────────────────────────────────────────
  
  mem_exact(responses = vemu_wide1$responders, size = vemu_wide1$evaluable, 
      name = vemu_wide1$baskets, p0 = 0.25, cluster_analysis = TRUE)
  
  ── The Basket Summary ──────────────────────────────────────────────────────────
  
  The Null Response Rates (alternative is greater):
                 NSCLC CRC (vemu) CRC (vemu+cetu)
  Null           0.250      0.250            0.25
  Posterior Prob 0.951      0.002            0.00
  
  Posterior Mean and Median Response Rates:
         NSCLC CRC (vemu) CRC (vemu+cetu)
  Mean   0.425      0.041           0.042
  Median 0.422      0.032           0.033
  
  Highest Posterior Density Interval with Coverage Probability 0.95:
        NSCLC CRC (vemu) CRC (vemu+cetu)
  lower 0.208      0.000           0.000
  upper 0.628      0.105           0.109
  
  Posterior Effective Sample Size:
    [,1]   [,2]   [,3]
   19.93 55.647 50.867
  
  ── The Cluster Summary ─────────────────────────────────────────────────────────
  
  Cluster 1        
   "NSCLC"
  Cluster 2                               
   "CRC (vemu)" "CRC (vemu+cetu)"
  
  The Null Response Rates (alternative is greater):
                 Cluster 1 Cluster 2
  Null               0.250     0.250
  Posterior Prob     0.951     0.001
  
  Posterior Mean and Median Response Rates:
         Cluster 1 Cluster 2
  Mean       0.425     0.041
  Median     0.422     0.033
  
  Highest Posterior Density Interval with Coverage Probability 0.95:
              Cluster 1 Cluster 2
  Lower Bound     0.214     0.000
  Upper Bound     0.631     0.107
  
  Posterior Effective Sample Size:
   Cluster 1 Cluster 2
       20.28     52.91
  
  
  The Null Response Rates (alternative is greater):
                 NSCLC CRC (vemu) CRC (vemu+cetu)
  Null           0.250      0.250            0.25
  Posterior Prob 0.951      0.002            0.00
  
  Posterior Mean and Median Response Rates:
         NSCLC CRC (vemu) CRC (vemu+cetu)
  Mean   0.425      0.041           0.042
  Median 0.422      0.032           0.033
  
  Highest Posterior Density Interval with Coverage Probability 0.95:
        NSCLC CRC (vemu) CRC (vemu+cetu)
  lower 0.208      0.000           0.000
  upper 0.628      0.105           0.109
  
  Posterior Effective Sample Size:
    [,1]   [,2]   [,3]
   19.93 55.647 50.867
  
  
  Cluster 1        
   "NSCLC"
  Cluster 2                               
   "CRC (vemu)" "CRC (vemu+cetu)"
  
  The Null Response Rates (alternative is greater):
                 Cluster 1 Cluster 2
  Null               0.250     0.250
  Posterior Prob     0.951     0.001
  
  Posterior Mean and Median Response Rates:
         Cluster 1 Cluster 2
  Mean       0.425     0.041
  Median     0.422     0.033
  
  Highest Posterior Density Interval with Coverage Probability 0.95:
              Cluster 1 Cluster 2
  Lower Bound     0.214     0.000
  Upper Bound     0.631     0.107
  
  Posterior Effective Sample Size:
   Cluster 1 Cluster 2
       20.28     52.91
  
  ── 1. Error: (unknown) (@test-mcmc.r#74)  ──────────────────────────────────────
  Assigned data `x$p0` must be compatible with existing data.
  ✖ Existing data has 300000 rows.
  ✖ Assigned data has 3 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_true(...)
    6. basket:::plot_density.mem(mcmc_res1$basket)
    8. tibble:::`$<-.tbl_df`(...)
    9. tibble:::tbl_subassign(...)
   10. tibble:::vectbl_recycle_rhs(...)
   11. base::tryCatch(...)
   12. base:::tryCatchList(expr, classes, parentenv, handlers)
   13. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   14. value[[3L]](cond)
  
  ── 2. Error: (unknown) (@test-plot.r#16)  ──────────────────────────────────────
  Assigned data `x$p0` must be compatible with existing data.
  ✖ Existing data has 600000 rows.
  ✖ Assigned data has 6 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
    1. testthat::expect_true(inherits(plot_density(mh1), "ggplot"))
    6. basket:::plot_density.exchangeability_model(mh1)
    7. base::lapply(ps, function(pt) plot_density(x[[pt]]))
    8. basket:::FUN(X[[i]], ...)
   10. basket:::plot_density.mem(x[[pt]])
   12. tibble:::`$<-.tbl_df`(...)
   13. tibble:::tbl_subassign(...)
   14. tibble:::vectbl_recycle_rhs(...)
   15. base::tryCatch(...)
   16. base:::tryCatchList(expr, classes, parentenv, handlers)
   17. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   18. value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 32 | SKIPPED: 2 | WARNINGS: 0 | FAILED: 2 ]
  1. Error: (unknown) (@test-mcmc.r#74) 
  2. Error: (unknown) (@test-plot.r#16) 
  
  Error: testthat unit tests failed
  Execution halted