expectedVector :: ContactMap -> U.Vector Double
expectedVector c = U.generate n $ \d -> expectedAt d c
  where
    n = MS.rows $ _matrix c

expectedVector :: ContactMap -> U.Vector Double
expectedVector c = U.generate n $ \d -> expectedAt d c
  where
    n = MS.rows $ _matrix c

expectedVector c = U.generate n $ \d -> expectedAt d c
  where
    n = MS.rows $ _matrix c
