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

LazStats: Inherit AncovaUnit from BasicStatsReportAndChartFormUnit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7892 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-17 22:58:51 +00:00
parent a5e228e9ea
commit 972eb626d4
6 changed files with 837 additions and 944 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/lazstats/source/LazStats.lpi
View File

@ -373,7 +373,7 @@
<Unit33> <Unit33>
<Filename Value="forms\analysis\comparisons\ancovaunit.pas"/> <Filename Value="forms\analysis\comparisons\ancovaunit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="ANCOVAfrm"/> <ComponentName Value="AncovaForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="ANCOVAUnit"/> <UnitName Value="ANCOVAUnit"/>

819
applications/lazstats/source/forms/analysis/comparisons/ancovaunit.lfm
View File

@ -1,110 +1,46 @@
object ANCOVAfrm: TANCOVAfrm inherited AncovaForm: TAncovaForm
Left = 505 Left = 512
Height = 525 Height = 408
Top = 250 Top = 212
Width = 486 Width = 786
HelpType = htKeyword HelpType = htKeyword
HelpKeyword = 'html/AnalysisofCovariancebyMultipleRe.htm' HelpKeyword = 'html/AnalysisofCovariancebyMultipleRe.htm'
Caption = 'Analysis of Covariance Using Multiple Regression Methods' Caption = 'Analysis of Covariance Using Multiple Regression Methods'
ClientHeight = 525 ClientHeight = 408
ClientWidth = 486 ClientWidth = 786
OnActivate = FormActivate inherited ParamsPanel: TPanel
OnCreate = FormCreate Height = 392
OnShow = FormShow Width = 337
Position = poMainFormCenter ClientHeight = 392
LCLVersion = '2.1.0.0' ClientWidth = 337
object GroupBox1: TGroupBox inherited CloseBtn: TButton
AnchorSideLeft.Control = Owner Left = 282
AnchorSideTop.Side = asrBottom Top = 367
AnchorSideRight.Control = Owner TabOrder = 14
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel3
Left = 8
Height = 72
Top = 404
Width = 470
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.Right = 8
Caption = 'Output Options:'
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 16
ChildSizing.VerticalSpacing = 2
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 52
ClientWidth = 466
TabOrder = 1
object DescriptiveStats: TCheckBox
Left = 12
Height = 19
Top = 6
Width = 127
Caption = 'Descriptive Statistics'
TabOrder = 0
end end
object CorrelationMats: TCheckBox inherited ComputeBtn: TButton
AnchorSideTop.Side = asrBottom Left = 198
Left = 155 Top = 367
Height = 19 TabOrder = 13
Top = 6
Width = 169
Caption = 'Correlation Matrices'
TabOrder = 1
end end
object PrintInverseMat: TCheckBox inherited ResetBtn: TButton
AnchorSideTop.Side = asrBottom Left = 136
Left = 340 Top = 367
Height = 19 TabOrder = 12
Top = 6
Width = 119
Caption = 'Inverse of Matrices'
TabOrder = 2
end end
object PlotMeans: TCheckBox inherited HelpBtn: TButton
AnchorSideTop.Side = asrBottom Tag = 103
Left = 12 Left = 77
Height = 19 Top = 367
Top = 27 TabOrder = 11
Width = 127
Caption = 'Plot Factor Means'
TabOrder = 3
end end
object MultCompChk: TCheckBox inherited ButtonBevel: TBevel
AnchorSideTop.Side = asrBottom Top = 351
Left = 155 Width = 337
Height = 19
Top = 27
Width = 169
Caption = 'Show Multiple Comparisons'
TabOrder = 4
end end
end object Label1: TLabel[5]
object Panel1: TPanel AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Control = Owner AnchorSideTop.Control = ParamsPanel
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1
Left = 8
Height = 384
Top = 8
Width = 470
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BevelOuter = bvNone
ClientHeight = 384
ClientWidth = 470
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 0 Left = 0
Height = 15 Height = 15
Top = 0 Top = 0
@ -112,524 +48,333 @@ object ANCOVAfrm: TANCOVAfrm
Caption = 'Available Variables:' Caption = 'Available Variables:'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object VarList: TListBox[6]
AnchorSideLeft.Control = DepVar AnchorSideLeft.Control = ParamsPanel
AnchorSideBottom.Control = DepVar
Left = 288
Height = 15
Top = 25
Width = 102
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Dependent Variable'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = FixedList
AnchorSideTop.Control = DepOut
AnchorSideTop.Side = asrBottom
Left = 288
Height = 15
Top = 101
Width = 69
BorderSpacing.Top = 24
Caption = 'Fixed Factors'
ParentColor = False
end
object Label4: TLabel
AnchorSideLeft.Control = CovList
AnchorSideTop.Control = FixedList
AnchorSideTop.Side = asrBottom
Left = 288
Height = 15
Top = 253
Width = 55
BorderSpacing.Top = 24
Caption = 'Covariates'
ParentColor = False
end
object VarList: TListBox
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Label1 AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = DepIn AnchorSideRight.Control = DepIn
AnchorSideBottom.Control = Panel1 AnchorSideBottom.Control = OptionsGroup
AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 367 Height = 233
Top = 17 Top = 17
Width = 244 Width = 149
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 8 BorderSpacing.Right = 6
BorderSpacing.Bottom = 8
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 0 TabOrder = 0
end end
object DepIn: TBitBtn object DepIn: TBitBtn[7]
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList AnchorSideTop.Control = VarList
Left = 252 Left = 155
Height = 28 Height = 26
Top = 17 Top = 17
Width = 28 Width = 26
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 1 ImageIndex = 1
OnClick = DepInClick OnClick = DepInClick
Spacing = 0 Spacing = 0
TabOrder = 1 TabOrder = 1
end end
object DepOut: TBitBtn object DepOut: TBitBtn[8]
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = DepIn AnchorSideTop.Control = DepIn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 252 Left = 155
Height = 28 Height = 26
Top = 49 Top = 47
Width = 28 Width = 26
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Glyph.Data = { BorderSpacing.Bottom = 12
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 0 ImageIndex = 0
OnClick = DepOutClick OnClick = DepOutClick
Spacing = 0 Spacing = 0
TabOrder = 2 TabOrder = 2
end end
object FixedIn: TBitBtn object Label2: TLabel[9]
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = DepVar
AnchorSideBottom.Control = DepVar
Left = 187
Height = 15
Top = 21
Width = 102
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Dependent Variable'
ParentColor = False
end
object DepVar: TEdit[10]
AnchorSideLeft.Control = DepIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 252 AnchorSideRight.Control = ParamsPanel
Height = 28 AnchorSideRight.Side = asrBottom
Top = 144 AnchorSideBottom.Control = DepOut
Width = 28 AnchorSideBottom.Side = asrBottom
Glyph.Data = { Left = 187
36040000424D3604000000000000360000002800000010000000100000000100 Height = 23
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF Top = 38
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF Width = 150
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF Anchors = [akLeft, akRight, akBottom]
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF BorderSpacing.Left = 6
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF BorderSpacing.Bottom = 12
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ReadOnly = True
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF TabOrder = 3
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF Text = 'DepVar'
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF end
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF object OptionsGroup: TGroupBox[11]
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF AnchorSideLeft.Control = ParamsPanel
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF AnchorSideTop.Side = asrBottom
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE AnchorSideRight.Side = asrBottom
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580 AnchorSideBottom.Control = ButtonBevel
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3 Left = 0
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6 Height = 93
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7 Top = 258
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA Width = 340
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7 Anchors = [akLeft, akBottom]
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799 AutoSize = True
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF BorderSpacing.Right = 8
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF Caption = 'Output Options:'
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ChildSizing.LeftRightSpacing = 12
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ChildSizing.TopBottomSpacing = 6
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ChildSizing.HorizontalSpacing = 16
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ChildSizing.VerticalSpacing = 2
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ChildSizing.Layout = cclLeftToRightThenTopToBottom
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ChildSizing.ControlsPerLine = 2
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ClientHeight = 73
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF ClientWidth = 336
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF TabOrder = 10
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF object DescriptiveStatsChk: TCheckBox
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 Left = 12
} Height = 19
Top = 6
Width = 169
Caption = 'Descriptive Statistics'
TabOrder = 0
end
object CorrelationMatsChk: TCheckBox
AnchorSideTop.Side = asrBottom
Left = 197
Height = 19
Top = 6
Width = 127
Caption = 'Correlation Matrices'
TabOrder = 1
end
object PrintInverseMatChk: TCheckBox
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 27
Width = 169
Caption = 'Inverse of Matrices'
TabOrder = 2
end
object PlotMeansChk: TCheckBox
AnchorSideTop.Side = asrBottom
Left = 197
Height = 19
Top = 27
Width = 127
Caption = 'Plot Factor Means'
OnChange = PlotMeansChkChange
TabOrder = 3
end
object MultCompChk: TCheckBox
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 48
Width = 169
Caption = 'Show Multiple Comparisons'
TabOrder = 4
end
object Plot3DChk: TCheckBox
Left = 197
Height = 19
Top = 48
Width = 127
BorderSpacing.Left = 4
Caption = 'Plot 3D'
Enabled = False
OnChange = Plot3DChkChange
TabOrder = 5
end
end
object FixedIn: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = FixedList
Left = 155
Height = 26
Top = 102
Width = 26
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 1 ImageIndex = 1
OnClick = FixedInClick OnClick = FixedInClick
Spacing = 0 Spacing = 0
TabOrder = 4 TabOrder = 4
end end
object FixedOut: TBitBtn object FixedOut: TBitBtn[13]
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Bevel2 AnchorSideTop.Control = FixedIn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 252 Left = 155
Height = 28 Height = 26
Top = 175 Top = 132
Width = 28 Width = 26
Glyph.Data = { BorderSpacing.Top = 4
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 0 ImageIndex = 0
OnClick = FixedOutClick OnClick = FixedOutClick
Spacing = 0 Spacing = 0
TabOrder = 5 TabOrder = 5
end end
object CovIn: TBitBtn object Label3: TLabel[14]
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = FixedList
AnchorSideTop.Control = Bevel1
Left = 187
Height = 15
Top = 85
Width = 69
Caption = 'Fixed Factors'
ParentColor = False
end
object FixedList: TListBox[15]
AnchorSideLeft.Control = FixedIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel2
Left = 187
Height = 56
Top = 102
Width = 150
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 2
ItemHeight = 0
MultiSelect = True
OnDblClick = FixedListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 6
end
object CovIn: TBitBtn[16]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = CovList AnchorSideTop.Control = CovList
Left = 252 Left = 155
Height = 28 Height = 26
Top = 270 Top = 194
Width = 28 Width = 26
Glyph.Data = { BorderSpacing.Bottom = 4
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 1 ImageIndex = 1
OnClick = CovInClick OnClick = CovInClick
Spacing = 0 Spacing = 0
TabOrder = 7 TabOrder = 7
end end
object CovOut: TBitBtn object CovOut: TBitBtn[17]
AnchorSideLeft.Control = Bevel1 AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = CovIn AnchorSideTop.Control = CovIn
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 252 AnchorSideBottom.Side = asrBottom
Height = 28 Left = 155
Top = 302 Height = 26
Width = 28 Top = 224
Width = 26
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
Images = MainDataModule.ImageList Images = MainDataModule.ImageList
ImageIndex = 0 ImageIndex = 0
OnClick = CovOutClick OnClick = CovOutClick
Spacing = 0 Spacing = 0
TabOrder = 8 TabOrder = 8
end end
object DepVar: TEdit object Label4: TLabel[18]
AnchorSideLeft.Control = DepIn AnchorSideLeft.Control = CovList
AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Bevel2
AnchorSideRight.Control = Panel1 AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom Left = 187
AnchorSideBottom.Control = DepOut Height = 15
AnchorSideBottom.Side = asrBottom Top = 177
Left = 288 Width = 55
Height = 23 Caption = 'Covariates'
Top = 42 ParentColor = False
Width = 182
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 3
Text = 'DepVar'
end end
object CovList: TListBox object CovList: TListBox[19]
AnchorSideLeft.Control = CovIn AnchorSideLeft.Control = CovIn
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label4 AnchorSideTop.Control = Label4
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1 AnchorSideBottom.Control = VarList
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 288 Left = 187
Height = 114 Height = 56
Top = 270 Top = 194
Width = 182 Width = 150
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8 BorderSpacing.Left = 6
BorderSpacing.Top = 2 BorderSpacing.Top = 2
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
OnDblClick = CovListDblClick
OnSelectionChange = VarListSelectionChange OnSelectionChange = VarListSelectionChange
TabOrder = 9 TabOrder = 9
end end
object FixedList: TListBox object Bevel1: TBevel[20]
AnchorSideLeft.Control = FixedIn AnchorSideTop.Control = DepOut
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideBottom.Control = VarList
AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 288 Left = 136
Height = 111 Height = 165
Top = 118 Top = 85
Width = 182 Width = 22
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 8 Shape = bsSpacer
BorderSpacing.Top = 2
ItemHeight = 0
MultiSelect = True
OnSelectionChange = VarListSelectionChange
TabOrder = 6
end end
object Bevel2: TBevel object Bevel2: TBevel[21]
AnchorSideLeft.Control = VarList AnchorSideTop.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FixedList
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 252 Left = 160
Height = 4 Height = 19
Top = 171 Top = 158
Width = 24 Width = 17
Shape = bsSpacer
end
object Bevel1: TBevel
AnchorSideLeft.Control = Panel1
AnchorSideLeft.Side = asrCenter
Left = 218
Height = 18
Top = 2
Width = 34
Shape = bsSpacer Shape = bsSpacer
end end
end end
object Panel2: TPanel inherited ParamsSplitter: TSplitter
Left = 8 Left = 349
Height = 25 Height = 408
Top = 492
Width = 470
Align = alBottom
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 470
TabOrder = 2
object ResetBtn: TButton
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = ComputeBtn
Left = 269
Height = 25
Top = 0
Width = 54
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 1
end
object ComputeBtn: TButton
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = CloseBtn
Left = 331
Height = 25
Top = 0
Width = 76
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 2
end
object CloseBtn: TButton
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
Left = 415
Height = 25
Top = 0
Width = 55
Anchors = [akTop, akRight]
AutoSize = True
Caption = 'Close'
ModalResult = 11
TabOrder = 3
end
object HelpBtn: TButton
Tag = 103
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = ResetBtn
Left = 210
Height = 25
Top = 0
Width = 51
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Right = 8
Caption = 'Help'
OnClick = HelpBtnClick
TabOrder = 0
end
end end
object Bevel3: TBevel inherited PageControl: TPageControl
Left = 0 Left = 358
Height = 8 Height = 392
Top = 476 Width = 420
Width = 486 ActivePage = MultCompPage
Align = alBottom TabIndex = 2
Shape = bsBottomLine inherited ReportPage: TTabSheet
Caption = 'Results'
end
inherited ChartPage: TTabSheet
Caption = 'Plot Means'
end
object MultCompPage: TTabSheet[2]
Caption = 'Multiple Comparisons'
TabVisible = False
end
end end
end end

919
applications/lazstats/source/forms/analysis/comparisons/ancovaunit.pas
View File

File diff suppressed because it is too large Load Diff

1
applications/lazstats/source/forms/analysis/comparisons/bnestaunit.pas
View File

@ -610,7 +610,6 @@ begin
FChartFrame.Chart.Legend.Visible := FSeries.Source.YCount > 1; FChartFrame.Chart.Legend.Visible := FSeries.Source.YCount > 1;
FChartFrame.UpdateBtnStates; FChartFrame.UpdateBtnStates;
end; end;

11
applications/lazstats/source/forms/mainunit.pas
View File

@ -322,8 +322,8 @@ type
MenuItem43: TMenuItem; MenuItem43: TMenuItem;
// Form event handlers // Form event handlers
procedure DataGridCellProcess(Sender: TObject; aCol, aRow: Integer; procedure DataGridCellProcess(Sender: TObject; {%H-}aCol, {%H-}aRow: Integer;
processType: TCellProcessType; var aValue: string); processType: TCellProcessType; var {%H-}aValue: string);
procedure DataGridEditingDone(Sender: TObject); procedure DataGridEditingDone(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -1781,7 +1781,6 @@ begin
end; end;
{ Comparisons commands } { Comparisons commands }
// Menu "Analysis" > "Comparisons" > "1,2 or 3 Way ANOVAs" // Menu "Analysis" > "Comparisons" > "1,2 or 3 Way ANOVAs"
@ -1803,9 +1802,9 @@ end;
// Menu "Analysis" > "Comparisons" > "Ancova by Regression" // Menu "Analysis" > "Comparisons" > "Ancova by Regression"
procedure TOS3MainFrm.mnuAnalysisComp_AncovaClick(Sender: TObject); procedure TOS3MainFrm.mnuAnalysisComp_AncovaClick(Sender: TObject);
begin begin
if ANCOVAfrm = nil then if AncovaForm = nil then
Application.CreateForm(TANCOVAfrm, ANCOVAfrm); Application.CreateForm(TAncovaForm, AncovaForm);
ANCOVAFRM.ShowModal; AncovaForm.Show;
end; end;
// Menu "Analysis" > "Comparisons" > "A x S Anova" // Menu "Analysis" > "Comparisons" > "A x S Anova"

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

@ -731,7 +731,7 @@ begin
AReport.Add('Variance Y: %20.3f', [VarY]); AReport.Add('Variance Y: %20.3f', [VarY]);
AReport.Add('Std. Deviation Y: %20.3f', [SDY]); AReport.Add('Std. Deviation Y: %20.3f', [SDY]);
AReport.Add(''); AReport.Add('');
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
// augment the matrix // augment the matrix
for i := 0 to NCases-1 do for i := 0 to NCases-1 do
@ -745,7 +745,7 @@ begin
AReport.Add(''); AReport.Add('');
title := 'XT MATRIX'; title := 'XT MATRIX';
MatPrint(XT, NoIndep+1, NCases, title, RowLabels, ColLabels, NCases, AReport); MatPrint(XT, NoIndep+1, NCases, title, RowLabels, ColLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
end; end;
@ -758,11 +758,11 @@ begin
begin begin
title := 'XTX MATRIX'; title := 'XTX MATRIX';
MatPrint(XTX, Noindep+1, NoIndep+1, title, RowLabels, RowLabels, NCases, AReport); MatPrint(XTX, Noindep+1, NoIndep+1, title, RowLabels, RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
end; end;
//Get means, variances and standard deviations // Get means, variances and standard deviations
errorcode := false; errorcode := false;
for i := 0 to NoIndep do for i := 0 to NoIndep do
begin begin
@ -778,13 +778,13 @@ begin
if PrintAll then if PrintAll then
begin begin
DynVectorPrint(Means, NoIndep+1, 'MEANS', RowLabels, NCases, AReport); DynVectorPrint(Means, NoIndep+1, 'MEANS', RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
DynVectorPrint(Variances, NoIndep+1,'VARIANCES',RowLabels, NCases, AReport); DynVectorPrint(Variances, NoIndep+1,'VARIANCES',RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
DynVectorPrint(StdDevs, NoIndep+1, 'STD. DEVs', RowLabels, NCases, AReport); DynVectorPrint(StdDevs, NoIndep+1, 'STD. DEVs', RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
end; end;
@ -795,7 +795,7 @@ begin
if PrintAll then if PrintAll then
begin begin
DynVectorPrint(XTY, NoIndep+1, 'XTY VECTOR', RowLabels, NCases, AReport); DynVectorPrint(XTY, NoIndep+1, 'XTY VECTOR', RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
end; end;
// get inverse of the augmented cross products matrix among independent variables // get inverse of the augmented cross products matrix among independent variables
@ -805,7 +805,7 @@ begin
AReport.Add(''); AReport.Add('');
title := 'XTX MATRIX INVERSE'; title := 'XTX MATRIX INVERSE';
MatPrint(XTX, NoIndep+1, NoIndep+1, title, RowLabels, RowLabels, NCases, AReport); MatPrint(XTX, NoIndep+1, NoIndep+1, title, RowLabels, RowLabels, NCases, AReport);
AReport.Add(DIVIDER); AReport.Add(DIVIDER_AUTO);
end; end;
// multiply augmented inverse matrix times the XTY vector // multiply augmented inverse matrix times the XTY vector
@ -843,19 +843,19 @@ begin
AReport.Add('Dependent variable: ' + deplabel); AReport.Add('Dependent variable: ' + deplabel);
AReport.Add(''); AReport.Add('');
DynVectorPrint(BWeights, NoIndep+1, 'B WEIGHTS', RowLabels, NCases, AReport); DynVectorPrint(BWeights, NoIndep+1, 'B WEIGHTS', RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
AReport.Add('Dependent variable: ' + deplabel); AReport.Add('Dependent variable: ' + deplabel);
AReport.Add(''); AReport.Add('');
DynVectorPrint(BetaWeights, NoIndep, 'BETA WEIGHTS', RowLabels, NCases, AReport); DynVectorPrint(BetaWeights, NoIndep, 'BETA WEIGHTS', RowLabels, NCases, AReport);
AReport.Add(DIVIDER_SMALL); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
DynVectorPrint(BStdErrs, NoIndep+1, 'B STD.ERRORS', RowLabels, NCases, AReport); DynVectorPrint(BStdErrs, NoIndep+1, 'B STD.ERRORS', RowLabels, NCases, AReport);
AReport.Add(''); AReport.Add('');
DynVectorPrint(Bttests, NoIndep+1, 'B t-test VALUES', RowLabels, NCases, AReport); DynVectorPrint(Bttests, NoIndep+1, 'B t-test VALUES', RowLabels, NCases, AReport);
AReport.Add(''); AReport.Add('');
DynVectorPrint(tprobs, NoIndep+1, 'B t VALUE PROBABILITIES', RowLabels, NCases, AReport); DynVectorPrint(tprobs, NoIndep+1, 'B t VALUE PROBABILITIES', RowLabels, NCases, AReport);
AReport.Add(DIVIDER); AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add(''); AReport.Add('');
AReport.Add('SSY: %10.2f', [SSY]); AReport.Add('SSY: %10.2f', [SSY]);
AReport.Add('SSreg: %10.2f', [SSreg]); AReport.Add('SSreg: %10.2f', [SSreg]);
@ -870,14 +870,15 @@ begin
//AReport.Add('SSY = %10.2f, SSreg = %10.2f, SSres = %10.2f', [SSY, SSreg, SSres]); //AReport.Add('SSY = %10.2f, SSreg = %10.2f, SSres = %10.2f', [SSY, SSreg, SSres]);
//AReport.Add('R2 = %6.4f, F = %8.2f, D.F. = %d %d, Prob>F = %6.4f', [R2, F, N-1, NCases-N, Prob]); //AReport.Add('R2 = %6.4f, F = %8.2f, D.F. = %d %d, Prob>F = %6.4f', [R2, F, N-1, NCases-N, Prob]);
//AReport.Add('Standard Error of Estimate = %8.2f', [stderrest]); //AReport.Add('Standard Error of Estimate = %8.2f', [stderrest]);
AReport.Add(DIVIDER_SMALL_AUTO);
AReport.Add('');
end; end;
// Needed for calculation of VIF and TOL // Needed for calculation of VIF and TOL
Correlations(NoIndep, IndepCols, XTX, Means, Variances, StdDevs, ErrorCode, NCases); Correlations(NoIndep, IndepCols, XTX, Means, Variances, StdDevs, ErrorCode, NCases);
SVDinverse(XTX, NoIndep); SVDinverse(XTX, NoIndep);
AReport.Add(DIVIDER_SMALL);
AReport.Add('');
RowLabels[N-1] := 'Intercept'; RowLabels[N-1] := 'Intercept';
AReport.Add(' Variable Beta B Std.Err. t prob VIF TOL'); AReport.Add(' Variable Beta B Std.Err. t prob VIF TOL');
AReport.Add('---------- ---------- ---------- ---------- ---------- ---------- --------- ----------'); AReport.Add('---------- ---------- ---------- ---------- ---------- ---------- --------- ----------');