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

LazStats: Fix Simple Multiple Regression failing due to faulty Format string. Improved layout of CanonUnit in Linux.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7420 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-29 17:49:43 +00:00
parent 44b4df5df2
commit 4211ddfee3
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/lazstats/source/forms/analysis/correlation/canonunit.pas
View File

@@ -129,7 +129,11 @@ begin
ComputeBtn.Constraints.MinWidth := w; ComputeBtn.Constraints.MinWidth := w;
CloseBtn.Constraints.MinWidth := w; CloseBtn.Constraints.MinWidth := w;
Constraints.MinWidth := Width; w := MaxValue([Label1.Width, Label2.Width, Label3.Width]) + LeftIn.Width + 4 * VarList.BorderSpacing.Left;
if w > Width then
Constraints.MinWidth := w
else
Constraints.MinWidth := Width;
Constraints.MinHeight := Height; Constraints.MinHeight := Height;
FAutoSized := true; FAutoSized := true;

2
applications/lazstats/source/units/matrixlib.pas
View File

@@ -928,7 +928,7 @@ begin
AReport.Add(''); AReport.Add('');
AReport.Add('SOURCE DF SS MS F Prob. > F'); AReport.Add('SOURCE DF SS MS F Prob. > F');
AReport.Add('---------- --- -------------- -------------- -------------- ----------'); AReport.Add('---------- --- -------------- -------------- -------------- ----------');
AReport.Add('Regression %3d %14.3f %14.3f %14.4f %10.4', [N-1, SSreg, SSreg/(N-1), F, Prob]); // df1 AReport.Add('Regression %3d %14.3f %14.3f %14.4f %10.4f', [N-1, SSreg, SSreg/(N-1), F, Prob]); // df1
AReport.Add('Residual %3d %14.3f %14.3f', [(NCases-N), SSres, SSres/(NCases-N)]); // df2 AReport.Add('Residual %3d %14.3f %14.3f', [(NCases-N), SSres, SSres/(NCases-N)]); // df2
AReport.Add('Total %3d %14.3f', [NCases-1, SSY]); AReport.Add('Total %3d %14.3f', [NCases-1, SSY]);
AReport.Add(''); AReport.Add('');