Chart-tests-1.9.3: tests/Test19.hs

module Test19 where

import Graphics.Rendering.Chart.Easy
import Control.Lens
import System.Random
import Data.Default.Class

samples :: [Double]
samples = zipWith (+) raw (tail raw)
  where
    raw = take 2000 (randomRs (0,50) (mkStdGen 0))

samples2 :: [Double]
samples2 = concat $ zipWith replicate [5, 4, 3, 7] [0..3]

chart = toRenderable $
  plot $ fmap histToPlot $ liftEC $ do
      plot_hist_title .= "Demo histogram"
      plot_hist_bins .= 100
      plot_hist_values .= samples
      plot_hist_norm_func .= const id

chart2 :: Renderable ()
chart2 = toRenderable $
  plot $ fmap histToPlot $ liftEC $ do
      plot_hist_bins .= 4
      plot_hist_values .= samples2
      plot_hist_norm_func .= const id