#' Print Instance Level Residual Diagnostics
#'
#' Generic function
#'
#' @param x an object with instance level residual diagnostics created with \code{\link{predict_diagnostics}} function
#' @param ... other parameters
#'
#' @export
print.predict_diagnostics <- function(x, ...) {
if (is.null(x$variables)) {
res <- x$test
} else {
res <- x$cp_new_instance
}
print(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.