#' @export
print.eivgmm <- function(x, ...) {
## set up the framework like glm/geeglm/geese
cat("\nCall:\n")
dput(x$call)
## coefficients
cat("\nCoefficients:\n")
print(x$coefficients)
cat("\n")
cat(x$convergence_message)
invisible(x)
}
#' @export
print.summary.eivgmm <- function(x, ...) {
cat("\nFormula: ")
print(x$formula)
cat("\nVariance matrix for measurement errors\n")
print(x$mcov)
cat("\n")
printCoefmat(x$coef.matrix, digits = 3, P.values = TRUE)
cat("\n")
cat(x$convergence_message)
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.