Running ‘testthat.R’ [51s/73s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(calculus)
  > 
  > test_check("calculus")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-curl.R:17:3): 202012141845 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f, var = c(x = 1, y = 2, z = 3)) test-curl.R:17:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:24:3): 202012141846 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f, var = c(x = 1, y = 2, z = 3), params = list(extra = TRUE)) test-curl.R:24:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:31:3): 202012141847 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(...) test-curl.R:31:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:38:3): 202012141856 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(...) test-curl.R:38:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:80:3): 202012141924 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f, var = c(r = 2, phi = 3, z = 4), coordinates = "cylindrical") test-curl.R:80:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:87:3): 202012141926 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f, var = c(2, 3, 4)) test-curl.R:87:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:96:3): 202012141930 ──────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f.num, var = c(r = 2, theta = 3, phi = 4), coordinates = "spherical") test-curl.R:96:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:105:3): 202012142000 ─────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f.num, var = c(r = 2, theta = 3, phi = 4)) test-curl.R:105:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-curl.R:113:3): 202012142333 ─────────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::curl(f.num, var = c(r = 2, theta = 3), coordinates = "spherical") test-curl.R:113:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:83:3): 202012062223 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(f = f.num, var = var, order = 1) test-derivative.R:83:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:92:3): 202012062224 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(f = f.num, var = var, order = 1) test-derivative.R:92:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:101:3): 202012062225 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(f = f.num, var = var, order = 1, params = list(extra = FALSE)) test-derivative.R:101:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:110:3): 202012062226 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(...) test-derivative.R:110:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:123:3): 202012111312 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(sum, 1:100) test-derivative.R:123:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:129:3): 202012111314 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(prod, 1:10) test-derivative.R:129:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:136:3): 202012111503 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(...) test-derivative.R:136:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:143:3): 202012111621 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::derivative(f, var = c(x = 1, y = 0), order = 2, accuracy = 4) test-derivative.R:143:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:150:3): 202012111623 ───────────────────────────────
  Error: data length differs from size of matrix: [12 != 3 x 3]
  Backtrace:
      █
   1. └─calculus::derivative(f, 1, order = 0) test-derivative.R:150:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-derivative.R:157:3): 202012111658 ───────────────────────────────
  Error: data length differs from size of matrix: [12 != 3 x 3]
  Backtrace:
      █
   1. └─calculus::derivative(f, 1:3, order = 0) test-derivative.R:157:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:24:3): 202012141345 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, var = c(x = 1, y = 2, z = 3)) test-divergence.R:24:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:31:3): 202012141346 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, var = c(y = 2, z = 3, x = 1)) test-divergence.R:31:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:38:3): 202012141351 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, var = c(1, 2, 3)) test-divergence.R:38:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:45:3): 202012141352 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, var = c(2, 3, 1)) test-divergence.R:45:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:59:3): 202012141410 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(...) test-divergence.R:59:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:66:3): 202012141411 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, var = c(10, pi/6, 100), coordinates = "cylindrical") test-divergence.R:66:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:73:3): 202012141412 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(...) test-divergence.R:73:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:80:3): 202012141625 ────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(...) test-divergence.R:80:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:108:3): 202012141704 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, 1:100) test-divergence.R:108:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-divergence.R:115:3): 202012142259 ───────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::divergence(f, 1, coordinates = "spherical") test-divergence.R:115:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:48:3): 202012131417 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(f = f.num, var = var) test-gradient.R:48:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:63:3): 202012131418 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(f.num, var = var, coordinates = "spherical") test-gradient.R:63:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:71:3): 202012131807 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(f.num, var = c(100, 52, pi/3), coordinates = "spherical") test-gradient.R:71:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:78:3): 202012131919 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(f, var = c(x = 2, y = 3)) test-gradient.R:78:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:85:3): 202012131920 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(f, var = c(x = 2, y = 3), drop = FALSE) test-gradient.R:85:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:92:3): 202012141708 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(f, var = c(x = 2, y = 3), drop = FALSE, params = list(extra = TRUE)) test-gradient.R:92:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-gradient.R:100:3): 202012141709 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::gradient(...) test-gradient.R:100:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:29:3): 202012131846 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f.num, var = c(x = 2, y = 3)) test-hessian.R:29:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:37:3): 202012131847 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(...) test-hessian.R:37:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:45:3): 202012131847 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f.num, var = c(x = 2, y = 3), accuracy = 4) test-hessian.R:45:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:53:3): 202012131910 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f.num, var = c(x = 2, y = 3)) test-hessian.R:53:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:60:3): 202012131915 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f, var = c(x = 2, y = 3)) test-hessian.R:60:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:67:3): 202012131917 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f, var = c(x = 2, y = 3), drop = FALSE) test-hessian.R:67:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:98:3): 202012132005 ───────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f, 1) test-hessian.R:98:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:105:3): 202012141710 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f, 1, params = list(extra = TRUE)) test-hessian.R:105:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-hessian.R:113:3): 202012302350 ──────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::hessian(f.num, var = c(x = 2, y = 3)) test-hessian.R:113:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-laplacian.R:17:3): 202012142245 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::laplacian(f, var = c(x = 3, y = 5)) test-laplacian.R:17:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-laplacian.R:24:3): 202012142246 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::laplacian(f, var = c(x = 3, y = 5)) test-laplacian.R:24:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-laplacian.R:31:3): 202012142310 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::laplacian(f, var = 100, coordinates = "spherical") test-laplacian.R:31:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-laplacian.R:39:3): 202012142311 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::laplacian(...) test-laplacian.R:39:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-laplacian.R:47:3): 202012142312 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::laplacian(f.num, var = c(x = 2, y = 3, z = 4), accuracy = 4) test-laplacian.R:47:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-laplacian.R:55:3): 202012142312 ─────────────────────────────────
  Error: data length differs from size of matrix: [30 != 5 x 5]
  Backtrace:
      █
   1. └─calculus::laplacian(...) test-laplacian.R:55:2
   2.   └─calculus::derivative(...)
   3.     └─calculus:::D.num(...)
   4.       ├─base::array(C.i(i[[k]], d[w.k]))
   5.       └─calculus:::C.i(i[[k]], d[w.k])
   6.         ├─base::t(...)
   7.         └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-taylor.R:9:3): 202012310013 ─────────────────────────────────────
  Error: data length differs from size of matrix: [12 != 3 x 3]
  Backtrace:
      █
   1. └─calculus::taylor(function(x) exp(x), var = "x", order = 2) test-taylor.R:9:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-taylor.R:30:3): 202012310016 ────────────────────────────────────
  Error: data length differs from size of matrix: [12 != 3 x 3]
  Backtrace:
      █
   1. └─calculus::taylor(prod, var = c(0, 0, 0), order = 3) test-taylor.R:30:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  ── Error (test-taylor.R:37:3): 202012310017 ────────────────────────────────────
  Error: data length differs from size of matrix: [12 != 3 x 3]
  Backtrace:
      █
   1. └─calculus::taylor(...) test-taylor.R:37:2
   2.   └─calculus:::D.num(...)
   3.     ├─base::array(C.i(i[[k]], d[w.k]))
   4.     └─calculus:::C.i(i[[k]], d[w.k])
   5.       ├─base::t(...)
   6.       └─base::matrix(data = rep(0:n.i, each = n.i), nrow = n.i, ncol = n.i)
  
  [ FAIL 54 | WARN 0 | SKIP 0 | PASS 185 ]
  Error: Test failures
  Execution halted