Nothing
#' @rdname mprm
#'
#' @export
#'
#' @method print MPRM
#'
#' @param x object of class \code{MPRM}
print.MPRM <-
function(x, ...){
cat("\n Call: ", deparse(x$call), "\n\n")
cat("Function calls: \n")
print(x$fun_calls)
cat("Parameter estimates: \n")
print(x$itempar)
print(x$itempar_se)
}
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.