1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
%{/*
Author: Juan Rada-Vilela, Ph.D.
Copyright (C) 2010-2014 FuzzyLite Limited
All rights reserved
This file is part of fuzzylite.
fuzzylite is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License as published by the Free
Software Foundation, either version 3 of the License, or (at your option)
any later version.
fuzzylite is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License
for more details.
You should have received a copy of the GNU Lesser General Public License
along with fuzzylite. If not, see <http://www.gnu.org/licenses/>.
fuzzylite (R) is a registered trademark of FuzzyLite Limited.
*/
}%
function [engine] = compare(fisFile, fldFile, delimiter, hasMetadata)
if (nargin < 3)
delimiter = ' ';
end
if (nargin < 4)
hasMetadata = true;
end
engine = readfis(fisFile);
flMatrix = dlmread(fldFile, delimiter, hasMetadata ~ = 0, 0);
if (length(engine.input) + length(engine.output) ~ = size(flMatrix, 2))
error('fuzzylite:compare.m', 'Number of inputs and outputs in engine differ from FLD matrix');
end
if (isempty(engine.andMethod))
engine.andMethod = 'min';
end
if (isempty(engine.orMethod))
engine.orMethod = 'max';
end
engine.inputValues = flMatrix(1 : end, 1 : length(engine.input));
engine.outputValues = evalfis(engine.inputValues, engine);
engine.flOutputValues = flMatrix(1 : end, (length(engine.input) + 1) : (length(engine.input) + length(engine.output)));
engine.outputDiff = engine.outputValues - engine.flOutputValues;
engine.fld = [engine.inputValues engine.outputValues engine.flOutputValues engine.outputDiff];
engine.nanfreeDiff = engine.outputDiff;
engine.nanfreeDiff(find(isnan(engine.nanfreeDiff))) = 0;
engine.mse = nansum(engine.outputDiff.^2) / size(engine.outputDiff, 1);
engine.quantiles = prctile(engine.nanfreeDiff, 0 : 25 : 100);
end
|