#' @name print.BGGM
#' @title Print method for \code{BGGM} objects
#'
#' @description Mainly used to avoid a plethora of different print
#' functions that overcrowded the documentation in previous versions
#' of \strong{BGGM}.
#'
#' @param x An object of class \code{BGGM}
#' @param ... currently ignored
#'
#' @importFrom methods is
#' @export
print.BGGM <- function(x, ...) {
if(is(x, "prior_var")){
print_prior_var(x, ...)
}
if(is(x, "prior_ggm")){
print_prior_ggm(x, ...)
}
# print estimate methods
if(is(x, "mvn_imputation")){
print_mvn_impute(x, ...)
}
if(is(x, "var_estimate")){
if(is(x, "default")){
print_var_estimate(x, ...)
}
if(is(x, "summary.var_estimate")){
print_summary_var_estimate(x, ...)
}
if(is(x, "select.var_estimate")){
print_select_var_estimate(x, ...)
}
} # end var_estimate
if(is(x, "pcor_sum")){
print_pcor_sum(x, ...)
}
if(is(x, "regression_summary")){
print_regression_summary(x,...)
}
if(is(x, "estimate")) {
if(is(x, "default")) {
print_estimate(x, ...)
} else if (is(x, "fitted")) {
print_fitted(x, ...)
} else if (is(x, "predict")) {
print_predict(x, ...)
} else if (is(x, "map")) {
print_map(x, ...)
} else if (is(x, "coef")) {
print_coef(x, ...)
} else if (is(x, "ggm_compare_estimate")) {
if (is(x, "summary")) {
print_summary_ggm_estimate_compare(x, ...)
} else {
print_ggm_compare(x, ...)
}
} else if (is(x, "ggm_compare_ppc")) {
print_ggm_compare_ppc(x, ...)
} else if (is(x, "metric")) {
if (is(x, "summary")) {
print_summary_metric(x)
} else {
if (is(x, "R2")) {
print_summary_metric(summary(x, ...))
} else {
print_summary_metric(summary(x, ...))
}
}
# end metric
} else if (is(x, "summary.estimate")) {
print_summary_estimate(x)
} else if (is(x, "post.pred")) {
print_post_pred(x, ...)
} else if (is(x, "select.estimate")) {
print_select_estimate(x, ...)
} else if (is(x, "select.ggm_compare_estimate")) {
print_select_ggm_compare_estimate(x, ...)
}
}
# explore methods
if (is(x, "explore")) {
if(is(x, "default")){
print_explore(x, ..)
}
if(is(x, "summary_explore")){
print_summary_estimate(x,...)
}
if (is(x, "select.explore")) {
if (is(x, "summary")) {
print_summary_select_explore(x, ...)
} else {
print_select_explore(x, ...)
}
}
if (is(x, "select.ggm_compare_bf")) {
print_select_ggm_compare_bf(x, ...)
}
if (is(x, "ggm_compare_explore")) {
if (is(x, "summary.ggm_compare_explore")) {
print_summary_ggm_compare_bf(x)
} else {
print_ggm_compare_bf(x, ...)
}
}
} # end of explore
if (is(x, "confirm")) {
if (is(x, "ggm_compare_confirm")) {
print_ggm_confirm(x , ...)
} else {
print_confirm(x, ...)
}
} # end confirm
# coefficients
if( is(x, "coef") ){
if( is(x, "summary.coef") ){
print_summary_coef(x, ...)
} else {
print_coef(x,...)
}
}
if (is(x, "roll_your_own")) {
print_roll_your_own(x, ...)
}
if (is(x, "ggm_search")) {
print_ggm_search(x, ..)
}
if(is(x, "precision")){
print_precision(x, ...)
}
if(is(x, "bma_posterior")){
print_bma(x,...)
}
if(is(x, "constrained")){
print_constrained(x, ...)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.