diff options
| author | Alberto Ruiz <aruiz@um.es> | 2008-03-02 15:29:46 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2008-03-02 15:29:46 +0000 |
| commit | 4761a5f2e70a2d82c90f1d7896ab4b3638c507a1 (patch) | |
| tree | ac5efab47ef0b237852b6f2ce3c7bfdc9e2dfed0 /examples | |
| parent | f7595e6fe032e0e3f505d82ba9aa4dabf2f0df63 (diff) | |
fixed pca1
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/pca1.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/pca1.hs b/examples/pca1.hs index ab3d0b7..775bb4c 100644 --- a/examples/pca1.hs +++ b/examples/pca1.hs | |||
| @@ -26,7 +26,7 @@ pca n dataSet = (encode,decode) | |||
| 26 | decode x = x <> vp + m | 26 | decode x = x <> vp + m |
| 27 | m = mean dataSet | 27 | m = mean dataSet |
| 28 | c = cov dataSet | 28 | c = cov dataSet |
| 29 | (_,v) = eigSH c | 29 | (_,v) = eigSH' c |
| 30 | vp = takeRows n (trans v) | 30 | vp = takeRows n (trans v) |
| 31 | 31 | ||
| 32 | norm = pnorm PNorm2 | 32 | norm = pnorm PNorm2 |