YouTipExecuting the above code outputs:
"10 customers' arrival intervals (minutes):"
1.52 1.19 16.40 0.66 0.69 9.80 2.65 1.03 3.30 0.06
"Average interval: 3.73 minutes"
"10000 samples mean: 5.02"R Func Rexp
# Generate large amount of data for verification
set.seed(123)
large_sample <- rexp(10000, rate = 1/5)
print(paste("10000 samples mean:", round(mean(large_sample), 2)))