Ajouter 'octave/remmean.m'

2023-02-19 22:48:16 +01:00 · 2023-02-19 22:48:16 +01:00 · 2715650503
parent b4995f33c1
commit 2715650503
1 changed files with 16 additions and 0 deletions
--- a/octave/remmean.m
+++ b/octave/remmean.m
@ -0,0 +1,16 @@
+function [newVectors, meanValue] = remmean(vectors);
+%REMMEAN - remove the mean from vectors
+%
+% [newVectors, meanValue] = remmean(vectors);
+%
+% Removes the mean of row vectors.
+% Returns the new vectors and the mean.
+%
+% This function is needed by FASTICA and FASTICAG
+
+% 24.8.1998
+% Hugo Gävert
+
+newVectors = zeros (size (vectors));
+meanValue = mean (vectors')';
+newVectors = vectors - meanValue * ones (1,size (vectors, 2));