--- a
+++ b/code/preprocessing/EEG/fastica/remmean.m
@@ -0,0 +1,15 @@
+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
+
+% @(#)$Id$
+
+newVectors = zeros (size (vectors));
+meanValue = mean (vectors')';
+newVectors = vectors - meanValue * ones (1,size (vectors, 2));