pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Fix AnovaTestsUnit crashing in "Brown-Forsythe test for homogeneity of variance" when data grid is empty.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7378 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-13 20:41:00 +00:00
parent bc505b84f0
commit e88e7b1454
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
applications/lazstats/source/units/anovatestsunit.pas
View File

@ -590,8 +590,18 @@ Var
cellvars : DblDyneVec;
cellsums : DblDyneVec;
X, X2, temp : double;
outline : string;
begin
if GroupCol >= OS3MainFrm.DataGrid.ColCount then
begin
MessageDlg('Invalid index of group column', mtError, [mbOK], 0);
exit;
end;
if VarColumn >= OS3MainFrm.DataGrid.ColCount then
begin
Messagedlg('Invalid index of variable column', mtError, [mbOK], 0);
exit;
end;
// complete a one-way anova on z scores obtained as the absolute difference
// between between the observed score and the median of a group.
@ -681,8 +691,8 @@ begin
OS3MainFrm.DataGrid.Cells[VarColumn,k] := FloatToStr(abs(zscores[i,j]));
end;
end;
outline := 'Data have been placed in the grid. Do a one-way ANOVA';
ShowMessage(outline);
MessageDlg('Data have been placed in the grid. Do a one-way ANOVA', mtInformation, [mbOK], 0);
end;
end.