module Sound.SC3.Plot.Histogram where import qualified Data.Vector as V {- vector -} import qualified Statistics.Sample.Histogram as H {- statistics -} data Histogram x = Histogram [x] [x] -- | Calculate 'Histogram' for number of bins /n/ and sample data /x/. histogram :: Int -> [Double] -> Histogram Double histogram n x = let v = V.fromList x (l,h) = H.histogram n v in Histogram (V.toList l) (V.toList h)