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

LazStats: Refactor two-way ANOVA in BlkAnovaUnit. Use TAChart.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7853 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-09 21:52:26 +00:00
parent 6ce0fc13bd
commit bc5987793a
2 changed files with 615 additions and 346 deletions
Download Patch File Download Diff File Expand all files Collapse all files

950
applications/lazstats/source/forms/analysis/comparisons/blkanovaunit.pas
View File

File diff suppressed because it is too large Load Diff

11
applications/lazstats/source/forms/analysis/comparisons/onecaseanovaunit.pas
View File

@ -438,9 +438,9 @@ begin
SetLength(ColSums, NF2Cells); // 2-way column sums SetLength(ColSums, NF2Cells); // 2-way column sums
SetLength(RowCount, NF1Cells); // 2-way row counts SetLength(RowCount, NF1Cells); // 2-way row counts
SetLength(ColCount, NF2Cells); // 2-way column counts SetLength(ColCount, NF2Cells); // 2-way column counts
SetLength(counts, Nf1cells, Nf2cells); // matrix for 2-way containing cell sizes SetLength(counts, NF1Cells, NF2Cells); // matrix for 2-way containing cell sizes
SetLength(sums, Nf1cells, Nf2cells); // matrix for 2-way containing cell sums SetLength(sums, NF1Cells, NF2Cells); // matrix for 2-way containing cell sums
SetLength(vars, Nf1cells, Nf2cells); // matrix for 2-way containing sums of squares SetLength(vars, NF1Cells, NF2Cells); // matrix for 2-way containing sums of squares
end; end;
@ -519,9 +519,9 @@ begin
else else
Constant := 0.0; Constant := 0.0;
SSDep := SSDep - Constant;
SSF1 := SSF1 - Constant; SSF1 := SSF1 - Constant;
SSF2 := SSF2 - Constant; SSF2 := SSF2 - Constant;
SSDep := SSDep - Constant;
SSErr := SSDep - (SSF1 + SSF2); SSErr := SSDep - (SSF1 + SSF2);
SSNonAdd := (SSNonAdd * SSNonAdd) / ((SSF1 * SSF2) / (NoGrpsA * NoGrpsB) ); SSNonAdd := (SSNonAdd * SSNonAdd) / ((SSF1 * SSF2) / (NoGrpsA * NoGrpsB) );
MSNonAdd := SSNonAdd; MSNonAdd := SSNonAdd;
@ -538,14 +538,17 @@ begin
DFF2 := NoGrpsB - 1; DFF2 := NoGrpsB - 1;
DFErr := DFF1 * DFF2; DFErr := DFF1 * DFF2;
DFBalance := DFErr - 1; DFBalance := DFErr - 1;
MSF1 := SSF1 / DFF1; MSF1 := SSF1 / DFF1;
MSF2 := SSF2 / DFF2; MSF2 := SSF2 / DFF2;
MSErr := SSErr / DFErr; MSErr := SSErr / DFErr;
MSDep := SSDep / DFTot; MSDep := SSDep / DFTot;
MSBalance := SSBalance / DFBalance; MSBalance := SSBalance / DFBalance;
OmegaF1 := (SSF1 - DFF1 * MSErr) / (SSDep + MSErr); OmegaF1 := (SSF1 - DFF1 * MSErr) / (SSDep + MSErr);
OmegaF2 := (SSF2 - DFF2 * MSErr) / (SSDep + MSErr); OmegaF2 := (SSF2 - DFF2 * MSErr) / (SSDep + MSErr);
Omega := OmegaF1 + OmegaF2; Omega := OmegaF1 + OmegaF2;
MeanDep := MeanDep / N; MeanDep := MeanDep / N;
// F tests for fixed effects // F tests for fixed effects