- printf "%3d: drop_rate %.5f (%4d/%8d) drop_event_rate %.5f (%3d/%4d)\n",
- $n, $drop_rate, $num_drops, $n * $num_bursts,
- $drop_event_rate, $bursts_with_drops, $num_bursts;
+
+ my ($drop_rate_min, $drop_rate_max) = wilson_interval($num_drops, $n * $num_bursts);
+ my ($drop_event_rate_min, $drop_event_rate_max) = wilson_interval($bursts_with_drops, $num_bursts);
+
+ printf "%3d: drop_rate %.5f 95%%ci = [%.5f, %.5f] (%4d/%8d) drop_event_rate %.5f 95%%ci = [%.5f, %.5f] (%3d/%4d)\n",
+ $n,
+ $drop_rate, $drop_rate_min, $drop_rate_max, $num_drops, $n * $num_bursts,
+ $drop_event_rate, $drop_event_rate_min, $drop_event_rate_max, $bursts_with_drops, $num_bursts;