object SRHTest: TSRHTest Left = 654 Height = 631 Top = 147 Width = 471 AutoSize = True Caption = 'Scheirer-Ray-Hare Test' ClientHeight = 631 ClientWidth = 471 OnActivate = FormActivate OnCreate = FormCreate OnShow = ResetBtnClick LCLVersion = '2.1.0.0' object Label1: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Memo1 AnchorSideTop.Side = asrBottom Left = 8 Height = 15 Top = 204 Width = 49 BorderSpacing.Left = 8 BorderSpacing.Top = 16 Caption = 'Variables:' ParentColor = False end object VarList: TListBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Fact1In AnchorSideBottom.Control = Bevel1 Left = 8 Height = 361 Top = 221 Width = 205 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Top = 2 BorderSpacing.Right = 8 ItemHeight = 0 TabOrder = 0 end object DepIn: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = VarList Left = 221 Height = 28 Top = 221 Width = 28 Images = MainDataModule.ImageList ImageIndex = 1 OnClick = DepInClick Spacing = 0 TabOrder = 1 end object StaticText1: TStaticText AnchorSideLeft.Control = DepIn AnchorSideLeft.Side = asrBottom AnchorSideBottom.Control = DepVar Left = 257 Height = 16 Top = 228 Width = 103 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Bottom = 2 Caption = 'Dependent Variable' TabOrder = 3 end object DepVar: TEdit AnchorSideLeft.Control = DepIn AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = DepOut AnchorSideBottom.Side = asrBottom Left = 257 Height = 23 Top = 246 Width = 206 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 12 TabOrder = 4 Text = 'DepVar' end object Fact1In: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = DepOut AnchorSideTop.Side = asrBottom Left = 221 Height = 28 Top = 301 Width = 28 BorderSpacing.Top = 20 Images = MainDataModule.ImageList ImageIndex = 1 OnClick = Fact1InClick Spacing = 0 TabOrder = 5 end object StaticText2: TStaticText AnchorSideLeft.Control = Factor1 AnchorSideBottom.Control = Factor1 Left = 257 Height = 16 Top = 308 Width = 87 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Bottom = 2 Caption = 'Factor 1 Variable' TabOrder = 7 end object GroupBox2: TGroupBox AnchorSideLeft.Control = Fact1In AnchorSideTop.Control = Fact2Out AnchorSideTop.Side = asrBottom Left = 221 Height = 93 Top = 457 Width = 187 AutoSize = True BorderSpacing.Top = 16 Caption = 'Options' ChildSizing.LeftRightSpacing = 12 ChildSizing.TopBottomSpacing = 6 ChildSizing.VerticalSpacing = 2 ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 73 ClientWidth = 183 TabOrder = 13 object PlotMeans: TCheckBox Left = 12 Height = 19 Top = 6 Width = 159 Caption = 'Plot Means Using 3D bars' TabOrder = 0 end object Plot2DLines: TCheckBox Left = 12 Height = 19 Top = 27 Width = 159 Caption = 'Plot Means Using 2D Lines' TabOrder = 1 end object Plot3DLines: TCheckBox Left = 12 Height = 19 Top = 48 Width = 159 Caption = 'Plot Means Using 3D Lines' TabOrder = 2 end end object Label3: TLabel AnchorSideLeft.Control = GroupBox2 AnchorSideTop.Control = OverallAlpha AnchorSideTop.Side = asrCenter Left = 229 Height = 15 Top = 562 Width = 147 BorderSpacing.Left = 8 Caption = 'Alpha Level for Overall Tests' ParentColor = False end object HelpBtn: TButton Tag = 107 AnchorSideRight.Control = ResetBtn AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 107 Height = 25 Top = 598 Width = 51 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 Caption = 'Help' OnClick = HelpBtnClick TabOrder = 15 end object Factor1: TEdit AnchorSideLeft.Control = Fact1In AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Fact1Out AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Fact1Out AnchorSideBottom.Side = asrBottom Left = 257 Height = 23 Top = 326 Width = 206 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 12 TabOrder = 8 Text = 'Edit1' end object DepOut: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = DepIn AnchorSideTop.Side = asrBottom Left = 221 Height = 28 Top = 253 Width = 28 BorderSpacing.Top = 4 Images = MainDataModule.ImageList ImageIndex = 0 OnClick = DepOutClick Spacing = 0 TabOrder = 2 end object Fact1Out: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Fact1In AnchorSideTop.Side = asrBottom Left = 221 Height = 28 Top = 333 Width = 28 BorderSpacing.Top = 4 Images = MainDataModule.ImageList ImageIndex = 0 OnClick = Fact1OutClick Spacing = 0 TabOrder = 6 end object Fact2In: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Fact1Out AnchorSideTop.Side = asrBottom Left = 221 Height = 28 Top = 381 Width = 28 BorderSpacing.Top = 20 Images = MainDataModule.ImageList ImageIndex = 1 OnClick = Fact2InClick Spacing = 0 TabOrder = 9 end object Fact2Out: TBitBtn AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Fact2In AnchorSideTop.Side = asrBottom Left = 221 Height = 28 Top = 413 Width = 28 BorderSpacing.Top = 4 Images = MainDataModule.ImageList ImageIndex = 0 OnClick = Fact2OutClick Spacing = 0 TabOrder = 10 end object StaticText3: TStaticText AnchorSideLeft.Control = Factor2 AnchorSideBottom.Control = Factor2 Left = 257 Height = 16 Top = 388 Width = 87 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Bottom = 2 Caption = 'Factor 2 Variable' TabOrder = 11 end object Factor2: TEdit AnchorSideLeft.Control = Fact2In AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Fact2Out AnchorSideBottom.Side = asrBottom Left = 257 Height = 23 Top = 406 Width = 206 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Left = 8 BorderSpacing.Right = 8 BorderSpacing.Bottom = 12 TabOrder = 12 Text = 'Edit1' end object OverallAlpha: TEdit AnchorSideLeft.Control = Label3 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox2 AnchorSideTop.Side = asrBottom Left = 384 Height = 23 Top = 558 Width = 45 Alignment = taRightJustify BorderSpacing.Left = 8 BorderSpacing.Top = 8 TabOrder = 14 Text = 'OverallAlpha' end object ResetBtn: TButton AnchorSideRight.Control = CancelBtn AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 170 Height = 25 Top = 598 Width = 54 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 Caption = 'Reset' OnClick = ResetBtnClick TabOrder = 16 end object CancelBtn: TButton AnchorSideRight.Control = ComputeBtn AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 236 Height = 25 Top = 598 Width = 62 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 Caption = 'Cancel' ModalResult = 2 TabOrder = 17 end object ComputeBtn: TButton AnchorSideRight.Control = ReturnBtn AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 310 Height = 25 Top = 598 Width = 76 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 Caption = 'Compute' OnClick = ComputeBtnClick TabOrder = 18 end object ReturnBtn: TButton AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 398 Height = 25 Top = 598 Width = 61 Anchors = [akRight, akBottom] AutoSize = True BorderSpacing.Top = 8 BorderSpacing.Right = 12 BorderSpacing.Bottom = 8 Caption = 'Return' ModalResult = 1 TabOrder = 19 end object Bevel1: TBevel AnchorSideLeft.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ReturnBtn Left = 0 Height = 8 Top = 582 Width = 471 Anchors = [akLeft, akRight, akBottom] Shape = bsBottomLine end object Memo1: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 8 Height = 180 Top = 8 Width = 455 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'Notes: This is a non-parametric analysis of ordinal data. It is similar to a two-way Analysis of Variance but utilizes a chi-square statistic (H) for determining the significance of the row, column and interaction effects. The dependent value, if not initially rank data, may be obtained first by creating a new variable with the "transformation" procedure available under the "Variables" menu. The output of this procedure contains the results both of a "traditional" 2-way ANOVA as well as the SRH results. It should be noted that the power of the SRH analysis is less than that of the traditional ANOVA. It is suggested that there be at least 5 or more cases in each cell and that the design is a balanced design of fixed levels. The H statistic is obtained as the division of the sum of squares for an effect by the mean square of the total and the test is performed by a chi-squared probability with the degrees of freedom equal to the SS of the effect being tested.' ParentColor = False WordWrap = True end end