Free cookie consent management tool by TermsFeed Policy Generator

source: branches/DataAnalysis.PopulationDiversityAnalysis/HeuristicLab.Problems.DataAnalysis/3.3/Evaluators/SimpleRSquaredEvaluator.cs @ 13749

Last change on this file since 13749 was 4951, checked in by swinkler, 14 years ago

Branched DataAnalysis plugin into DataAnalysis.PopulationDiversity branch. (#1278)

File size: 3.2 KB
Line 
1#region License Information
2/* HeuristicLab
3 * Copyright (C) 2002-2010 Heuristic and Evolutionary Algorithms Laboratory (HEAL)
4 *
5 * This file is part of HeuristicLab.
6 *
7 * HeuristicLab is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation, either version 3 of the License, or
10 * (at your option) any later version.
11 *
12 * HeuristicLab is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with HeuristicLab. If not, see <http://www.gnu.org/licenses/>.
19 */
20#endregion
21
22using System;
23using System.Collections.Generic;
24using System.Linq;
25using HeuristicLab.Common;
26using HeuristicLab.Core;
27using HeuristicLab.Data;
28using HeuristicLab.Parameters;
29using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
30
31namespace HeuristicLab.Problems.DataAnalysis.Evaluators {
32  public class SimpleRSquaredEvaluator : SimpleEvaluator {
33    public ILookupParameter<DoubleValue> RSquaredParameter {
34      get { return (ILookupParameter<DoubleValue>)Parameters["RSquared"]; }
35    }
36    [StorableConstructor]
37    protected SimpleRSquaredEvaluator(bool deserializing) : base(deserializing) { }
38    protected SimpleRSquaredEvaluator(SimpleRSquaredEvaluator original, Cloner cloner)
39      : base(original, cloner) {
40    }
41    public override IDeepCloneable Clone(Cloner cloner) {
42      return new SimpleRSquaredEvaluator(this, cloner);
43    }
44    public SimpleRSquaredEvaluator() {
45      Parameters.Add(new LookupParameter<DoubleValue>("RSquared", "The squared Pearson's Product Moment Correlation (R²) of estimated values and original values."));
46    }
47
48    protected override void Apply(DoubleMatrix values) {
49      var original = from i in Enumerable.Range(0, values.Rows)
50                     select values[i, ORIGINAL_INDEX];
51      var estimated = from i in Enumerable.Range(0, values.Rows)
52                      select values[i, ESTIMATION_INDEX];
53      RSquaredParameter.ActualValue = new DoubleValue(Calculate(original, estimated));
54    }
55
56
57    public static double Calculate(IEnumerable<double> original, IEnumerable<double> estimated) {
58      var onlinePearsonRSquaredEvaluator = new OnlinePearsonsRSquaredEvaluator();
59      var originalEnumerator = original.GetEnumerator();
60      var estimatedEnumerator = estimated.GetEnumerator();
61
62      while (originalEnumerator.MoveNext() & estimatedEnumerator.MoveNext()) {
63        double e = estimatedEnumerator.Current;
64        double o = originalEnumerator.Current;
65        onlinePearsonRSquaredEvaluator.Add(o, e);
66      }
67      if (estimatedEnumerator.MoveNext() || originalEnumerator.MoveNext()) {
68        throw new ArgumentException("Number of elements in original and estimated enumeration doesn't match.");
69      } else {
70        return onlinePearsonRSquaredEvaluator.RSquared;
71      }
72    }
73
74    private static bool IsInvalidValue(double d) {
75      return double.IsNaN(d) || double.IsInfinity(d);
76    }
77  }
78}
Note: See TracBrowser for help on using the repository browser.