-norm, +rcond, +kronecker

1 files changed, 3 insertions, 1 deletions

diff --git a/examples/pca1.hs b/examples/pca1.hs
index 4ad8720..ab3d0b7 100644
--- a/examples/pca1.hs
+++ b/examples/pca1.hs
@@ -21,7 +21,7 @@ cov x = (trans xc <> xc) / fromIntegral (rows x -1)
 -- creates the compression and decompression functions from the desired number of components
 pca :: Int -> Mat -> (Vec -> Vec , Vec -> Vec)
 pca n dataSet = (encode,decode)
-  where    
+  where
     encode x = vp <> (x - m)
     decode x = x <> vp + m
     m = mean dataSet
@@ -29,6 +29,8 @@ pca n dataSet = (encode,decode)
     (_,v) = eigSH c
     vp = takeRows n (trans v)
 
+norm = pnorm PNorm2
+
 main = do
     ok <- doesFileExist ("mnist.txt")
     when (not ok)  $ do