summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregorySchwartz <>2019-07-11 18:06:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2019-07-11 18:06:00 (GMT)
commitcdb717db62a409e2abd2d4efc755025adc6e526d (patch)
tree7ef180326278ababbb00d701f7d4d564fab2fd64
parent3f45811ba0deeacc0d2198c2af1475eb628f4b4e (diff)
version 0.3.0.30.3.0.3
-rw-r--r--spectral-clustering.cabal2
-rw-r--r--src/Math/Clustering/Spectral/Dense.hs2
-rw-r--r--src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs2
-rw-r--r--src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs2
-rw-r--r--src/Math/Clustering/Spectral/Sparse.hs2
5 files changed, 5 insertions, 5 deletions
diff --git a/spectral-clustering.cabal b/spectral-clustering.cabal
index ddcb39b..f5497f6 100644
--- a/spectral-clustering.cabal
+++ b/spectral-clustering.cabal
@@ -1,6 +1,6 @@
cabal-version: >=1.10
name: spectral-clustering
-version: 0.3.0.2
+version: 0.3.0.3
license: GPL-3
license-file: LICENSE
copyright: 2019 Gregory W. Schwartz
diff --git a/src/Math/Clustering/Spectral/Dense.hs b/src/Math/Clustering/Spectral/Dense.hs
index 98611b7..a39dd59 100644
--- a/src/Math/Clustering/Spectral/Dense.hs
+++ b/src/Math/Clustering/Spectral/Dense.hs
@@ -128,7 +128,7 @@ secondLeft n e m =
fmap (VS.drop (n - 1))
. H.toColumns
. (\(!x, _, _) -> x)
- . SVD.sparseSvd (e + (n - 1))
+ . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))
. H.mkCSR
. filter (\((_, _), x) -> x /= 0)
. concatMap (\(!i, xs) -> fmap (\(!j, !x) -> ((i, j), x)) xs)
diff --git a/src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs b/src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs
index 47d2fcf..e1ff976 100644
--- a/src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs
+++ b/src/Math/Clustering/Spectral/Eigen/AdjacencyMatrix.hs
@@ -184,7 +184,7 @@ secondLeft n e m = S.transpose
. drop (n - 1)
. H.toRows
. (\(!x, _, _) -> x)
- . SVD.sparseSvd (e + (n - 1))
+ . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))
. H.mkCSR
. fmap (\(!i, !j, !x) -> ((i, j), x))
. S.toList
diff --git a/src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs b/src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs
index 9bac0ad..8e2dbaa 100644
--- a/src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs
+++ b/src/Math/Clustering/Spectral/Eigen/FeatureMatrix.hs
@@ -102,7 +102,7 @@ secondLeft n e m = S.transpose
. drop (n - 1)
. H.toRows
. (\(!x, _, _) -> x)
- . SVD.sparseSvd (e + (n - 1))
+ . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))
. H.mkCSR
. fmap (\(!i, !j, !x) -> ((i, j), x))
. S.toList
diff --git a/src/Math/Clustering/Spectral/Sparse.hs b/src/Math/Clustering/Spectral/Sparse.hs
index bb97e0d..8060003 100644
--- a/src/Math/Clustering/Spectral/Sparse.hs
+++ b/src/Math/Clustering/Spectral/Sparse.hs
@@ -117,7 +117,7 @@ secondLeft n e m =
fmap (S.sparsifySV . S.fromListDenseSV e . drop (n - 1) . H.toList)
. H.toColumns
. (\(!x, _, _) -> x)
- . SVD.sparseSvd (e + (n - 1))
+ . SVD.sparseSvd' (SVD.defaultSVDParams {SVD.maxIters = Just 1000}) (e + (n - 1))
. H.mkCSR
. fmap (\(!i, !j, !x) -> ((i, j), x))
. S.toListSM