##' 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.