From 6a5cde8d8f2d05281deb0b2c2c8f502468bd7c7a Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Thu, 28 Feb 2019 12:39:04 +0000
Subject: [PATCH] TAChart: Remove deprecated TFitSeries.GoodnessOfFit and
 related.

git-svn-id: trunk@60530 -
---
 components/tachart/tafuncseries.pas | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/components/tachart/tafuncseries.pas b/components/tachart/tafuncseries.pas
index 764e051382..ab20b39a08 100644
--- a/components/tachart/tafuncseries.pas
+++ b/components/tachart/tafuncseries.pas
@@ -284,9 +284,6 @@ type
 
   TFitParamsState = (fpsUnknown, fpsInvalid, fpsValid);
 
-  TCalcGoodnessOfFitEvent = procedure (Sender: TObject; var x,y: ArbFloat;
-    n: Integer; out AResult: Double) of object;
-
   TFitFuncIndex = 1..MaxInt;
 
   TFitFuncEvent = procedure(AIndex: TFitFuncIndex; AFitFunc: TFitFunc) of object;
@@ -306,8 +303,6 @@ type
     FErrCode: TFitErrCode;
     FFitStatistics: TFitStatistics;
     FConfidenceLevel: Double;
-    FGoodnessOfFit: Double;
-    FOnCalcGoodnessOfFit: TCalcGoodnessOfFitEvent;
     function GetParam(AIndex: Integer): Double;
     function GetParamCount: Integer;
     function GetParamError(AIndex: Integer): Double;
@@ -332,7 +327,6 @@ type
     function TransformY(AY: Double): Extended; inline;
   protected
     procedure AfterAdd; override;
-    function CalcGoodnessOfFit(var x,y: ArbFloat; n: Integer): Double; virtual; deprecated;
     procedure GetLegendItems(AItems: TChartLegendItems); override;
     procedure InvalidateFitResults; virtual;
     procedure Loaded; override;
@@ -372,7 +366,6 @@ type
     property ConfidenceLevel: Double read FConfidenceLevel write FConfidenceLevel;
     property ErrCode: TFitErrCode read FErrCode;
     property State: TFitParamsState read FState;
-    property GoodnessOfFit: Double read FGoodnessOfFit; deprecated 'Use FitStatistics instead';
   published
     property AutoFit: Boolean read FAutoFit write FAutoFit default true;
     property AxisIndexX;
@@ -395,8 +388,6 @@ type
     property ToolTargets default [nptPoint, nptCustom];
     property XErrorBars;
     property YErrorBars;
-    property OnCalcGoodnessOfFit: TCalcGoodnessOfFitEvent
-      read FOnCalcGoodnessOfFit write FOnCalcGoodnessOfFit; deprecated 'Use Statistics instead';
     property OnCustomDrawPointer;
     property OnFitComplete: TNotifyEvent
       read FOnFitComplete write FOnFitComplete;
@@ -1568,15 +1559,6 @@ begin
   FFitRange.SetOwner(ParentChart);
 end;
 
-{ Returns the R-squared parameter as a simple measure for the goodness-of-fit.
-  This function is obsolete since Laz v1.9 and has been replaced by the more
-  comprehensive property "FitStatistics".}
-function TFitSeries.CalcGoodnessOfFit(var x,y: ArbFloat; n: Integer): Double;
-begin
-  Unused(x, y, n);
-  Result := FFitStatistics.R2;
-end;
-
 function TFitSeries.Calculate(AX: Double): Double;
 var
   i: Integer;
@@ -2001,7 +1983,6 @@ var
 begin
   FState := fpsUnknown;
   FreeAndNil(FFitStatistics);
-  FGoodnessOfFit := NaN;
   for i:=0 to High(FFitParams) do FFitParams[i].Value := NaN;
 end;