Nothing
#' @export
print.wbart <- function(x, ...) {
cmps <- paste0("\t$", names(x), collapse = "\n")
cat("\nBART::wbart with", length(x$yhat.train.mean), "samples\n")
cat("components:\n", cmps)
}
#' @export
print.pbart <- function(x, ...) {
cmps <- paste0("\t$", names(x), collapse = "\n")
cat("\nBART::pbart with", length(x$yhat.train.mean), "samples\n")
cat("components:\n", cmps)
}
#' @export
print.lbart <- function(x, ...) {
cmps <- paste0("\t$", names(x), collapse = "\n")
cat("\nBART:lbart with", length(x$yhat.train.mean), "samples\n")
cat("components:\n", cmps)
}
#' @export
print.mbart <- function(x, ...) {
cmps <- paste0("\t$", names(x), collapse = "\n")
cat("\nBART::mbart with", length(x$yhat.train.mean), "samples\n")
cat("components:\n", cmps)
}
#' @export
print.mbart2 <- function(x, ...) {
cmps <- paste0("\t$", names(x), collapse = "\n")
cat("\nBART::mbart2 with", length(x$yhat.train.mean), "samples\n")
cat("components:\n", cmps)
}
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.