data(japan_neutro)
metrics <- compute_all_metrics(japan_neutro)
# View mean intervals
cat("Auxiliary Mean Interval:", metrics$mean_interval_X, "\n")
cat("Study Mean Interval:", metrics$mean_interval_Y, "\n")
# View correlation results
cat("Correlation between intervals (rho_L, rho_U):",
metrics$correlation_results, "\n")
Run the code above in your browser using DataLab