spectral-clustering 0.3.0.3 → 0.3.0.4

raw patch · 5 files changed

+5/−5 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

spectral-clustering.cabal +1/−1
src/Math/Clustering/Spectral/Dense.hs +1/−1
src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs +1/−1
src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs +1/−1
src/Math/Clustering/Spectral/Sparse.hs +1/−1

spectral-clustering.cabal view

@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: spectral-clustering-version: 0.3.0.3+version: 0.3.0.4 license: GPL-3 license-file: LICENSE copyright: 2019 Gregory W. Schwartz

src/Math/Clustering/Spectral/Dense.hs view

@@ -128,7 +128,7 @@   fmap (VS.drop (n - 1))     . H.toColumns     . (\(!x, _, _) -> x)-    . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))+    . SVD.sparseSvd (e + (n - 1))     . H.mkCSR     . filter (\((_, _), x) -> x /= 0)     . concatMap (\(!i, xs) -> fmap (\(!j, !x) -> ((i, j), x)) xs)

src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs view

@@ -184,7 +184,7 @@                . drop (n - 1)                . H.toRows                . (\(!x, _, _) -> x)-               . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))+               . SVD.sparseSvd (e + (n - 1))                . H.mkCSR                . fmap (\(!i, !j, !x) -> ((i, j), x))                . S.toList

src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs view

@@ -102,7 +102,7 @@                  . drop (n - 1)                  . H.toRows                  . (\(!x, _, _) -> x)-                 . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))+                 . SVD.sparseSvd (e + (n - 1))                  . H.mkCSR                  . fmap (\(!i, !j, !x) -> ((i, j), x))                  . S.toList

src/Math/Clustering/Spectral/Sparse.hs view

@@ -117,7 +117,7 @@   fmap (S.sparsifySV . S.fromListDenseSV e . drop (n - 1) . H.toList)     . H.toColumns     . (\(!x, _, _) -> x)-    . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))+    . SVD.sparseSvd (e + (n - 1))     . H.mkCSR     . fmap (\(!i, !j, !x) -> ((i, j), x))     . S.toListSM