Nothing
#' @method print MetaForest
#' @export
print.MetaForest <- function(x, digits = NULL, ...) {
cat("Call:\n")
print(x$call)
cat("\nR squared (OOB): ", formatC(x$forest$r.squared, digits = digits, format="f"), "\n")
cat("Residual heterogeneity (tau2): ", formatC(x$rma_after$tau2, digits = digits, format="f"), "\n")
}
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.