R/print.ctrwSSM.r

In ianjonsen/ctrw: a Continuous-Time Random Walk state-space model to filter Argos Least Squares or Kalman Filter location data

##' Print \code{ctrw}
##'
##' @method print ctrwSSM
##'
##' @param x a \code{ctrw} fit object
##' @param digits number of digits to use in display
##' @param ... unused. For compatibility with the generic method.
##'
##' @export

print.ctrwSSM <- function(x, digits = 3, ...)
{
  mmod <- x$mmod
  nbrStates <- nrow(x$predicted)
  nbStates <- nrow(x$fitted)
  parm <- x$par

  cat("negative log-likelihood:", x$opt$objective, "\n")
  cat("convergence:", x$opt$message, "\n\n")
  cat("Argos measurement error model:", mmod, "\n")
  cat("number of observations:", nbStates, "\n")
  cat("number of regularised state estimates:", nbrStates, "\n\n")
  cat("parameter estimates\n")
  cat("-------------------\n")
  print(parm, digits = digits, justify = "right")

}