Running ‘testthat.R’ [35s/174s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(assemblerr)
  > 
  > test_check("assemblerr")
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (13)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-pk-model.R:58:3): 2cmp linear ─────────────────────────────────
  `object` does not match "DADT(1) = Q * (A(2)/VP) - (Q * (A(1)/VC) + CL * (A(1)/VC))".
  Actual value: "$PROBLEM\n$INPUT ID TIME DV AMT\n$DATA data.csv IGNORE=@\n$SUBROUTINES ADVAN13 TOL=6\n$MODEL COMP=(CENTRAL) COMP=(PERIPHERAL)\n$PK\nVC = THETA(1) * EXP(ETA(1))\nVP = THETA(2) * EXP(ETA(2))\nQ = THETA(3) * EXP(ETA(3))\nCL = THETA(4) * EXP(ETA(4))\n$DES\nDADT(1) = Q * A(2)/VP - (Q * A(1)/VC + CL * (A(1)/VC))\nDADT(2) = Q * A(1)/VC - Q * (A(2)/VP)\n$ERROR\nCONC = A(1)/VC\nY = CONC + EPS(1)\n$ESTIMATION METHOD=COND MAXEVAL=999999 \n$THETA (0, 100, Inf) ; POP_VC\n$THETA (0, 5, Inf) ; POP_VP\n$THETA (0, 50, Inf) ; POP_Q\n$THETA (0, 50, Inf) ; POP_CL\n$OMEGA 0.1 ; IIV_VC\n$OMEGA 0.1 ; IIV_VP\n$OMEGA 0.1 ; IIV_Q\n$OMEGA 0.1 ; IIV_CL\n$SIGMA 1; RUV_ADD"
  Backtrace:
       █
    1. ├─`%>%`(...) test-pk-model.R:58:2
    2. ├─assemblerr:::expect_contains(., "Y = CONC + EPS(1)")
    3. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    4. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    6. ├─assemblerr:::expect_contains(., "CONC = A(1)/VC")
    7. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    8. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    9. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   10. ├─assemblerr:::expect_contains(., "DADT(2) = Q * (A(1)/VC) - Q * (A(2)/VP)")
   11. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   12. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
   13. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   14. └─assemblerr:::expect_contains(., "DADT(1) = Q * (A(2)/VP) - (Q * (A(1)/VC) + CL * (A(1)/VC))")
   15.   └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   16.     └─testthat:::expect_match_(...)
  ── Failure (test-pk-model.R:58:3): 2cmp linear ─────────────────────────────────
  `object` does not match "DADT(2) = Q * (A(1)/VC) - Q * (A(2)/VP)".
  Actual value: "$PROBLEM\n$INPUT ID TIME DV AMT\n$DATA data.csv IGNORE=@\n$SUBROUTINES ADVAN13 TOL=6\n$MODEL COMP=(CENTRAL) COMP=(PERIPHERAL)\n$PK\nVC = THETA(1) * EXP(ETA(1))\nVP = THETA(2) * EXP(ETA(2))\nQ = THETA(3) * EXP(ETA(3))\nCL = THETA(4) * EXP(ETA(4))\n$DES\nDADT(1) = Q * A(2)/VP - (Q * A(1)/VC + CL * (A(1)/VC))\nDADT(2) = Q * A(1)/VC - Q * (A(2)/VP)\n$ERROR\nCONC = A(1)/VC\nY = CONC + EPS(1)\n$ESTIMATION METHOD=COND MAXEVAL=999999 \n$THETA (0, 100, Inf) ; POP_VC\n$THETA (0, 5, Inf) ; POP_VP\n$THETA (0, 50, Inf) ; POP_Q\n$THETA (0, 50, Inf) ; POP_CL\n$OMEGA 0.1 ; IIV_VC\n$OMEGA 0.1 ; IIV_VP\n$OMEGA 0.1 ; IIV_Q\n$OMEGA 0.1 ; IIV_CL\n$SIGMA 1; RUV_ADD"
  Backtrace:
       █
    1. ├─`%>%`(...) test-pk-model.R:58:2
    2. ├─assemblerr:::expect_contains(., "Y = CONC + EPS(1)")
    3. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    4. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    6. ├─assemblerr:::expect_contains(., "CONC = A(1)/VC")
    7. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    8. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    9. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   10. └─assemblerr:::expect_contains(., "DADT(2) = Q * (A(1)/VC) - Q * (A(2)/VP)")
   11.   └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   12.     └─testthat:::expect_match_(...)
  ── Failure (test-pk-model.R:121:3): 1cmp nonlinear ─────────────────────────────
  `object` does not match "DADT(1) = -(VMAX * (A(1)/VC)/(KM + A(1)/VC))".
  Actual value: "$PROBLEM\n$INPUT ID TIME DV AMT\n$DATA data.csv IGNORE=@\n$SUBROUTINES ADVAN13 TOL=6\n$MODEL COMP=(CENTRAL)\n$PK\nVC = THETA(1) * EXP(ETA(1))\nVMAX = THETA(2) * EXP(ETA(2))\nKM = THETA(3) * EXP(ETA(3))\n$DES\nDADT(1) = -(VMAX * A(1)/VC/(KM + A(1)/VC))\n$ERROR\nCONC = A(1)/VC\nY = CONC + EPS(1)\n$ESTIMATION METHOD=COND MAXEVAL=999999 \n$THETA (0, 100, Inf) ; POP_VC\n$THETA (0, 1, Inf) ; POP_VMAX\n$THETA (0, 0.5, Inf) ; POP_KM\n$OMEGA 0.1 ; IIV_VC\n$OMEGA 0.1 ; IIV_VMAX\n$OMEGA 0.1 ; IIV_KM\n$SIGMA 1; RUV_ADD"
  Backtrace:
       █
    1. ├─`%>%`(...) test-pk-model.R:121:2
    2. ├─assemblerr:::expect_contains(., "Y = CONC + EPS(1)")
    3. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    4. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    6. ├─assemblerr:::expect_contains(., "CONC = A(1)/VC")
    7. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    8. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    9. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   10. └─assemblerr:::expect_contains(., "DADT(1) = -(VMAX * (A(1)/VC)/(KM + A(1)/VC))")
   11.   └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   12.     └─testthat:::expect_match_(...)
  ── Failure (test-pk-model.R:163:3): 3cmp linear ────────────────────────────────
  `object` does not match "DADT(1) = Q1 * (A(2)/VP1) + Q2 * (A(3)/VP2) - (Q1 * (A(1)/VC) + Q2 * (A(1)/VC) + CL * (A(1)/VC))".
  Actual value: "$PROBLEM\n$INPUT ID TIME DV AMT\n$DATA data.csv IGNORE=@\n$SUBROUTINES ADVAN13 TOL=6\n$MODEL COMP=(CENTRAL) COMP=(PERIPHERAL1) COMP=(PERIPHERAL2)\n$PK\nVC = THETA(1) * EXP(ETA(1))\nVP1 = THETA(2) * EXP(ETA(2))\nVP2 = THETA(3) * EXP(ETA(3))\nQ1 = THETA(4) * EXP(ETA(4))\nQ2 = THETA(5) * EXP(ETA(5))\nCL = THETA(6) * EXP(ETA(6))\n$DES\nDADT(1) = Q1 * A(2)/VP1 + Q2 * (A(3)/VP2) - (Q1 * A(1)/VC + Q2 * (A(1)/VC) + CL * (A(1)/VC))\nDADT(2) = Q1 * A(1)/VC - Q1 * (A(2)/VP1)\nDADT(3) = Q2 * A(1)/VC - Q2 * (A(3)/VP2)\n$ERROR\nCONC = A(1)/VC\nY = CONC + EPS(1)\n$ESTIMATION METHOD=COND MAXEVAL=999999 \n$THETA (0, 100, Inf) ; POP_VC\n$THETA (0, 5, Inf) ; POP_VP1\n$THETA (0, 5, Inf) ; POP_VP2\n$THETA (0, 25, Inf) ; POP_Q1\n$THETA (0, 25, Inf) ; POP_Q2\n$THETA (0, 50, Inf) ; POP_CL\n$OMEGA 0.1 ; IIV_VC\n$OMEGA 0.1 ; IIV_VP1\n$OMEGA 0.1 ; IIV_VP2\n$OMEGA 0.1 ; IIV_Q1\n$OMEGA 0.1 ; IIV_Q2\n$OMEGA 0.1 ; IIV_CL\n$SIGMA 1; RUV_ADD"
  Backtrace:
       █
    1. ├─`%>%`(...) test-pk-model.R:163:2
    2. ├─assemblerr:::expect_contains(., "Y = CONC + EPS(1)")
    3. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    4. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    6. ├─assemblerr:::expect_contains(., "CONC = A(1)/VC")
    7. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    8. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    9. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   10. ├─assemblerr:::expect_contains(., "DADT(3) = Q2 * (A(1)/VC) - Q2 * (A(3)/VP2)")
   11. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   12. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
   13. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   14. ├─assemblerr:::expect_contains(., "DADT(2) = Q1 * (A(1)/VC) - Q1 * (A(2)/VP1)")
   15. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   16. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
   17. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   18. └─assemblerr:::expect_contains(., "DADT(1) = Q1 * (A(2)/VP1) + Q2 * (A(3)/VP2) - (Q1 * (A(1)/VC) + Q2 * (A(1)/VC) + CL * (A(1)/VC))")
   19.   └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   20.     └─testthat:::expect_match_(...)
  ── Failure (test-pk-model.R:163:3): 3cmp linear ────────────────────────────────
  `object` does not match "DADT(2) = Q1 * (A(1)/VC) - Q1 * (A(2)/VP1)".
  Actual value: "$PROBLEM\n$INPUT ID TIME DV AMT\n$DATA data.csv IGNORE=@\n$SUBROUTINES ADVAN13 TOL=6\n$MODEL COMP=(CENTRAL) COMP=(PERIPHERAL1) COMP=(PERIPHERAL2)\n$PK\nVC = THETA(1) * EXP(ETA(1))\nVP1 = THETA(2) * EXP(ETA(2))\nVP2 = THETA(3) * EXP(ETA(3))\nQ1 = THETA(4) * EXP(ETA(4))\nQ2 = THETA(5) * EXP(ETA(5))\nCL = THETA(6) * EXP(ETA(6))\n$DES\nDADT(1) = Q1 * A(2)/VP1 + Q2 * (A(3)/VP2) - (Q1 * A(1)/VC + Q2 * (A(1)/VC) + CL * (A(1)/VC))\nDADT(2) = Q1 * A(1)/VC - Q1 * (A(2)/VP1)\nDADT(3) = Q2 * A(1)/VC - Q2 * (A(3)/VP2)\n$ERROR\nCONC = A(1)/VC\nY = CONC + EPS(1)\n$ESTIMATION METHOD=COND MAXEVAL=999999 \n$THETA (0, 100, Inf) ; POP_VC\n$THETA (0, 5, Inf) ; POP_VP1\n$THETA (0, 5, Inf) ; POP_VP2\n$THETA (0, 25, Inf) ; POP_Q1\n$THETA (0, 25, Inf) ; POP_Q2\n$THETA (0, 50, Inf) ; POP_CL\n$OMEGA 0.1 ; IIV_VC\n$OMEGA 0.1 ; IIV_VP1\n$OMEGA 0.1 ; IIV_VP2\n$OMEGA 0.1 ; IIV_Q1\n$OMEGA 0.1 ; IIV_Q2\n$OMEGA 0.1 ; IIV_CL\n$SIGMA 1; RUV_ADD"
  Backtrace:
       █
    1. ├─`%>%`(...) test-pk-model.R:163:2
    2. ├─assemblerr:::expect_contains(., "Y = CONC + EPS(1)")
    3. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    4. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    6. ├─assemblerr:::expect_contains(., "CONC = A(1)/VC")
    7. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    8. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    9. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   10. ├─assemblerr:::expect_contains(., "DADT(3) = Q2 * (A(1)/VC) - Q2 * (A(3)/VP2)")
   11. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   12. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
   13. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   14. └─assemblerr:::expect_contains(., "DADT(2) = Q1 * (A(1)/VC) - Q1 * (A(2)/VP1)")
   15.   └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   16.     └─testthat:::expect_match_(...)
  ── Failure (test-pk-model.R:163:3): 3cmp linear ────────────────────────────────
  `object` does not match "DADT(3) = Q2 * (A(1)/VC) - Q2 * (A(3)/VP2)".
  Actual value: "$PROBLEM\n$INPUT ID TIME DV AMT\n$DATA data.csv IGNORE=@\n$SUBROUTINES ADVAN13 TOL=6\n$MODEL COMP=(CENTRAL) COMP=(PERIPHERAL1) COMP=(PERIPHERAL2)\n$PK\nVC = THETA(1) * EXP(ETA(1))\nVP1 = THETA(2) * EXP(ETA(2))\nVP2 = THETA(3) * EXP(ETA(3))\nQ1 = THETA(4) * EXP(ETA(4))\nQ2 = THETA(5) * EXP(ETA(5))\nCL = THETA(6) * EXP(ETA(6))\n$DES\nDADT(1) = Q1 * A(2)/VP1 + Q2 * (A(3)/VP2) - (Q1 * A(1)/VC + Q2 * (A(1)/VC) + CL * (A(1)/VC))\nDADT(2) = Q1 * A(1)/VC - Q1 * (A(2)/VP1)\nDADT(3) = Q2 * A(1)/VC - Q2 * (A(3)/VP2)\n$ERROR\nCONC = A(1)/VC\nY = CONC + EPS(1)\n$ESTIMATION METHOD=COND MAXEVAL=999999 \n$THETA (0, 100, Inf) ; POP_VC\n$THETA (0, 5, Inf) ; POP_VP1\n$THETA (0, 5, Inf) ; POP_VP2\n$THETA (0, 25, Inf) ; POP_Q1\n$THETA (0, 25, Inf) ; POP_Q2\n$THETA (0, 50, Inf) ; POP_CL\n$OMEGA 0.1 ; IIV_VC\n$OMEGA 0.1 ; IIV_VP1\n$OMEGA 0.1 ; IIV_VP2\n$OMEGA 0.1 ; IIV_Q1\n$OMEGA 0.1 ; IIV_Q2\n$OMEGA 0.1 ; IIV_CL\n$SIGMA 1; RUV_ADD"
  Backtrace:
       █
    1. ├─`%>%`(...) test-pk-model.R:163:2
    2. ├─assemblerr:::expect_contains(., "Y = CONC + EPS(1)")
    3. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    4. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    5. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    6. ├─assemblerr:::expect_contains(., "CONC = A(1)/VC")
    7. │ └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
    8. │   └─testthat::quasi_label(enquo(object), label, arg = "object")
    9. │     └─rlang::eval_bare(expr, quo_get_env(quo))
   10. └─assemblerr:::expect_contains(., "DADT(3) = Q2 * (A(1)/VC) - Q2 * (A(3)/VP2)")
   11.   └─testthat::expect_match(object, str, fixed = TRUE, all = FALSE)
   12.     └─testthat:::expect_match_(...)
  
  [ FAIL 6 | WARN 0 | SKIP 13 | PASS 420 ]
  Error: Test failures
  Execution halted