Revision 0335fe4a src/Cluster.hs

b/src/Cluster.hs
562 562 
-- | Compute the mem and disk covariance.
563 563 
compDetailedCV :: NodeList -> (Double, Double)
564 564 
compDetailedCV nl =
565 
    let nstats = map Node.normUsed $ Container.elems nl
566 
        (mem_l, dsk_l) = unzip nstats
565 
    let
566 
        nodes = Container.elems nl
567 
        mem_l = map Node.p_mem nodes
568 
        dsk_l = map Node.p_dsk nodes
567 569 
        mem_cv = varianceCoeff mem_l
568 570 
        dsk_cv = varianceCoeff dsk_l
569 571 
    in (mem_cv, dsk_cv)

Also available in: Unified diff