# Create example results list with two chains
results <- list(
list(rejection_rate = 0.3),
list(rejection_rate = 0.4)
)
# Get rejection rates without printing
rates <- printRejectionRates(results, verbose = FALSE)
# Print rejection rates
rates <- printRejectionRates(results)
Run the code above in your browser using DataLab