diff options
Diffstat (limited to 'pca.fut')
-rw-r--r-- | pca.fut | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -72,4 +72,4 @@ entry pcaWithQuantile [n][d] (iters: i32) (q: f64) (k: i64) (X: [n][d]f64) : ([n let Y = tabulate_2d n (d+1) (\i j -> if j == d then qs[i] else X[i][j]) let (B, U, l) = pca iters (1+k) Y let Y' = embed B U - in (map (\x -> x[0:k]) B, (transpose U[0:k])[0:d], map (\x -> x[0:d]) Y', l) + in (map (\x -> x[0:k]) B, (transpose U[0:k])[0:d], map (\x -> map (f64.- x[d]) x[0:d]) Y', l) |