LazStats: Add chm hyperlinks for Nonparametric menu

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7443 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-05-10 10:37:19 +00:00
parent 64eaa059cd
commit 8161c3e401
21 changed files with 57 additions and 20 deletions
--- a/applications/lazstats/LazStats.chm
+++ b/applications/lazstats/LazStats.chm
--- a/applications/lazstats/docs/HelpNDoc/LazStats.hnd
+++ b/applications/lazstats/docs/HelpNDoc/LazStats.hnd
--- a/applications/lazstats/source/forms/analysis/nonparametric/binomialunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/binomialunit.lfm
@ -3,6 +3,8 @@ object BinomialFrm: TBinomialFrm
  Height = 175
  Top = 338
  Width = 340
+  HelpType = htKeyword
+  HelpKeyword = 'ProbabilityofaBinomialEvent.htm'
  AutoSize = True
  BorderStyle = bsSingle
  Caption = 'Binomial Probability Calculator'
@ -17,7 +19,7 @@ object BinomialFrm: TBinomialFrm
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ComputeBtn
-    Left = 121
+    Left = 127
    Height = 25
    Top = 145
    Width = 54
@ -34,8 +36,8 @@ object BinomialFrm: TBinomialFrm
  object ComputeBtn: TButton
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
-    AnchorSideRight.Control = ReturnBtn
-    Left = 183
+    AnchorSideRight.Control = CloseBtn
+    Left = 189
    Height = 25
    Top = 145
    Width = 76
@ -49,23 +51,23 @@ object BinomialFrm: TBinomialFrm
    OnClick = ComputeBtnClick
    TabOrder = 1
  end
-  object ReturnBtn: TButton
+  object CloseBtn: TButton
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
-    Left = 267
+    Left = 273
    Height = 25
    Top = 145
-    Width = 61
+    Width = 55
    Anchors = [akTop, akRight]
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 8
-    Caption = 'Return'
-    ModalResult = 1
+    Caption = 'Close'
+    ModalResult = 11
    TabOrder = 2
  end
  object Bevel1: TBevel
--- a/applications/lazstats/source/forms/analysis/nonparametric/binomialunit.pas
+++ b/applications/lazstats/source/forms/analysis/nonparametric/binomialunit.pas
@ -19,7 +19,7 @@ type
    PlotChk: TCheckBox;
    ResetBtn: TButton;
    ComputeBtn: TButton;
-    ReturnBtn: TButton;
+    CloseBtn: TButton;
    FreqAEdit: TEdit;
    FreqBEdit: TEdit;
    PropAEdit: TEdit;
@ -60,10 +60,10 @@ procedure TBinomialFrm.FormActivate(Sender: TObject);
 var
  w: Integer;
 begin
-  w := MaxValue([ResetBtn.Width, ComputeBtn.Width, ReturnBtn.Width]);
+  w := MaxValue([ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
  ResetBtn.Constraints.MinWidth := w;
  ComputeBtn.Constraints.MinWidth := w;
-  ReturnBtn.Constraints.MinWidth := w;
+  CloseBtn.Constraints.MinWidth := w;
 end;

 procedure TBinomialFrm.FormCreate(Sender: TObject);
@ -104,12 +104,13 @@ begin
    lReport.Add('BINOMIAL PROBABILITY TEST');
    lReport.Add('');
    lReport.Add('Frequency of %d out of %d observed', [A, N]);
-    lReport.Add('The theoretical proportion expected in category A is %.3f', [p]);
+    lReport.Add('The theoretical proportion expected in category A is %.f', [p]);
    lReport.Add('');
    lReport.Add('The test is for the probability of a value in category A as small or smaller');
    lReport.Add('than that observed given the expected proportion.');

-    if (N > 35) then //Use normal distribution approximation
+    //Use normal distribution approximation
+    if (N > 35) then
    begin
      CorrectedA := A;
      if A < N * p then CorrectedA := A + 0.5;
@ -117,14 +118,14 @@ begin
      z := (CorrectedA - N * p) / sqrt(N * p * Q);
      lReport.Add('Z value for Normal Distribution approximation: %.3f', [z]);
      Probability := probz(z);
-      lReport.Add('Probability: %.4f', [Probability]);
-    end
-    else //Use binomial fomula
+      lReport.Add('Probability: %6.4f', [Probability]);
+    end else
+    //Use binomial fomula
    begin
      for X := 0 to A do
      begin
-        Probability := combos(X, N) * Power(p,X) * Power(Q,(N - X));
-        lReport.Add('Probability of %d = %6.4f', [X, Probability]);
+        Probability := combos(X, N) * Power(p, X) * Power(Q, N - X);
+        lReport.Add('Probability of %2d: %6.4f', [X, Probability]);
        SumProb := SumProb + Probability;
      end;
      lReport.Add('Binomial Probability of %d or less out of %d: %.4f', [A, N, SumProb]);
--- a/applications/lazstats/source/forms/analysis/nonparametric/chisqrunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/chisqrunit.lfm
@ -3,6 +3,8 @@ object ChiSqrFrm: TChiSqrFrm
  Height = 566
  Top = 216
  Width = 474
+  HelpType = htKeyword
+  HelpKeyword = 'ContingencyChi-Square.htm'
  AutoSize = True
  Caption = 'Contingency Chi Squared'
  ClientHeight = 566
--- a/applications/lazstats/source/forms/analysis/nonparametric/cochranqunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/cochranqunit.lfm
@ -3,6 +3,8 @@ object CochranQFrm: TCochranQFrm
  Height = 344
  Top = 203
  Width = 414
+  HelpType = htKeyword
+  HelpKeyword = 'CochranQTest.htm'
  AutoSize = True
  Caption = 'Cochran Q Test'
  ClientHeight = 344
--- a/applications/lazstats/source/forms/analysis/nonparametric/concordanceunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/concordanceunit.lfm
@ -4,6 +4,8 @@ object ConcordFrm: TConcordFrm
  Height = 310
  Top = 327
  Width = 397
+  HelpType = htKeyword
+  HelpKeyword = 'KendallsCoefficientofConcordance.htm'
  Anchors = [akLeft]
  AutoSize = True
  Caption = 'Kendal''s Coefficient of Concordance'
--- a/applications/lazstats/source/forms/analysis/nonparametric/exactunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/exactunit.lfm
@ -3,6 +3,8 @@ object FisherFrm: TFisherFrm
  Height = 472
  Top = 234
  Width = 672
+  HelpType = htKeyword
+  HelpKeyword = 'FishersExactTest.htm'
  Caption = 'Fisher''s Exact Test for a 2 by 2 Table'
  ClientHeight = 472
  ClientWidth = 672
--- a/applications/lazstats/source/forms/analysis/nonparametric/friedmanunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/friedmanunit.lfm
@ -3,6 +3,8 @@ object FriedmanFrm: TFriedmanFrm
  Height = 330
  Top = 186
  Width = 418
+  HelpType = htKeyword
+  HelpKeyword = 'FriedmanTwoWayANOVA.htm'
  AutoSize = True
  Caption = 'The Friedman Two Way ANOVA on Ranks'
  ClientHeight = 330
--- a/applications/lazstats/source/forms/analysis/nonparametric/genkappaunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/genkappaunit.lfm
@ -3,6 +3,8 @@ object GenKappaFrm: TGenKappaFrm
  Height = 356
  Top = 378
  Width = 468
+  HelpType = htKeyword
+  HelpKeyword = 'GeneralizedKappa.htm'
  AutoSize = True
  Caption = 'Generalized Kappa Coefficient'
  ClientHeight = 356
--- a/applications/lazstats/source/forms/analysis/nonparametric/kaplanmeierunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/kaplanmeierunit.lfm
@ -1,8 +1,10 @@
 object KaplanMeierFrm: TKaplanMeierFrm
-  Left = 849
+  Left = 596
  Height = 406
-  Top = 368
+  Top = 239
  Width = 505
+  HelpType = htKeyword
+  HelpKeyword = 'Kaplan-MeierSurvivalTest.htm'
  AutoSize = True
  Caption = 'Kaplan-Meier Survival Analysis'
  ClientHeight = 406
--- a/applications/lazstats/source/forms/analysis/nonparametric/kappaunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/kappaunit.lfm
@ -3,6 +3,8 @@ object WeightedKappaFrm: TWeightedKappaFrm
  Height = 560
  Top = 184
  Width = 539
+  HelpType = htKeyword
+  HelpKeyword = 'KappaandWeightedKappa.htm'
  AutoSize = True
  Caption = 'Kappa and Weighted Kappa'
  ClientHeight = 560
--- a/applications/lazstats/source/forms/analysis/nonparametric/kendalltauunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/kendalltauunit.lfm
@ -3,6 +3,8 @@ object KendallTauFrm: TKendallTauFrm
  Height = 379
  Top = 350
  Width = 396
+  HelpType = htKeyword
+  HelpKeyword = 'KendallsTauandPartialTau.htm'
  AutoSize = True
  Caption = 'Kendall Rank Correlation Tau and Partial Tau'
  ClientHeight = 379
--- a/applications/lazstats/source/forms/analysis/nonparametric/kwanovaunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/kwanovaunit.lfm
@ -3,6 +3,8 @@ object KWAnovaFrm: TKWAnovaFrm
  Height = 365
  Top = 283
  Width = 421
+  HelpType = htKeyword
+  HelpKeyword = 'Kruskal-WallisOne-WayANOVA.htm'
  AutoSize = True
  Caption = 'Kruskal-Wallis One Way ANOVA on Ranks'
  ClientHeight = 365
--- a/applications/lazstats/source/forms/analysis/nonparametric/lifetableunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/lifetableunit.lfm
@ -3,6 +3,8 @@ object LifeTableForm: TLifeTableForm
  Height = 590
  Top = 122
  Width = 818
+  HelpType = htKeyword
+  HelpKeyword = 'LifeTable.htm'
  AutoSize = True
  Caption = 'Life Table'
  ClientHeight = 590
--- a/applications/lazstats/source/forms/analysis/nonparametric/mannwhituunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/mannwhituunit.lfm
@ -3,6 +3,8 @@ object MannWhitUFrm: TMannWhitUFrm
  Height = 321
  Top = 256
  Width = 373
+  HelpType = htKeyword
+  HelpKeyword = 'Mann-WhitneyUTest.htm'
  AutoSize = True
  Caption = 'Mann-Whitney U Test'
  ClientHeight = 321
--- a/applications/lazstats/source/forms/analysis/nonparametric/riditunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/riditunit.lfm
@ -3,6 +3,8 @@ object RIDITFrm: TRIDITFrm
  Height = 364
  Top = 285
  Width = 665
+  HelpType = htKeyword
+  HelpKeyword = 'RIDITAnalysis.htm'
  AutoSize = True
  Caption = 'Relative to an Identified Distribution Analysis'
  ClientHeight = 364
--- a/applications/lazstats/source/forms/analysis/nonparametric/runstestunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/runstestunit.lfm
@ -3,6 +3,8 @@ object runstestform: Trunstestform
  Height = 438
  Top = 209
  Width = 376
+  HelpType = htKeyword
+  HelpKeyword = 'RunsTestforNormality.htm'
  AutoSize = True
  Caption = 'Test for Randomness'
  ClientHeight = 438
--- a/applications/lazstats/source/forms/analysis/nonparametric/sensunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/sensunit.lfm
@ -3,6 +3,8 @@ object SensForm: TSensForm
  Height = 579
  Top = 161
  Width = 478
+  HelpType = htKeyword
+  HelpKeyword = 'SensSlopeAnalysis.htm'
  AutoSize = True
  Caption = 'Sens Trend Analysis'
  ClientHeight = 579
--- a/applications/lazstats/source/forms/analysis/nonparametric/spearmanunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/spearmanunit.lfm
@ -3,6 +3,8 @@ object SpearmanFrm: TSpearmanFrm
  Height = 317
  Top = 246
  Width = 347
+  HelpType = htKeyword
+  HelpKeyword = 'SpearmanRankCorrelation.htm'
  AutoSize = True
  Caption = 'Spearman Rank Correlation'
  ClientHeight = 317
--- a/applications/lazstats/source/forms/analysis/nonparametric/wilcoxonunit.lfm
+++ b/applications/lazstats/source/forms/analysis/nonparametric/wilcoxonunit.lfm
@ -3,6 +3,8 @@ object WilcoxonFrm: TWilcoxonFrm
  Height = 352
  Top = 336
  Width = 436
+  HelpType = htKeyword
+  HelpKeyword = 'WilcoxonMatched-PairsSignedRanks.htm'
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Wilcoxon Matched Pairs Signed Ranks Test'