2020-03-30 18:01:44 +00:00
|
|
|
object WLSFrm: TWLSFrm
|
|
|
|
Left = 288
|
|
|
|
Height = 508
|
|
|
|
Top = 171
|
|
|
|
Width = 517
|
2020-05-26 14:51:03 +00:00
|
|
|
HelpType = htKeyword
|
|
|
|
HelpKeyword = 'WeightedLeast-SquaresRegression.htm'
|
2020-03-30 18:01:44 +00:00
|
|
|
AutoSize = True
|
|
|
|
Caption = 'Weighted Least Squares Regression'
|
|
|
|
ClientHeight = 508
|
|
|
|
ClientWidth = 517
|
|
|
|
OnActivate = FormActivate
|
|
|
|
OnCreate = FormCreate
|
|
|
|
OnShow = FormShow
|
|
|
|
Position = poMainFormCenter
|
|
|
|
LCLVersion = '2.1.0.0'
|
|
|
|
object Label1: TLabel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
Left = 9
|
|
|
|
Height = 15
|
|
|
|
Top = 8
|
|
|
|
Width = 46
|
|
|
|
BorderSpacing.Left = 9
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
Caption = 'Variables'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
AnchorSideLeft.Control = DepInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = DepVarEdit
|
|
|
|
Left = 280
|
|
|
|
Height = 15
|
|
|
|
Top = 33
|
|
|
|
Width = 102
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'Dependent Variable'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label3: TLabel
|
|
|
|
AnchorSideLeft.Control = IndInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = IndInBtn
|
|
|
|
Left = 280
|
|
|
|
Height = 15
|
|
|
|
Top = 117
|
|
|
|
Width = 116
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
Caption = 'Independent Variables'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label4: TLabel
|
|
|
|
AnchorSideLeft.Control = WghtInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = WghtVarEdit
|
|
|
|
Left = 280
|
|
|
|
Height = 15
|
|
|
|
Top = 287
|
|
|
|
Width = 137
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Bottom = 2
|
|
|
|
Caption = 'User''s Weigjhts (Optional)'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object VarList: TListBox
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Label1
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = DepInBtn
|
|
|
|
AnchorSideBottom.Control = GroupBox1
|
|
|
|
Left = 9
|
|
|
|
Height = 314
|
|
|
|
Top = 25
|
|
|
|
Width = 227
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 9
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Constraints.MinHeight = 220
|
|
|
|
ItemHeight = 0
|
|
|
|
MultiSelect = True
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object DepInBtn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = VarList
|
|
|
|
Left = 244
|
|
|
|
Height = 28
|
|
|
|
Top = 25
|
|
|
|
Width = 28
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = DepInBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object DepOutBtn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = DepInBtn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 244
|
|
|
|
Height = 28
|
|
|
|
Top = 57
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = DepOutBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object IndInBtn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = DepOutBtn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 244
|
|
|
|
Height = 28
|
|
|
|
Top = 117
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 32
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = IndInBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object IndOutBtn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = IndInBtn
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 244
|
|
|
|
Height = 28
|
|
|
|
Top = 149
|
|
|
|
Width = 28
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = IndOutBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object WghtInBtn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = WghtOutBtn
|
|
|
|
Left = 244
|
|
|
|
Height = 28
|
|
|
|
Top = 279
|
|
|
|
Width = 28
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 4
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = WghtInBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 7
|
|
|
|
end
|
|
|
|
object WghtOutBtn: TBitBtn
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = VarList
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 244
|
|
|
|
Height = 28
|
|
|
|
Top = 311
|
|
|
|
Width = 28
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = WghtOutBtnClick
|
|
|
|
Spacing = 0
|
|
|
|
TabOrder = 8
|
|
|
|
end
|
|
|
|
object DepVarEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = DepInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = DepOutBtn
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 280
|
|
|
|
Height = 23
|
|
|
|
Top = 50
|
|
|
|
Width = 229
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 12
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 3
|
|
|
|
Text = 'DepVarEdit'
|
|
|
|
end
|
|
|
|
object IndVarList: TListBox
|
|
|
|
AnchorSideLeft.Control = IndInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = Label3
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = WghtInBtn
|
|
|
|
Left = 280
|
|
|
|
Height = 129
|
|
|
|
Top = 134
|
|
|
|
Width = 229
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 16
|
|
|
|
ItemHeight = 0
|
|
|
|
MultiSelect = True
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object WghtVarEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = WghtInBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = WghtOutBtn
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 280
|
|
|
|
Height = 23
|
|
|
|
Top = 304
|
|
|
|
Width = 229
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 12
|
|
|
|
ReadOnly = True
|
|
|
|
TabOrder = 9
|
|
|
|
Text = 'WghtVarEdit'
|
|
|
|
end
|
|
|
|
object GroupBox1: TGroupBox
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideBottom.Control = Bevel1
|
|
|
|
Left = 8
|
|
|
|
Height = 112
|
|
|
|
Top = 347
|
|
|
|
Width = 491
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Options'
|
|
|
|
ClientHeight = 92
|
|
|
|
ClientWidth = 487
|
|
|
|
TabOrder = 10
|
|
|
|
object OLSChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = GroupBox1
|
|
|
|
AnchorSideTop.Control = GroupBox1
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 2
|
|
|
|
Width = 206
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
Caption = 'Obtain OLS , save squared residuals'
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object PlotChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = GroupBox1
|
|
|
|
AnchorSideTop.Control = OLSChk
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 23
|
|
|
|
Width = 216
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
Caption = 'Plot squared residuals vs. Indep. Vars.'
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object RegResChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = GroupBox1
|
|
|
|
AnchorSideTop.Control = PlotChk
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 44
|
|
|
|
Width = 235
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
Caption = 'Regress squared residuals on Indep. Vars.'
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object SaveChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = GroupBox1
|
|
|
|
AnchorSideTop.Control = RegResChk
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 12
|
|
|
|
Height = 19
|
|
|
|
Top = 65
|
|
|
|
Width = 180
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Save Estimated weights in grid'
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
|
|
|
object WeightChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = RegResChk
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = GroupBox1
|
|
|
|
Left = 263
|
|
|
|
Height = 19
|
|
|
|
Top = 2
|
|
|
|
Width = 216
|
|
|
|
BorderSpacing.Left = 16
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Apply weights and obtain a WLS Reg.'
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object OriginChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = WeightChk
|
|
|
|
AnchorSideTop.Control = WeightChk
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 287
|
|
|
|
Height = 19
|
|
|
|
Top = 23
|
|
|
|
Width = 121
|
|
|
|
BorderSpacing.Left = 24
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
Caption = 'Through the Origin'
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object UserWghtsChk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = WeightChk
|
|
|
|
AnchorSideTop.Control = OriginChk
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 263
|
|
|
|
Height = 19
|
|
|
|
Top = 44
|
|
|
|
Width = 189
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
Caption = 'Use Weights entered by the user'
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object Origin2Chk: TCheckBox
|
|
|
|
AnchorSideLeft.Control = OriginChk
|
|
|
|
AnchorSideTop.Control = UserWghtsChk
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 287
|
|
|
|
Height = 19
|
|
|
|
Top = 65
|
|
|
|
Width = 121
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
Caption = 'Through the Origin'
|
|
|
|
TabOrder = 7
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object ResetBtn: TButton
|
|
|
|
AnchorSideRight.Control = ComputeBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 296
|
|
|
|
Height = 25
|
|
|
|
Top = 475
|
|
|
|
Width = 54
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 12
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Reset'
|
|
|
|
OnClick = ResetBtnClick
|
|
|
|
TabOrder = 12
|
|
|
|
end
|
|
|
|
object ComputeBtn: TButton
|
|
|
|
AnchorSideRight.Control = CloseBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 362
|
|
|
|
Height = 25
|
|
|
|
Top = 475
|
|
|
|
Width = 76
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 12
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Compute'
|
|
|
|
OnClick = ComputeBtnClick
|
|
|
|
TabOrder = 13
|
|
|
|
end
|
|
|
|
object CloseBtn: TButton
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 450
|
|
|
|
Height = 25
|
|
|
|
Top = 475
|
|
|
|
Width = 55
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 12
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Close'
|
|
|
|
ModalResult = 11
|
|
|
|
TabOrder = 14
|
|
|
|
end
|
|
|
|
object HelpBtn: TButton
|
|
|
|
Tag = 158
|
|
|
|
AnchorSideRight.Control = ResetBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 233
|
|
|
|
Height = 25
|
|
|
|
Top = 475
|
|
|
|
Width = 51
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 12
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Help'
|
|
|
|
OnClick = HelpBtnClick
|
|
|
|
TabOrder = 11
|
|
|
|
end
|
|
|
|
object Bevel1: TBevel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = ResetBtn
|
|
|
|
Left = 0
|
|
|
|
Height = 8
|
|
|
|
Top = 459
|
|
|
|
Width = 517
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
Shape = bsBottomLine
|
|
|
|
end
|
|
|
|
end
|