###############################################################################################################################################
# Print MARSS model structure
###############################################################################################################################################
print.marssMODEL <- function(x, ...) {
model.dims <- attr(x, "model.dims")
n <- model.dims$y[1]
m <- model.dims$x[1]
X.names <- attr(x, "X.names")
Y.names <- attr(x, "Y.names")
cat(paste("\nModel form is ", attr(x, "form")[1], ". Model Structure is\n",
"m: ", m, " state process(es) named ", paste(X.names, collapse = " "), "\n",
"n: ", n, " observation time series named ", paste(Y.names, collapse = " "), "\n\n",
sep = ""
))
tmp <- NULL
## Print model structure for each parameter
## This is where the form specific function call resides
rpt <- describe.marssMODEL(x)
for (el in attr(x, "par.names")) {
# if model structure is in English, print it
cat(el, ": ", rpt[[el]], "\n")
}
invisible(rpt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.