From 0d868c09da507ad91e5598ba70418c80022f7a86 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 12 Jul 2020 09:17:02 +0000 Subject: [PATCH] LazStats: Fix crash in ANOVA due to Format() argument type error. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7539 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../source/forms/analysis/comparisons/blkanovaunit.pas | 10 +++++----- .../lazstats/source/forms/variables/transfrmunit.lfm | 4 ++-- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas b/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas index 246a2101b..40a2e2e5a 100644 --- a/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas +++ b/applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas @@ -1025,7 +1025,7 @@ begin sumfreqlogvar := sumfreqlogvar + ((counts[i,j] - 1.0) * ln(V)); if counts[i,j] <> groupsize then equal_grp := false; end; - AReport.Add('Cell %3d %3d %3.0f %8.3f %8.3f %8.3f', [minf1+i, minf2+j, counts[i,j], XBar, V, S]); + AReport.Add('Cell %3d %3d %3d %8.3f %8.3f %8.3f', [minf1+i, minf2+j, counts[i,j], XBar, V, S]); end; end; @@ -1039,7 +1039,7 @@ begin V := RowSS - (RowSums[i] * RowSums[i] / RowCount[i]); V := V / (RowCount[i] - 1.0); S := sqrt(V); - AReport.Add('Row %3d %3.0f %8.3f %8.3f %8.3f', [minf1+i, RowCount[i], XBar, V, S]); + AReport.Add('Row %3d %3d %8.3f %8.3f %8.3f', [minf1+i, RowCount[i], XBar, V, S]); end; //Display means, variances and standard deviations for columns @@ -1068,9 +1068,9 @@ begin AReport.Add(DIVIDER); AReport.Add('TESTS FOR HOMOGENEITY OF VARIANCE'); AReport.Add(DIVIDER_SMALL); - AReport.Add('Hartley Fmax test statistic = %10.2f with deg.s freedom: %d and %d.', [hartley, NoGrpsA*NoGrpsB, groupsize-1]); - AReport.Add('Cochran C statistic = %10.2f with deg.s freedom: %d and %d.', [cochran, NoGrpsA*NoGrpsB, groupsize - 1]); - AReport.Add('Bartlett Chi-square statistic = %10.2f with %4d D.F. Prob. larger value = %6.3f', [bartlett, NoGrpsA*NoGrpsB - 1, chiprob]); + AReport.Add('Hartley Fmax test statistic: %.2f with deg.s freedom: %d and %d.', [hartley, NoGrpsA*NoGrpsB, groupsize-1]); + AReport.Add('Cochran C statistic: %.2f with deg.s freedom: %d and %d.', [cochran, NoGrpsA*NoGrpsB, groupsize - 1]); + AReport.Add('Bartlett Chi-square statistic: %.2f with %d D.F.; prob. larger value %.3f', [bartlett, NoGrpsA*NoGrpsB - 1, chiprob]); AReport.Add(DIVIDER); end; diff --git a/applications/lazstats/source/forms/variables/transfrmunit.lfm b/applications/lazstats/source/forms/variables/transfrmunit.lfm index 7009acd58..8962f3bdf 100644 --- a/applications/lazstats/source/forms/variables/transfrmunit.lfm +++ b/applications/lazstats/source/forms/variables/transfrmunit.lfm @@ -1,7 +1,7 @@ object TransFrm: TTransFrm - Left = 464 + Left = 452 Height = 386 - Top = 126 + Top = 146 Width = 672 AutoSize = True Caption = 'Transformations'