R/summary_tune_vlmc.R

In mixvlmc: Variable Length Markov Chains with Covariates

#' @exportS3Method
summary.tune_vlmc <- function(object, ...) {
  res <- object
  res$saved_models <- NULL
  structure(res, class = "summary.tune_vlmc")
}

#' @exportS3Method
print.summary.tune_vlmc <- function(x, ...) {
  cat("VLMC tune results\n\n")
  cat("Best VLMC selected by", x$criterion, "(")
  if (x$criterion == "BIC") {
    cat(min(x$results$BIC))
  } else {
    cat(min(x$results$AIC))
  }
  cat(") with likelihood function \"", x$initial, "\" (", sep = "")
  cat(loglikelihood(x$best_model))
  cat(")\n")
  print(x$best_model)
  cat("\nPruning results\n")
  print(x$results, row.names = FALSE)
  invisible(x)
}