1 ## Copyright (C) 2005 Michel D. Schmid <michaelschmid@users.sourceforge.net>
4 ## This program is free software; you can redistribute it and/or modify it
5 ## under the terms of the GNU General Public License as published by
6 ## the Free Software Foundation; either version 2, or (at your option)
9 ## This program is distributed in the hope that it will be useful, but
10 ## WITHOUT ANY WARRANTY; without even the implied warranty of
11 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ## General Public License for more details.
14 ## You should have received a copy of the GNU General Public License
15 ## along with this program; see the file COPYING. If not, see
16 ## <http://www.gnu.org/licenses/>.
19 ## @deftypefn {Function File} {}@var{perf} = __mse (@var{E})
20 ## @code{__mse} returns the Mean-Square-Error of a vector E
24 ## This function is used to calculate the network performance
31 ## Author: Michel D. Schmid
33 function perf = __mse(E)
35 ## check number of inputs
36 error(nargchk(1,1,nargin));
43 perf = perf + sum(sum(E{i,j}.^2));
44 elements = elements + prod(size(E{i,j}));
47 perf = perf / elements;
49 error("Error vector should be a cell array!")