R/performanceTestResolve.R

In KWB-R/kwb.fakin: Functions Used in Our Fakin Project

# performanceTestResolve -------------------------------------------------------
performanceTestResolve <- function
(
  x, dict,
  N = c(1, 5, 10, 50, 100, 200, 500, 1000, 2000, 5000, 10000)[seq_len(n.points)],
  n.points = 11
)
{
  runtimes <- sapply(N, function(n) {
    cat("n =", n, "\n")
    c(n = n, system.time(kwb.utils::resolve(x[seq_len(n)], dict)))
  })

  graphics::plot(runtimes["n", ], runtimes["elapsed", ], type = "l")

  runtimes
}