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

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
+    AnchorSideRight.Control = CloseBtn
-    Left = 183
+    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'
+    Caption = 'Close'
-    ModalResult = 1
+    ModalResult = 11
     TabOrder = 2
   end
   object Bevel1: TBevel

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]);
+      lReport.Add('Probability: %6.4f', [Probability]);
-    end
+    end else
-    else //Use binomial fomula
+    //Use binomial fomula
     begin
       for X := 0 to A do
       begin
-        Probability := combos(X, N) * Power(p,X) * Power(Q,(N - X));
+        Probability := combos(X, N) * Power(p, X) * Power(Q, N - X);
-        lReport.Add('Probability of %d = %6.4f', [X, Probability]);
+        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]);

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

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

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'

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

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

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

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

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

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

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

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

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

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

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

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

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

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'