expectedAt :: Int -> ContactMap -> Double
expectedAt d c = mean $ U.generate (n-d) $ \i -> MS.unsafeIndex mat (i,i+d)
  where
    mat = _matrix c
    n = MS.rows mat

expectedAt :: Int -> ContactMap -> Double
expectedAt d c = mean $ U.generate (n-d) $ \i -> MS.unsafeIndex mat (i,i+d)
  where
    mat = _matrix c
    n = MS.rows mat

expectedAt d c = mean $ U.generate (n-d) $ \i -> MS.unsafeIndex mat (i,i+d)
  where
    mat = _matrix c
    n = MS.rows mat
