paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Rename TFitStatistics.MSE to .ResidualStandardError.

Browse Source 
git-svn-id: trunk@58751 -
This commit is contained in:
wp 2018-08-21 19:16:11 +00:00
parent 6e5743846c
commit 19b7149384
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/tachart/tafitutils.pas
View File

@ -95,11 +95,11 @@ type
function Chi2: Double; function Chi2: Double;
function DOF: Integer; // Degrees of freedom function DOF: Integer; // Degrees of freedom
function F: Double; function F: Double;
function MSE: Double; // Mean standard error
function ReducedChi2: Double;
function R2: Double;
property N: Integer read fN; property N: Integer read fN;
property M: Integer read fM; property M: Integer read fM;
function ReducedChi2: Double;
function R2: Double;
function ResidualStandardError: Double;
property SST: Double read fSST; property SST: Double read fSST;
property SSR: Double read fSSR; property SSR: Double read fSSR;
property SSE: Double read fSSE; property SSE: Double read fSSE;
@ -377,15 +377,6 @@ begin
Result := fVarCovar[i, j]; Result := fVarCovar[i, j];
end; end;
{ Mean standard error of fit = sqrt(Chi2): The smaller the better }
function TFitStatistics.MSE: Double;
begin
if DOF > 0 then
Result := sqrt(SSE / DOF)
else
Result := NaN;
end;
{$IF FPC_FullVersion >= 30004} {$IF FPC_FullVersion >= 30004}
{ Probability that the scatter of the data around the fitted curve is by chance. { Probability that the scatter of the data around the fitted curve is by chance.
Should be several 0.1, the higher the better. Should be several 0.1, the higher the better.
@ -420,6 +411,15 @@ begin
Result := SSR / SST; Result := SSR / SST;
end; end;
{ Mean residual standard error of fit: The smaller the better }
function TFitStatistics.ResidualStandardError: Double;
begin
if DOF > 0 then
Result := sqrt(SSE / DOF)
else
Result := NaN;
end;
procedure TFitStatistics.Report_ANOVA(AText: TStrings; ASeparator: String = ': '; procedure TFitStatistics.Report_ANOVA(AText: TStrings; ASeparator: String = ': ';
ANumFormat: String = '%f'); ANumFormat: String = '%f');
const const
@ -438,7 +438,7 @@ begin
AText.Add(rsFitAdjCoefficientOfDetermination + ASeparator + Format(ANumFormat, [AdjR2])); AText.Add(rsFitAdjCoefficientOfDetermination + ASeparator + Format(ANumFormat, [AdjR2]));
AText.Add(rsFitChiSquared + ASeparator + Format(ANumFormat, [Chi2])); AText.Add(rsFitChiSquared + ASeparator + Format(ANumFormat, [Chi2]));
AText.Add(rsFitReducedChiSquared + ASeparator + Format(ANumFormat, [ReducedChi2])); AText.Add(rsFitReducedChiSquared + ASeparator + Format(ANumFormat, [ReducedChi2]));
AText.Add(rsFitResidualStandardError + ASeparator + Format(ANumFormat, [MSE])); AText.Add(rsFitResidualStandardError + ASeparator + Format(ANumFormat, [ResidualStandardError]));
AText.Add(rsFitVarianceRatio + ASeparator + Format(ANumFormat, [F])); AText.Add(rsFitVarianceRatio + ASeparator + Format(ANumFormat, [F]));
{ {
AText.Add(Format('Fcrit(%d, %d)', [M-1, DOF]) + ASeparator + AText.Add(Format('Fcrit(%d, %d)', [M-1, DOF]) + ASeparator +