Nothing
#' Printing an object of class \code{hIRT}
#' @param x An object of class \code{hIRT}
#' @param digits The number of significant digits to use when printing
#' @param ... further arguments passed to \code{\link{print}}.
#' @export
print.hIRT <- function(x, digits = 3, ...) {
cat("\nCall:\n", paste(deparse(x[["call"]]), sep = "\n", collapse = "\n"),
"\n\n", sep = "")
cat("Mean Regression:\n")
print(coef_mean(x, digits), ...)
cat("\n")
cat("Variance Regression:\n")
print(coef_var(x, digits), ...)
cat("\nLog Likelihood:", round(x[["log_Lik"]], digits))
cat("\n\n")
invisible(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.