#' Model Benchmarking
#'
#' @description Benchmarks and saves the details of a model for benchmarking of
#' speed and unit testing.
#' @param object an object of class \dQuote{tsissm.spec}.
#' @param solver solver to use for estimation.
#' @param control additional controls passed to the solver.
#' @param autodiff whether to use automatic differentiation for estimation.
#' This makes use of the tsissmad package.
#' @param ... not currently used.
#' @aliases tsbenchmark
#' @method tsbenchmark tsissm.spec
#' @rdname tsbenchmark
#' @export
#'
#'
tsbenchmark.tsissm.spec <- function(object, solver = "nlminb", control = list(trace = 0), autodiff = FALSE, ...)
{
start <- Sys.time()
mod <- estimate(object, solver = solver, control = control, autodiff = autodiff)
end <- Sys.time()
return(data.table(start = start, end = end, spec = list(object),
estimate = list(mod), solver = solver, control = control,
loglik = as.numeric(logLik(mod))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.