Make gl typestable

Author: garborg

src/statistics.jl

@@ -24,9 +24,10 @@ autocor{T}(dv::DataVector{T}) = autocor(dv, 1)
 # Generate levels - see the R documentation for gl
 function gl(n::Integer, k::Integer, l::Integer)
     nk = n * k
-    l % nk == 0 || throw(ArgumentError("length out must be a multiple of n * k"))
+    d, r = divrem(l, nk)
+    r == 0 || throw(ArgumentError("length out must be a multiple of n * k"))
     aa = Array(Int, l)
-    for j = 0:(l/nk - 1), i = 1:n
+    for j = 0:(d - 1), i = 1:n
         aa[j * nk + (i - 1) * k + (1:k)] = i
     end
     compact(PooledDataArray(aa))