predictions <- replicate(200, rpois(n = 30, lambda = 1:30))
mad_sample(predictions)
-#> [1] 1.4826 1.4826 1.4826 1.4826 1.4826 2.9652 2.9652 2.9652 2.9652 2.9652
-#> [11] 2.9652 2.9652 2.9652 4.4478 4.4478 4.4478 4.4478 4.4478 4.4478 4.4478
-#> [21] 4.4478 4.4478 4.4478 5.9304 4.4478 4.4478 5.1891 5.9304 4.4478 4.4478
+#> [1] 1.4826 1.4826 1.4826 1.4826 1.4826 1.4826 2.9652 2.9652 2.9652 2.9652
+#> [11] 2.9652 2.9652 2.9652 2.9652 4.4478 4.4478 4.4478 2.9652 4.4478 4.4478
+#> [21] 4.4478 4.4478 4.4478 5.9304 4.4478 4.4478 4.4478 5.9304 4.4478 5.9304