Running ‘testthat.R’ [39s/48s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(MultiGHQuad)
  Loading required package: mvtnorm
  Loading required package: Matrix
  > 
  > test_check("MultiGHQuad")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 84 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_generate_quadpoints.R:22:3): Adapt accepts previous estimate ────
  Error in `!is.list(adapt) || length(adapt$mu) != Q || dim(adapt$Sigma) != 
      c(Q, Q)`: 'length = 2' in coercion to 'logical(1)'
  Backtrace:
      ▆
   1. ├─testthat::expect_is(init.quad(2, adapt = estimate), "list") at test_generate_quadpoints.R:22:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─MultiGHQuad::init.quad(2, adapt = estimate)
  ── Error (test_generate_quadpoints.R:32:3): Adapt accepts list ─────────────────
  Error in `!is.list(adapt) || length(adapt$mu) != Q || dim(adapt$Sigma) != 
      c(Q, Q)`: 'length = 2' in coercion to 'logical(1)'
  Backtrace:
      ▆
   1. ├─testthat::expect_is(init.quad(2, adapt = adapt), "list") at test_generate_quadpoints.R:32:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─MultiGHQuad::init.quad(2, adapt = adapt)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 84 ]
  Error: Test failures
  Execution halted
Running ‘testthat.R’ [40s/44s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(MultiGHQuad)
  Loading required package: mvtnorm
  Loading required package: Matrix
  > 
  > test_check("MultiGHQuad")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 84 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_generate_quadpoints.R:22:3): Adapt accepts previous estimate ────
  Error in `!is.list(adapt) || length(adapt$mu) != Q || dim(adapt$Sigma) != 
      c(Q, Q)`: 'length = 2' in coercion to 'logical(1)'
  Backtrace:
      ▆
   1. ├─testthat::expect_is(init.quad(2, adapt = estimate), "list") at test_generate_quadpoints.R:22:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─MultiGHQuad::init.quad(2, adapt = estimate)
  ── Error (test_generate_quadpoints.R:32:3): Adapt accepts list ─────────────────
  Error in `!is.list(adapt) || length(adapt$mu) != Q || dim(adapt$Sigma) != 
      c(Q, Q)`: 'length = 2' in coercion to 'logical(1)'
  Backtrace:
      ▆
   1. ├─testthat::expect_is(init.quad(2, adapt = adapt), "list") at test_generate_quadpoints.R:32:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─MultiGHQuad::init.quad(2, adapt = adapt)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 84 ]
  Error: Test failures
  Execution halted