Merge pull request #2 from tochnonement/master

Mode function
rgertenbach · Dec 28, 2020 · 8331128 · 8331128
2 parents 5a2a1e4 + cf908b5
commit 8331128
Showing 1 changed file with 16 additions and 1 deletion.
diff --git a/stats.lua b/stats.lua
@@ -348,7 +348,22 @@ local function quartile(t, i)
   else 
     return quantile(t, quartiles[i])
   end 
-end 
+end
+
+local function mode(t)
+  local frequencies = frequency(t)
+  local last
+  local most
+
+  for value, repeats in pairs(frequency) do
+    if not last or (value > last) then
+      last = repeats
+      most = value
+    end
+  end
+
+  return most
+end
 
 
 --[[ Normal Distribution Functions ]]--