if(interactive()) {
# Perform meta-analysis on VO2max
results <- perform_meta(endpoint = "VO2max")
# Plot Overall meta-analysis results
results$meta_analysis$Overall %>%
plot_metabolic()
# Plot Age meta-regression results
results$meta_regression$Age %>%
plot_metabolic()
# Plot overview of Overall and Subgroups meta-analysis results
results_bind <- perform_bind(results$meta_analysis)
results_bind %>%
plot_metabolic()
# Plot sensitivity analysis results
results$sensitivity_analysis$Overall %>%
plot_metabolic()
}
Run the code above in your browser using DataLab