diff --git a/instat/dlgDefineCRI.Designer.vb b/instat/dlgDefineCRI.Designer.vb index 8f6fc915bcc..ce63e6d9509 100644 --- a/instat/dlgDefineCRI.Designer.vb +++ b/instat/dlgDefineCRI.Designer.vb @@ -15,7 +15,7 @@ ' along with this program. If not, see . -Partial Class dlgDefineCRI +Partial Class dlgCorruptionDefineCRI Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. @@ -38,7 +38,7 @@ Partial Class dlgDefineCRI 'Do not modify it using the code editor. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgDefineCRI)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgCorruptionDefineCRI)) Me.cmdEdit = New System.Windows.Forms.Button() Me.cmdDelete = New System.Windows.Forms.Button() Me.cmdAddComponent = New System.Windows.Forms.Button() @@ -151,6 +151,7 @@ Partial Class dlgDefineCRI ' 'ucrSelectorCRI ' + Me.ucrSelectorCRI.bDropUnusedFilterLevels = False Me.ucrSelectorCRI.bShowHiddenColumns = False Me.ucrSelectorCRI.bUseCurrentFilter = True resources.ApplyResources(Me.ucrSelectorCRI, "ucrSelectorCRI") @@ -162,7 +163,7 @@ Partial Class dlgDefineCRI resources.ApplyResources(Me.ucrChkScaleNumeric, "ucrChkScaleNumeric") Me.ucrChkScaleNumeric.Name = "ucrChkScaleNumeric" ' - 'dlgDefineCRI + 'dlgCorruptionDefineCRI ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -185,7 +186,7 @@ Partial Class dlgDefineCRI Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "dlgDefineCRI" + Me.Name = "dlgCorruptionDefineCRI" Me.ResumeLayout(False) Me.PerformLayout() diff --git a/instat/dlgDefineCRI.resx b/instat/dlgDefineCRI.resx index 21b4096b729..291ca71ea17 100644 --- a/instat/dlgDefineCRI.resx +++ b/instat/dlgDefineCRI.resx @@ -119,10 +119,14 @@ - 507, 251 + 676, 309 + + + + 4, 4, 4, 4 - 67, 23 + 89, 28 @@ -144,10 +148,13 @@ 12 - 583, 251 + 777, 309 + + + 4, 4, 4, 4 - 67, 23 + 89, 28 10 @@ -168,10 +175,13 @@ 11 - 379, 92 + 505, 113 + + + 4, 4, 4, 4 - 110, 23 + 147, 28 6 @@ -195,10 +205,13 @@ True - 224, 44 + 299, 54 + + + 4, 0, 4, 0 - 64, 13 + 84, 17 1 @@ -222,10 +235,13 @@ True - 224, 98 + 299, 121 + + + 4, 0, 4, 0 - 49, 13 + 63, 17 3 @@ -249,10 +265,13 @@ True - 507, 46 + 676, 57 + + + 4, 0, 4, 0 - 98, 13 + 128, 17 7 @@ -273,10 +292,13 @@ 7 - 506, 63 + 675, 78 + + + 4, 4, 4, 4 - 171, 182 + 227, 223 8 @@ -297,10 +319,13 @@ True - 8, 332 + 11, 409 + + + 4, 0, 4, 0 - 48, 13 + 61, 17 12 @@ -321,10 +346,13 @@ 2 - 10, 380 + 13, 468 + + + 7, 6, 7, 6 - 276, 24 + 368, 30 14 @@ -342,10 +370,13 @@ 0 - 64, 329 + 85, 405 + + + 9, 7, 9, 7 - 452, 45 + 603, 55 13 @@ -363,10 +394,13 @@ 1 - 279, 95 + 372, 117 + + + 7, 6, 7, 6 - 50, 20 + 67, 25 4 @@ -387,10 +421,13 @@ True - 226, 121 + 301, 149 + + + 7, 6, 7, 6 - 263, 202 + 350, 248 5 @@ -411,16 +448,19 @@ True - 6, 13 + 8, 16 - 682, 463 + 909, 570 - 10, 409 + 13, 503 + + + 5, 5, 5, 5 - 410, 52 + 547, 64 15 @@ -438,14 +478,13 @@ 13 - 10, 10 + 13, 12 - 0, 0, 0, 0 - 210, 180 + 280, 222 0 @@ -463,10 +502,13 @@ 14 - 507, 280 + 676, 345 + + + 7, 6, 7, 6 - 143, 20 + 191, 25 11 @@ -483,6 +525,9 @@ 15 + + 4, 4, 4, 4 + CenterScreen @@ -490,19 +535,19 @@ Define CRI - dlgDefineCRI + dlgCorruptionDefineCRI System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 226, 59 + 301, 73 0, 0, 0, 0 - 120, 20 + 160, 25 2 diff --git a/instat/dlgDefineCRI.vb b/instat/dlgDefineCRI.vb index a35177e3eab..f0c76b7b632 100644 --- a/instat/dlgDefineCRI.vb +++ b/instat/dlgDefineCRI.vb @@ -15,7 +15,7 @@ ' along with this program. If not, see . Imports instat.Translations -Public Class dlgDefineCRI +Public Class dlgCorruptionDefineCRI Private bFirstLoad As Boolean = True Private bReset As Boolean = True Dim bUseSelectedColumn As Boolean = False diff --git a/instat/dlgDefineCorruption.Designer.vb b/instat/dlgDefineCorruption.Designer.vb index 142f87a557f..3a0e0e5a2cd 100644 --- a/instat/dlgDefineCorruption.Designer.vb +++ b/instat/dlgDefineCorruption.Designer.vb @@ -15,7 +15,7 @@ ' along with this program. If not, see . -Partial Class dlgDefineCorruption +Partial Class dlgCorruptionDefineProcurement Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. @@ -38,7 +38,7 @@ Partial Class dlgDefineCorruption 'Do not modify it using the code editor. Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgDefineCorruption)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgCorruptionDefineProcurement)) Me.ucrDefineCorruptionSelector = New instat.ucrSelectorByDataFrameAddRemove() Me.ucrBase = New instat.ucrButtons() Me.lblNoBidsReceived = New System.Windows.Forms.Label() @@ -78,6 +78,7 @@ Partial Class dlgDefineCorruption ' 'ucrDefineCorruptionSelector ' + Me.ucrDefineCorruptionSelector.bDropUnusedFilterLevels = False Me.ucrDefineCorruptionSelector.bShowHiddenColumns = False Me.ucrDefineCorruptionSelector.bUseCurrentFilter = True resources.ApplyResources(Me.ucrDefineCorruptionSelector, "ucrDefineCorruptionSelector") @@ -316,7 +317,7 @@ Partial Class dlgDefineCorruption Me.cmdCalculatedColumns.Name = "cmdCalculatedColumns" Me.cmdCalculatedColumns.UseVisualStyleBackColor = True ' - 'dlgDefineCorruption + 'dlgCorruptionDefineProcurement ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -358,7 +359,7 @@ Partial Class dlgDefineCorruption Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "dlgDefineCorruption" + Me.Name = "dlgCorruptionDefineProcurement" Me.ResumeLayout(False) Me.PerformLayout() diff --git a/instat/dlgDefineCorruption.resx b/instat/dlgDefineCorruption.resx index aebb796585e..4f0f88f70ff 100644 --- a/instat/dlgDefineCorruption.resx +++ b/instat/dlgDefineCorruption.resx @@ -119,14 +119,14 @@ - 10, 10 + 13, 12 0, 0, 0, 0 - 210, 180 + 280, 222 @@ -145,10 +145,13 @@ 11 - 10, 377 + 13, 464 + + + 5, 5, 5, 5 - 410, 52 + 547, 64 34 @@ -169,10 +172,13 @@ True - 414, 27 + 552, 33 + + + 4, 0, 4, 0 - 99, 13 + 128, 17 17 @@ -196,16 +202,19 @@ True - 6, 13 + 8, 16 - 553, 437 + 737, 538 - 10, 233 + 13, 287 + + + 4, 4, 4, 4 - 119, 23 + 159, 28 33 @@ -226,10 +235,13 @@ 0 - 10, 203 + 13, 250 + + + 4, 4, 4, 4 - 119, 23 + 159, 28 32 @@ -250,10 +262,13 @@ 1 - 10, 265 + 13, 326 + + + 7, 6, 7, 6 - 120, 20 + 160, 25 31 @@ -274,10 +289,13 @@ True - 251, 70 + 335, 86 + + + 4, 0, 4, 0 - 44, 13 + 57, 17 3 @@ -298,13 +316,13 @@ 3 - 251, 85 + 335, 105 0, 0, 0, 0 - 120, 20 + 160, 25 4 @@ -325,10 +343,13 @@ True - 414, 285 + 552, 351 + + + 4, 0, 4, 0 - 62, 13 + 82, 17 29 @@ -349,13 +370,13 @@ 5 - 414, 300 + 552, 369 0, 0, 0, 0 - 120, 20 + 160, 25 30 @@ -373,13 +394,13 @@ 6 - 414, 257 + 552, 316 0, 0, 0, 0 - 120, 20 + 160, 25 28 @@ -400,10 +421,13 @@ True - 414, 242 + 552, 298 + + + 4, 0, 4, 0 - 80, 13 + 105, 17 27 @@ -427,10 +451,13 @@ True - 251, 27 + 335, 33 + + + 4, 0, 4, 0 - 46, 13 + 61, 17 1 @@ -454,10 +481,13 @@ True - 251, 199 + 335, 245 + + + 4, 0, 4, 0 - 81, 13 + 107, 17 9 @@ -478,13 +508,13 @@ 14 - 414, 128 + 552, 158 0, 0, 0, 0 - 120, 20 + 160, 25 22 @@ -505,10 +535,13 @@ True - 251, 156 + 335, 192 + + + 4, 0, 4, 0 - 66, 13 + 85, 17 7 @@ -532,10 +565,13 @@ True - 414, 113 + 552, 139 + + + 4, 0, 4, 0 - 86, 13 + 114, 17 21 @@ -556,13 +592,13 @@ 17 - 251, 257 + 335, 316 0, 0, 0, 0 - 120, 20 + 160, 25 12 @@ -580,13 +616,13 @@ 18 - 251, 171 + 335, 210 0, 0, 0, 0 - 120, 20 + 160, 25 8 @@ -607,10 +643,13 @@ True - 251, 242 + 335, 298 + + + 4, 0, 4, 0 - 73, 13 + 96, 17 11 @@ -631,13 +670,13 @@ 20 - 251, 214 + 335, 263 0, 0, 0, 0 - 120, 20 + 160, 25 10 @@ -655,13 +694,13 @@ 21 - 414, 85 + 552, 105 0, 0, 0, 0 - 120, 20 + 160, 25 20 @@ -682,10 +721,13 @@ True - 414, 70 + 552, 86 + + + 4, 0, 4, 0 - 106, 13 + 141, 17 19 @@ -706,13 +748,13 @@ 23 - 251, 42 + 335, 52 0, 0, 0, 0 - 120, 20 + 160, 25 2 @@ -730,13 +772,13 @@ 24 - 414, 214 + 552, 263 0, 0, 0, 0 - 120, 20 + 160, 25 26 @@ -757,10 +799,13 @@ True - 251, 113 + 335, 139 + + + 4, 0, 4, 0 - 99, 13 + 133, 17 5 @@ -781,13 +826,13 @@ 26 - 251, 128 + 335, 158 0, 0, 0, 0 - 120, 20 + 160, 25 6 @@ -808,10 +853,13 @@ True - 414, 199 + 552, 245 + + + 4, 0, 4, 0 - 83, 13 + 110, 17 25 @@ -835,10 +883,13 @@ True - 251, 285 + 335, 351 + + + 4, 0, 4, 0 - 84, 13 + 110, 17 13 @@ -859,13 +910,13 @@ 29 - 251, 300 + 335, 369 0, 0, 0, 0 - 120, 20 + 160, 25 14 @@ -886,10 +937,13 @@ True - 251, 331 + 335, 407 + + + 4, 0, 4, 0 - 115, 13 + 154, 17 15 @@ -910,13 +964,13 @@ 31 - 251, 346 + 335, 426 0, 0, 0, 0 - 120, 20 + 160, 25 16 @@ -937,10 +991,13 @@ True - 414, 156 + 552, 192 + + + 4, 0, 4, 0 - 75, 13 + 98, 17 23 @@ -961,13 +1018,13 @@ 33 - 414, 171 + 552, 210 0, 0, 0, 0 - 120, 20 + 160, 25 24 @@ -984,6 +1041,9 @@ 34 + + 4, 4, 4, 4 + CenterScreen @@ -991,19 +1051,19 @@ Define Procurement Data - dlgDefineCorruption + dlgCorruptionDefineProcurement System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 414, 42 + 552, 52 0, 0, 0, 0 - 120, 20 + 160, 25 18 diff --git a/instat/dlgDefineCorruption.vb b/instat/dlgDefineCorruption.vb index a94ec82fdbc..31da747c10b 100644 --- a/instat/dlgDefineCorruption.vb +++ b/instat/dlgDefineCorruption.vb @@ -17,7 +17,7 @@ Imports instat.Translations Imports System.Text.RegularExpressions -Public Class dlgDefineCorruption +Public Class dlgCorruptionDefineProcurement Private bFirstLoad As Boolean = True Private bReset As Boolean = True Dim clsTypesFunction As New RFunction diff --git a/instat/dlgDefineCorruptionOutputs.Designer.vb b/instat/dlgDefineCorruptionOutputs.Designer.vb index dabc07675bc..1cbcb83700b 100644 --- a/instat/dlgDefineCorruptionOutputs.Designer.vb +++ b/instat/dlgDefineCorruptionOutputs.Designer.vb @@ -15,7 +15,7 @@ ' along with this program. If not, see . -Partial Class dlgDefineCorruptionOutputs +Partial Class dlgCorruptionDefineOutputs Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. @@ -38,7 +38,7 @@ Partial Class dlgDefineCorruptionOutputs 'Do not modify it using the code editor. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgDefineCorruptionOutputs)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgCorruptionDefineOutputs)) Me.ucrBase = New instat.ucrButtons() Me.ucrReceiverCorruptionOutputs = New instat.ucrReceiverMultiple() Me.ucrSelectorCorruptionOutputs = New instat.ucrSelectorByDataFrameAddRemove() @@ -61,6 +61,7 @@ Partial Class dlgDefineCorruptionOutputs ' 'ucrSelectorCorruptionOutputs ' + Me.ucrSelectorCorruptionOutputs.bDropUnusedFilterLevels = False Me.ucrSelectorCorruptionOutputs.bShowHiddenColumns = False Me.ucrSelectorCorruptionOutputs.bUseCurrentFilter = True resources.ApplyResources(Me.ucrSelectorCorruptionOutputs, "ucrSelectorCorruptionOutputs") @@ -71,7 +72,7 @@ Partial Class dlgDefineCorruptionOutputs resources.ApplyResources(Me.lblCorruptionOutputs, "lblCorruptionOutputs") Me.lblCorruptionOutputs.Name = "lblCorruptionOutputs" ' - 'dlgDefineCorruptionOutputs + 'dlgCorruptionDefineOutputs ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -82,7 +83,7 @@ Partial Class dlgDefineCorruptionOutputs Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "dlgDefineCorruptionOutputs" + Me.Name = "dlgCorruptionDefineOutputs" Me.ResumeLayout(False) Me.PerformLayout() diff --git a/instat/dlgDefineCorruptionOutputs.resx b/instat/dlgDefineCorruptionOutputs.resx index 14eed2b87a7..09df982d88a 100644 --- a/instat/dlgDefineCorruptionOutputs.resx +++ b/instat/dlgDefineCorruptionOutputs.resx @@ -119,10 +119,14 @@ - 10, 199 + 13, 245 + + + + 5, 5, 5, 5 - 410, 52 + 547, 64 @@ -144,19 +148,22 @@ True - 6, 13 + 8, 16 - 422, 260 + 563, 320 True - 271, 45 + 361, 55 + + + 4, 0, 4, 0 - 98, 13 + 132, 17 1 @@ -177,14 +184,13 @@ 0 - 10, 10 + 13, 12 - 0, 0, 0, 0 - 210, 180 + 280, 222 0 @@ -201,6 +207,9 @@ 3 + + 4, 4, 4, 4 + CenterScreen @@ -208,19 +217,19 @@ Define Corruption Outputs - dlgDefineCorruptionOutputs + dlgCorruptionDefineOutputs System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 271, 60 + 361, 74 0, 0, 0, 0 - 120, 100 + 160, 123 2 diff --git a/instat/dlgDefineCorruptionOutputs.vb b/instat/dlgDefineCorruptionOutputs.vb index 8f4af4a0ea3..2c2d8c44dda 100644 --- a/instat/dlgDefineCorruptionOutputs.vb +++ b/instat/dlgDefineCorruptionOutputs.vb @@ -15,7 +15,7 @@ ' along with this program. If not, see . Imports instat.Translations -Public Class dlgDefineCorruptionOutputs +Public Class dlgCorruptionDefineOutputs Private bFirstLoad As Boolean = True Private bReset As Boolean = True Dim bUseSelectedColumn As Boolean = False diff --git a/instat/dlgFitCorruptionModel.Designer.vb b/instat/dlgFitCorruptionModel.Designer.vb index 3c48d30fb5f..c1b197f6004 100644 --- a/instat/dlgFitCorruptionModel.Designer.vb +++ b/instat/dlgFitCorruptionModel.Designer.vb @@ -15,7 +15,7 @@ ' along with this program. If not, see . -Partial Class dlgFitCorruptionModel +Partial Class dlgCorruptionFitModel Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. @@ -38,7 +38,7 @@ Partial Class dlgFitCorruptionModel 'Do not modify it using the code editor. _ Private Sub InitializeComponent() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgFitCorruptionModel)) + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dlgCorruptionFitModel)) Me.cmdDisplayOptions = New System.Windows.Forms.Button() Me.lblModelPreview = New System.Windows.Forms.Label() Me.lblControlVariables = New System.Windows.Forms.Label() @@ -126,12 +126,13 @@ Partial Class dlgFitCorruptionModel ' 'ucrSelectorFitModel ' + Me.ucrSelectorFitModel.bDropUnusedFilterLevels = False Me.ucrSelectorFitModel.bShowHiddenColumns = False Me.ucrSelectorFitModel.bUseCurrentFilter = True resources.ApplyResources(Me.ucrSelectorFitModel, "ucrSelectorFitModel") Me.ucrSelectorFitModel.Name = "ucrSelectorFitModel" ' - 'dlgFitCorruptionModel + 'dlgCorruptionFitModel ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -150,7 +151,7 @@ Partial Class dlgFitCorruptionModel Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "dlgFitCorruptionModel" + Me.Name = "dlgCorruptionFitModel" Me.ResumeLayout(False) Me.PerformLayout() diff --git a/instat/dlgFitCorruptionModel.resx b/instat/dlgFitCorruptionModel.resx index 307e74b0451..574e0a0adf8 100644 --- a/instat/dlgFitCorruptionModel.resx +++ b/instat/dlgFitCorruptionModel.resx @@ -119,10 +119,14 @@ - 9, 262 + 12, 322 + + + + 4, 4, 4, 4 - 105, 23 + 140, 28 @@ -147,10 +151,13 @@ True - 7, 297 + 9, 366 + + + 4, 0, 4, 0 - 80, 13 + 103, 17 7 @@ -174,10 +181,13 @@ True - 266, 66 + 355, 81 + + + 4, 0, 4, 0 - 89, 13 + 120, 17 3 @@ -201,10 +211,13 @@ True - 266, 21 + 355, 26 + + + 4, 0, 4, 0 - 93, 13 + 125, 17 1 @@ -228,10 +241,13 @@ True - 265, 176 + 353, 217 + + + 4, 0, 4, 0 - 56, 13 + 73, 17 5 @@ -252,10 +268,13 @@ 0 - 10, 323 + 13, 398 + + + 7, 6, 7, 6 - 288, 24 + 384, 30 10 @@ -273,10 +292,13 @@ 3 - 91, 295 + 121, 363 + + + 9, 7, 9, 7 - 315, 21 + 420, 26 8 @@ -297,20 +319,19 @@ True - 6, 13 + 8, 16 - 424, 410 + 565, 505 - 265, 191 + 353, 235 - 0, 0, 0, 0 - 120, 85 + 160, 105 6 @@ -328,13 +349,13 @@ 8 - 265, 81 + 353, 100 0, 0, 0, 0 - 120, 85 + 160, 105 4 @@ -352,10 +373,13 @@ 9 - 10, 351 + 13, 432 + + + 5, 5, 5, 5 - 410, 52 + 547, 64 11 @@ -373,13 +397,13 @@ 10 - 10, 10 + 13, 12 0, 0, 0, 0 - 210, 180 + 280, 222 0 @@ -396,6 +420,9 @@ 11 + + 4, 4, 4, 4 + CenterScreen @@ -403,19 +430,19 @@ Fit Model - dlgFitCorruptionModel + dlgCorruptionFitModel System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 265, 36 + 353, 44 0, 0, 0, 0 - 120, 20 + 160, 25 2 diff --git a/instat/dlgFitCorruptionModel.vb b/instat/dlgFitCorruptionModel.vb index 2536a355d7d..3a41348313a 100644 --- a/instat/dlgFitCorruptionModel.vb +++ b/instat/dlgFitCorruptionModel.vb @@ -17,7 +17,7 @@ Imports instat Imports instat.Translations -Public Class dlgFitCorruptionModel +Public Class dlgCorruptionFitModel Private bFirstLoad As Boolean = True Private bReset As Boolean = True Private bResetDisplayOptions As Boolean = True diff --git a/instat/dlgImportDataset.Designer.vb b/instat/dlgImportDataset.Designer.vb index 55fa0dcca8b..7d3eee001d4 100644 --- a/instat/dlgImportDataset.Designer.vb +++ b/instat/dlgImportDataset.Designer.vb @@ -51,59 +51,59 @@ Partial Class dlgImportDataset Me.lblLinesToSkipCSV = New System.Windows.Forms.Label() Me.cmdBrowse = New System.Windows.Forms.Button() Me.grpCSV = New System.Windows.Forms.GroupBox() - Me.ucrNudMaxRowsCSV = New instat.ucrNud() - Me.ucrChkMaxRowsCSV = New instat.ucrCheck() Me.lblNAStringsCSV = New System.Windows.Forms.Label() - Me.ucrChkStringsAsFactorsCSV = New instat.ucrCheck() - Me.ucrNudRowsToSkipCSV = New instat.ucrNud() - Me.ucrInputHeadersCSV = New instat.ucrInputComboBox() - Me.ucrInputMissingValueStringCSV = New instat.ucrInputTextBox() - Me.ucrInputDecimalCSV = New instat.ucrInputComboBox() - Me.ucrInputSeparatorCSV = New instat.ucrInputComboBox() - Me.ucrInputEncodingCSV = New instat.ucrInputComboBox() Me.grpExcel = New System.Windows.Forms.GroupBox() - Me.ucrNudMaxRowsExcel = New instat.ucrNud() - Me.ucrChkColumnNamesExcel = New instat.ucrCheck() - Me.ucrChkMaxRowsExcel = New instat.ucrCheck() - Me.ucrChkTrimWSExcel = New instat.ucrCheck() - Me.ucrNudRowsToSkipExcel = New instat.ucrNud() Me.lblMissingValueStringExcel = New System.Windows.Forms.Label() - Me.ucrInputMissingValueStringExcel = New instat.ucrInputTextBox() - Me.ucrInputNamedRegions = New instat.ucrInputComboBox() Me.lblNamedRegion = New System.Windows.Forms.Label() Me.lblRowToSkipExcel = New System.Windows.Forms.Label() Me.grpRDS = New System.Windows.Forms.GroupBox() - Me.ucrChkOverwriteRDS = New instat.ucrCheck() - Me.ucrChkImportObjectsRDS = New instat.ucrCheck() - Me.ucrChkImportCalculationsRDS = New instat.ucrCheck() - Me.ucrChkImportChangesLogRDS = New instat.ucrCheck() - Me.ucrChkImportFiltersRDS = New instat.ucrCheck() - Me.ucrChkImportMetadataRDS = New instat.ucrCheck() - Me.ucrChkKeepExistingDataRDS = New instat.ucrCheck() Me.lblCannotImport = New System.Windows.Forms.Label() Me.lblNoPreview = New System.Windows.Forms.Label() Me.lblLinesToPreview = New System.Windows.Forms.Label() Me.cmdRefreshPreview = New System.Windows.Forms.Button() Me.grpText = New System.Windows.Forms.GroupBox() - Me.ucrNudMaxRowsText = New instat.ucrNud() - Me.ucrChkMaxRowsText = New instat.ucrCheck() - Me.ucrChkColumnNamesText = New instat.ucrCheck() Me.lblMissingValueStringText = New System.Windows.Forms.Label() - Me.ucrNudRowsToSkipText = New instat.ucrNud() - Me.ucrInputMissingValueStringText = New instat.ucrInputTextBox() Me.lblLinesToSkipText = New System.Windows.Forms.Label() Me.rdoSeparatortext = New System.Windows.Forms.RadioButton() Me.rdoFixedWidthText = New System.Windows.Forms.RadioButton() Me.rdoFixedWidthWhiteSpacesText = New System.Windows.Forms.RadioButton() Me.clbSheets = New System.Windows.Forms.CheckedListBox() Me.lblSelectSheets = New System.Windows.Forms.Label() + Me.lblImportingSheets = New System.Windows.Forms.Label() + Me.ucrChkSheetsCheckAll = New instat.ucrCheck() + Me.ucrNudMaxRowsText = New instat.ucrNud() + Me.ucrChkMaxRowsText = New instat.ucrCheck() + Me.ucrChkColumnNamesText = New instat.ucrCheck() + Me.ucrNudRowsToSkipText = New instat.ucrNud() + Me.ucrInputMissingValueStringText = New instat.ucrInputTextBox() Me.ucrNudPreviewLines = New instat.ucrNud() Me.ucrPanelFixedWidthText = New instat.UcrPanel() + Me.ucrNudMaxRowsExcel = New instat.ucrNud() + Me.ucrChkColumnNamesExcel = New instat.ucrCheck() + Me.ucrChkMaxRowsExcel = New instat.ucrCheck() + Me.ucrChkTrimWSExcel = New instat.ucrCheck() + Me.ucrNudRowsToSkipExcel = New instat.ucrNud() + Me.ucrInputMissingValueStringExcel = New instat.ucrInputTextBox() + Me.ucrInputNamedRegions = New instat.ucrInputComboBox() + Me.ucrChkOverwriteRDS = New instat.ucrCheck() + Me.ucrChkImportObjectsRDS = New instat.ucrCheck() + Me.ucrChkImportCalculationsRDS = New instat.ucrCheck() + Me.ucrChkImportChangesLogRDS = New instat.ucrCheck() + Me.ucrChkImportFiltersRDS = New instat.ucrCheck() + Me.ucrChkImportMetadataRDS = New instat.ucrCheck() + Me.ucrChkKeepExistingDataRDS = New instat.ucrCheck() Me.ucrSaveFile = New instat.ucrSave() + Me.ucrNudMaxRowsCSV = New instat.ucrNud() + Me.ucrChkMaxRowsCSV = New instat.ucrCheck() + Me.ucrChkStringsAsFactorsCSV = New instat.ucrCheck() + Me.ucrNudRowsToSkipCSV = New instat.ucrNud() + Me.ucrInputHeadersCSV = New instat.ucrInputComboBox() + Me.ucrInputMissingValueStringCSV = New instat.ucrInputTextBox() + Me.ucrInputDecimalCSV = New instat.ucrInputComboBox() + Me.ucrInputSeparatorCSV = New instat.ucrInputComboBox() + Me.ucrInputEncodingCSV = New instat.ucrInputComboBox() Me.ucrInputFilePath = New instat.ucrInputTextBox() Me.ucrBase = New instat.ucrButtons() - Me.ucrChkSheetsCheckAll = New instat.ucrCheck() - Me.lblImportingSheets = New System.Windows.Forms.Label() Me.grpCSV.SuspendLayout() Me.grpExcel.SuspendLayout() Me.grpRDS.SuspendLayout() @@ -205,79 +205,11 @@ Partial Class dlgImportDataset Me.grpCSV.Name = "grpCSV" Me.grpCSV.TabStop = False ' - 'ucrNudMaxRowsCSV - ' - Me.ucrNudMaxRowsCSV.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMaxRowsCSV.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - resources.ApplyResources(Me.ucrNudMaxRowsCSV, "ucrNudMaxRowsCSV") - Me.ucrNudMaxRowsCSV.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudMaxRowsCSV.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMaxRowsCSV.Name = "ucrNudMaxRowsCSV" - Me.ucrNudMaxRowsCSV.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrChkMaxRowsCSV - ' - Me.ucrChkMaxRowsCSV.Checked = False - resources.ApplyResources(Me.ucrChkMaxRowsCSV, "ucrChkMaxRowsCSV") - Me.ucrChkMaxRowsCSV.Name = "ucrChkMaxRowsCSV" - ' 'lblNAStringsCSV ' resources.ApplyResources(Me.lblNAStringsCSV, "lblNAStringsCSV") Me.lblNAStringsCSV.Name = "lblNAStringsCSV" ' - 'ucrChkStringsAsFactorsCSV - ' - Me.ucrChkStringsAsFactorsCSV.Checked = False - resources.ApplyResources(Me.ucrChkStringsAsFactorsCSV, "ucrChkStringsAsFactorsCSV") - Me.ucrChkStringsAsFactorsCSV.Name = "ucrChkStringsAsFactorsCSV" - ' - 'ucrNudRowsToSkipCSV - ' - Me.ucrNudRowsToSkipCSV.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudRowsToSkipCSV.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - resources.ApplyResources(Me.ucrNudRowsToSkipCSV, "ucrNudRowsToSkipCSV") - Me.ucrNudRowsToSkipCSV.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0}) - Me.ucrNudRowsToSkipCSV.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudRowsToSkipCSV.Name = "ucrNudRowsToSkipCSV" - Me.ucrNudRowsToSkipCSV.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrInputHeadersCSV - ' - Me.ucrInputHeadersCSV.AddQuotesIfUnrecognised = True - Me.ucrInputHeadersCSV.IsReadOnly = False - resources.ApplyResources(Me.ucrInputHeadersCSV, "ucrInputHeadersCSV") - Me.ucrInputHeadersCSV.Name = "ucrInputHeadersCSV" - ' - 'ucrInputMissingValueStringCSV - ' - Me.ucrInputMissingValueStringCSV.AddQuotesIfUnrecognised = True - Me.ucrInputMissingValueStringCSV.IsMultiline = False - Me.ucrInputMissingValueStringCSV.IsReadOnly = False - resources.ApplyResources(Me.ucrInputMissingValueStringCSV, "ucrInputMissingValueStringCSV") - Me.ucrInputMissingValueStringCSV.Name = "ucrInputMissingValueStringCSV" - ' - 'ucrInputDecimalCSV - ' - Me.ucrInputDecimalCSV.AddQuotesIfUnrecognised = True - Me.ucrInputDecimalCSV.IsReadOnly = False - resources.ApplyResources(Me.ucrInputDecimalCSV, "ucrInputDecimalCSV") - Me.ucrInputDecimalCSV.Name = "ucrInputDecimalCSV" - ' - 'ucrInputSeparatorCSV - ' - Me.ucrInputSeparatorCSV.AddQuotesIfUnrecognised = True - Me.ucrInputSeparatorCSV.IsReadOnly = False - resources.ApplyResources(Me.ucrInputSeparatorCSV, "ucrInputSeparatorCSV") - Me.ucrInputSeparatorCSV.Name = "ucrInputSeparatorCSV" - ' - 'ucrInputEncodingCSV - ' - Me.ucrInputEncodingCSV.AddQuotesIfUnrecognised = True - Me.ucrInputEncodingCSV.IsReadOnly = False - resources.ApplyResources(Me.ucrInputEncodingCSV, "ucrInputEncodingCSV") - Me.ucrInputEncodingCSV.Name = "ucrInputEncodingCSV" - ' 'grpExcel ' Me.grpExcel.Controls.Add(Me.ucrNudMaxRowsExcel) @@ -294,64 +226,11 @@ Partial Class dlgImportDataset Me.grpExcel.Name = "grpExcel" Me.grpExcel.TabStop = False ' - 'ucrNudMaxRowsExcel - ' - Me.ucrNudMaxRowsExcel.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMaxRowsExcel.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - resources.ApplyResources(Me.ucrNudMaxRowsExcel, "ucrNudMaxRowsExcel") - Me.ucrNudMaxRowsExcel.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudMaxRowsExcel.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMaxRowsExcel.Name = "ucrNudMaxRowsExcel" - Me.ucrNudMaxRowsExcel.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrChkColumnNamesExcel - ' - Me.ucrChkColumnNamesExcel.Checked = False - resources.ApplyResources(Me.ucrChkColumnNamesExcel, "ucrChkColumnNamesExcel") - Me.ucrChkColumnNamesExcel.Name = "ucrChkColumnNamesExcel" - ' - 'ucrChkMaxRowsExcel - ' - Me.ucrChkMaxRowsExcel.Checked = False - resources.ApplyResources(Me.ucrChkMaxRowsExcel, "ucrChkMaxRowsExcel") - Me.ucrChkMaxRowsExcel.Name = "ucrChkMaxRowsExcel" - ' - 'ucrChkTrimWSExcel - ' - Me.ucrChkTrimWSExcel.Checked = False - resources.ApplyResources(Me.ucrChkTrimWSExcel, "ucrChkTrimWSExcel") - Me.ucrChkTrimWSExcel.Name = "ucrChkTrimWSExcel" - ' - 'ucrNudRowsToSkipExcel - ' - Me.ucrNudRowsToSkipExcel.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudRowsToSkipExcel.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - resources.ApplyResources(Me.ucrNudRowsToSkipExcel, "ucrNudRowsToSkipExcel") - Me.ucrNudRowsToSkipExcel.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudRowsToSkipExcel.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudRowsToSkipExcel.Name = "ucrNudRowsToSkipExcel" - Me.ucrNudRowsToSkipExcel.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' 'lblMissingValueStringExcel ' resources.ApplyResources(Me.lblMissingValueStringExcel, "lblMissingValueStringExcel") Me.lblMissingValueStringExcel.Name = "lblMissingValueStringExcel" ' - 'ucrInputMissingValueStringExcel - ' - Me.ucrInputMissingValueStringExcel.AddQuotesIfUnrecognised = True - Me.ucrInputMissingValueStringExcel.IsMultiline = False - Me.ucrInputMissingValueStringExcel.IsReadOnly = False - resources.ApplyResources(Me.ucrInputMissingValueStringExcel, "ucrInputMissingValueStringExcel") - Me.ucrInputMissingValueStringExcel.Name = "ucrInputMissingValueStringExcel" - ' - 'ucrInputNamedRegions - ' - Me.ucrInputNamedRegions.AddQuotesIfUnrecognised = True - Me.ucrInputNamedRegions.IsReadOnly = False - resources.ApplyResources(Me.ucrInputNamedRegions, "ucrInputNamedRegions") - Me.ucrInputNamedRegions.Name = "ucrInputNamedRegions" - ' 'lblNamedRegion ' resources.ApplyResources(Me.lblNamedRegion, "lblNamedRegion") @@ -375,48 +254,6 @@ Partial Class dlgImportDataset Me.grpRDS.Name = "grpRDS" Me.grpRDS.TabStop = False ' - 'ucrChkOverwriteRDS - ' - Me.ucrChkOverwriteRDS.Checked = False - resources.ApplyResources(Me.ucrChkOverwriteRDS, "ucrChkOverwriteRDS") - Me.ucrChkOverwriteRDS.Name = "ucrChkOverwriteRDS" - ' - 'ucrChkImportObjectsRDS - ' - Me.ucrChkImportObjectsRDS.Checked = False - resources.ApplyResources(Me.ucrChkImportObjectsRDS, "ucrChkImportObjectsRDS") - Me.ucrChkImportObjectsRDS.Name = "ucrChkImportObjectsRDS" - ' - 'ucrChkImportCalculationsRDS - ' - Me.ucrChkImportCalculationsRDS.Checked = False - resources.ApplyResources(Me.ucrChkImportCalculationsRDS, "ucrChkImportCalculationsRDS") - Me.ucrChkImportCalculationsRDS.Name = "ucrChkImportCalculationsRDS" - ' - 'ucrChkImportChangesLogRDS - ' - Me.ucrChkImportChangesLogRDS.Checked = False - resources.ApplyResources(Me.ucrChkImportChangesLogRDS, "ucrChkImportChangesLogRDS") - Me.ucrChkImportChangesLogRDS.Name = "ucrChkImportChangesLogRDS" - ' - 'ucrChkImportFiltersRDS - ' - Me.ucrChkImportFiltersRDS.Checked = False - resources.ApplyResources(Me.ucrChkImportFiltersRDS, "ucrChkImportFiltersRDS") - Me.ucrChkImportFiltersRDS.Name = "ucrChkImportFiltersRDS" - ' - 'ucrChkImportMetadataRDS - ' - Me.ucrChkImportMetadataRDS.Checked = False - resources.ApplyResources(Me.ucrChkImportMetadataRDS, "ucrChkImportMetadataRDS") - Me.ucrChkImportMetadataRDS.Name = "ucrChkImportMetadataRDS" - ' - 'ucrChkKeepExistingDataRDS - ' - Me.ucrChkKeepExistingDataRDS.Checked = False - resources.ApplyResources(Me.ucrChkKeepExistingDataRDS, "ucrChkKeepExistingDataRDS") - Me.ucrChkKeepExistingDataRDS.Name = "ucrChkKeepExistingDataRDS" - ' 'lblCannotImport ' resources.ApplyResources(Me.lblCannotImport, "lblCannotImport") @@ -451,51 +288,11 @@ Partial Class dlgImportDataset Me.grpText.Name = "grpText" Me.grpText.TabStop = False ' - 'ucrNudMaxRowsText - ' - Me.ucrNudMaxRowsText.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMaxRowsText.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - resources.ApplyResources(Me.ucrNudMaxRowsText, "ucrNudMaxRowsText") - Me.ucrNudMaxRowsText.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) - Me.ucrNudMaxRowsText.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudMaxRowsText.Name = "ucrNudMaxRowsText" - Me.ucrNudMaxRowsText.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrChkMaxRowsText - ' - Me.ucrChkMaxRowsText.Checked = False - resources.ApplyResources(Me.ucrChkMaxRowsText, "ucrChkMaxRowsText") - Me.ucrChkMaxRowsText.Name = "ucrChkMaxRowsText" - ' - 'ucrChkColumnNamesText - ' - Me.ucrChkColumnNamesText.Checked = False - resources.ApplyResources(Me.ucrChkColumnNamesText, "ucrChkColumnNamesText") - Me.ucrChkColumnNamesText.Name = "ucrChkColumnNamesText" - ' 'lblMissingValueStringText ' resources.ApplyResources(Me.lblMissingValueStringText, "lblMissingValueStringText") Me.lblMissingValueStringText.Name = "lblMissingValueStringText" ' - 'ucrNudRowsToSkipText - ' - Me.ucrNudRowsToSkipText.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudRowsToSkipText.Increment = New Decimal(New Integer() {1, 0, 0, 0}) - resources.ApplyResources(Me.ucrNudRowsToSkipText, "ucrNudRowsToSkipText") - Me.ucrNudRowsToSkipText.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0}) - Me.ucrNudRowsToSkipText.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) - Me.ucrNudRowsToSkipText.Name = "ucrNudRowsToSkipText" - Me.ucrNudRowsToSkipText.Value = New Decimal(New Integer() {0, 0, 0, 0}) - ' - 'ucrInputMissingValueStringText - ' - Me.ucrInputMissingValueStringText.AddQuotesIfUnrecognised = True - Me.ucrInputMissingValueStringText.IsMultiline = False - Me.ucrInputMissingValueStringText.IsReadOnly = False - resources.ApplyResources(Me.ucrInputMissingValueStringText, "ucrInputMissingValueStringText") - Me.ucrInputMissingValueStringText.Name = "ucrInputMissingValueStringText" - ' 'lblLinesToSkipText ' resources.ApplyResources(Me.lblLinesToSkipText, "lblLinesToSkipText") @@ -544,6 +341,57 @@ Partial Class dlgImportDataset Me.lblSelectSheets.Name = "lblSelectSheets" Me.lblSelectSheets.Tag = "" ' + 'lblImportingSheets + ' + resources.ApplyResources(Me.lblImportingSheets, "lblImportingSheets") + Me.lblImportingSheets.Name = "lblImportingSheets" + ' + 'ucrChkSheetsCheckAll + ' + Me.ucrChkSheetsCheckAll.Checked = False + resources.ApplyResources(Me.ucrChkSheetsCheckAll, "ucrChkSheetsCheckAll") + Me.ucrChkSheetsCheckAll.Name = "ucrChkSheetsCheckAll" + ' + 'ucrNudMaxRowsText + ' + Me.ucrNudMaxRowsText.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMaxRowsText.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + resources.ApplyResources(Me.ucrNudMaxRowsText, "ucrNudMaxRowsText") + Me.ucrNudMaxRowsText.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudMaxRowsText.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMaxRowsText.Name = "ucrNudMaxRowsText" + Me.ucrNudMaxRowsText.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrChkMaxRowsText + ' + Me.ucrChkMaxRowsText.Checked = False + resources.ApplyResources(Me.ucrChkMaxRowsText, "ucrChkMaxRowsText") + Me.ucrChkMaxRowsText.Name = "ucrChkMaxRowsText" + ' + 'ucrChkColumnNamesText + ' + Me.ucrChkColumnNamesText.Checked = False + resources.ApplyResources(Me.ucrChkColumnNamesText, "ucrChkColumnNamesText") + Me.ucrChkColumnNamesText.Name = "ucrChkColumnNamesText" + ' + 'ucrNudRowsToSkipText + ' + Me.ucrNudRowsToSkipText.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudRowsToSkipText.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + resources.ApplyResources(Me.ucrNudRowsToSkipText, "ucrNudRowsToSkipText") + Me.ucrNudRowsToSkipText.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0}) + Me.ucrNudRowsToSkipText.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudRowsToSkipText.Name = "ucrNudRowsToSkipText" + Me.ucrNudRowsToSkipText.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrInputMissingValueStringText + ' + Me.ucrInputMissingValueStringText.AddQuotesIfUnrecognised = True + Me.ucrInputMissingValueStringText.IsMultiline = False + Me.ucrInputMissingValueStringText.IsReadOnly = False + resources.ApplyResources(Me.ucrInputMissingValueStringText, "ucrInputMissingValueStringText") + Me.ucrInputMissingValueStringText.Name = "ucrInputMissingValueStringText" + ' 'ucrNudPreviewLines ' Me.ucrNudPreviewLines.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) @@ -559,11 +407,174 @@ Partial Class dlgImportDataset resources.ApplyResources(Me.ucrPanelFixedWidthText, "ucrPanelFixedWidthText") Me.ucrPanelFixedWidthText.Name = "ucrPanelFixedWidthText" ' + 'ucrNudMaxRowsExcel + ' + Me.ucrNudMaxRowsExcel.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMaxRowsExcel.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + resources.ApplyResources(Me.ucrNudMaxRowsExcel, "ucrNudMaxRowsExcel") + Me.ucrNudMaxRowsExcel.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudMaxRowsExcel.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMaxRowsExcel.Name = "ucrNudMaxRowsExcel" + Me.ucrNudMaxRowsExcel.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrChkColumnNamesExcel + ' + Me.ucrChkColumnNamesExcel.Checked = False + resources.ApplyResources(Me.ucrChkColumnNamesExcel, "ucrChkColumnNamesExcel") + Me.ucrChkColumnNamesExcel.Name = "ucrChkColumnNamesExcel" + ' + 'ucrChkMaxRowsExcel + ' + Me.ucrChkMaxRowsExcel.Checked = False + resources.ApplyResources(Me.ucrChkMaxRowsExcel, "ucrChkMaxRowsExcel") + Me.ucrChkMaxRowsExcel.Name = "ucrChkMaxRowsExcel" + ' + 'ucrChkTrimWSExcel + ' + Me.ucrChkTrimWSExcel.Checked = False + resources.ApplyResources(Me.ucrChkTrimWSExcel, "ucrChkTrimWSExcel") + Me.ucrChkTrimWSExcel.Name = "ucrChkTrimWSExcel" + ' + 'ucrNudRowsToSkipExcel + ' + Me.ucrNudRowsToSkipExcel.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudRowsToSkipExcel.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + resources.ApplyResources(Me.ucrNudRowsToSkipExcel, "ucrNudRowsToSkipExcel") + Me.ucrNudRowsToSkipExcel.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudRowsToSkipExcel.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudRowsToSkipExcel.Name = "ucrNudRowsToSkipExcel" + Me.ucrNudRowsToSkipExcel.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrInputMissingValueStringExcel + ' + Me.ucrInputMissingValueStringExcel.AddQuotesIfUnrecognised = True + Me.ucrInputMissingValueStringExcel.IsMultiline = False + Me.ucrInputMissingValueStringExcel.IsReadOnly = False + resources.ApplyResources(Me.ucrInputMissingValueStringExcel, "ucrInputMissingValueStringExcel") + Me.ucrInputMissingValueStringExcel.Name = "ucrInputMissingValueStringExcel" + ' + 'ucrInputNamedRegions + ' + Me.ucrInputNamedRegions.AddQuotesIfUnrecognised = True + Me.ucrInputNamedRegions.IsReadOnly = False + resources.ApplyResources(Me.ucrInputNamedRegions, "ucrInputNamedRegions") + Me.ucrInputNamedRegions.Name = "ucrInputNamedRegions" + ' + 'ucrChkOverwriteRDS + ' + Me.ucrChkOverwriteRDS.Checked = False + resources.ApplyResources(Me.ucrChkOverwriteRDS, "ucrChkOverwriteRDS") + Me.ucrChkOverwriteRDS.Name = "ucrChkOverwriteRDS" + ' + 'ucrChkImportObjectsRDS + ' + Me.ucrChkImportObjectsRDS.Checked = False + resources.ApplyResources(Me.ucrChkImportObjectsRDS, "ucrChkImportObjectsRDS") + Me.ucrChkImportObjectsRDS.Name = "ucrChkImportObjectsRDS" + ' + 'ucrChkImportCalculationsRDS + ' + Me.ucrChkImportCalculationsRDS.Checked = False + resources.ApplyResources(Me.ucrChkImportCalculationsRDS, "ucrChkImportCalculationsRDS") + Me.ucrChkImportCalculationsRDS.Name = "ucrChkImportCalculationsRDS" + ' + 'ucrChkImportChangesLogRDS + ' + Me.ucrChkImportChangesLogRDS.Checked = False + resources.ApplyResources(Me.ucrChkImportChangesLogRDS, "ucrChkImportChangesLogRDS") + Me.ucrChkImportChangesLogRDS.Name = "ucrChkImportChangesLogRDS" + ' + 'ucrChkImportFiltersRDS + ' + Me.ucrChkImportFiltersRDS.Checked = False + resources.ApplyResources(Me.ucrChkImportFiltersRDS, "ucrChkImportFiltersRDS") + Me.ucrChkImportFiltersRDS.Name = "ucrChkImportFiltersRDS" + ' + 'ucrChkImportMetadataRDS + ' + Me.ucrChkImportMetadataRDS.Checked = False + resources.ApplyResources(Me.ucrChkImportMetadataRDS, "ucrChkImportMetadataRDS") + Me.ucrChkImportMetadataRDS.Name = "ucrChkImportMetadataRDS" + ' + 'ucrChkKeepExistingDataRDS + ' + Me.ucrChkKeepExistingDataRDS.Checked = False + resources.ApplyResources(Me.ucrChkKeepExistingDataRDS, "ucrChkKeepExistingDataRDS") + Me.ucrChkKeepExistingDataRDS.Name = "ucrChkKeepExistingDataRDS" + ' 'ucrSaveFile ' resources.ApplyResources(Me.ucrSaveFile, "ucrSaveFile") Me.ucrSaveFile.Name = "ucrSaveFile" ' + 'ucrNudMaxRowsCSV + ' + Me.ucrNudMaxRowsCSV.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMaxRowsCSV.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + resources.ApplyResources(Me.ucrNudMaxRowsCSV, "ucrNudMaxRowsCSV") + Me.ucrNudMaxRowsCSV.Maximum = New Decimal(New Integer() {100, 0, 0, 0}) + Me.ucrNudMaxRowsCSV.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudMaxRowsCSV.Name = "ucrNudMaxRowsCSV" + Me.ucrNudMaxRowsCSV.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrChkMaxRowsCSV + ' + Me.ucrChkMaxRowsCSV.Checked = False + resources.ApplyResources(Me.ucrChkMaxRowsCSV, "ucrChkMaxRowsCSV") + Me.ucrChkMaxRowsCSV.Name = "ucrChkMaxRowsCSV" + ' + 'ucrChkStringsAsFactorsCSV + ' + Me.ucrChkStringsAsFactorsCSV.Checked = False + resources.ApplyResources(Me.ucrChkStringsAsFactorsCSV, "ucrChkStringsAsFactorsCSV") + Me.ucrChkStringsAsFactorsCSV.Name = "ucrChkStringsAsFactorsCSV" + ' + 'ucrNudRowsToSkipCSV + ' + Me.ucrNudRowsToSkipCSV.DecimalPlaces = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudRowsToSkipCSV.Increment = New Decimal(New Integer() {1, 0, 0, 0}) + resources.ApplyResources(Me.ucrNudRowsToSkipCSV, "ucrNudRowsToSkipCSV") + Me.ucrNudRowsToSkipCSV.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0}) + Me.ucrNudRowsToSkipCSV.Minimum = New Decimal(New Integer() {0, 0, 0, 0}) + Me.ucrNudRowsToSkipCSV.Name = "ucrNudRowsToSkipCSV" + Me.ucrNudRowsToSkipCSV.Value = New Decimal(New Integer() {0, 0, 0, 0}) + ' + 'ucrInputHeadersCSV + ' + Me.ucrInputHeadersCSV.AddQuotesIfUnrecognised = True + Me.ucrInputHeadersCSV.IsReadOnly = False + resources.ApplyResources(Me.ucrInputHeadersCSV, "ucrInputHeadersCSV") + Me.ucrInputHeadersCSV.Name = "ucrInputHeadersCSV" + ' + 'ucrInputMissingValueStringCSV + ' + Me.ucrInputMissingValueStringCSV.AddQuotesIfUnrecognised = True + Me.ucrInputMissingValueStringCSV.IsMultiline = False + Me.ucrInputMissingValueStringCSV.IsReadOnly = False + resources.ApplyResources(Me.ucrInputMissingValueStringCSV, "ucrInputMissingValueStringCSV") + Me.ucrInputMissingValueStringCSV.Name = "ucrInputMissingValueStringCSV" + ' + 'ucrInputDecimalCSV + ' + Me.ucrInputDecimalCSV.AddQuotesIfUnrecognised = True + Me.ucrInputDecimalCSV.IsReadOnly = False + resources.ApplyResources(Me.ucrInputDecimalCSV, "ucrInputDecimalCSV") + Me.ucrInputDecimalCSV.Name = "ucrInputDecimalCSV" + ' + 'ucrInputSeparatorCSV + ' + Me.ucrInputSeparatorCSV.AddQuotesIfUnrecognised = True + Me.ucrInputSeparatorCSV.IsReadOnly = False + resources.ApplyResources(Me.ucrInputSeparatorCSV, "ucrInputSeparatorCSV") + Me.ucrInputSeparatorCSV.Name = "ucrInputSeparatorCSV" + ' + 'ucrInputEncodingCSV + ' + Me.ucrInputEncodingCSV.AddQuotesIfUnrecognised = True + Me.ucrInputEncodingCSV.IsReadOnly = False + resources.ApplyResources(Me.ucrInputEncodingCSV, "ucrInputEncodingCSV") + Me.ucrInputEncodingCSV.Name = "ucrInputEncodingCSV" + ' 'ucrInputFilePath ' Me.ucrInputFilePath.AddQuotesIfUnrecognised = True @@ -577,17 +588,6 @@ Partial Class dlgImportDataset resources.ApplyResources(Me.ucrBase, "ucrBase") Me.ucrBase.Name = "ucrBase" ' - 'ucrChkSheetsCheckAll - ' - Me.ucrChkSheetsCheckAll.Checked = False - resources.ApplyResources(Me.ucrChkSheetsCheckAll, "ucrChkSheetsCheckAll") - Me.ucrChkSheetsCheckAll.Name = "ucrChkSheetsCheckAll" - ' - 'lblImportingSheets - ' - resources.ApplyResources(Me.lblImportingSheets, "lblImportingSheets") - Me.lblImportingSheets.Name = "lblImportingSheets" - ' 'dlgImportDataset ' resources.ApplyResources(Me, "$this") diff --git a/instat/dlgImportDataset.resx b/instat/dlgImportDataset.resx index b48cab0fee6..89c77059300 100644 --- a/instat/dlgImportDataset.resx +++ b/instat/dlgImportDataset.resx @@ -127,7 +127,7 @@ - 293, 9 + 293, 49 91, 13 @@ -157,7 +157,7 @@ NoControl - 293, 239 + 293, 284 106, 13 @@ -301,7 +301,7 @@ 14 - 296, 25 + 296, 70 True @@ -328,7 +328,7 @@ 23 - 296, 263 + 296, 311 422, 174 @@ -352,10 +352,10 @@ NoControl - 10, 26 + 10, 20 - 62, 13 + 38, 13 0 @@ -409,7 +409,7 @@ NoControl - 198, 22 + 470, 16 66, 23 @@ -1195,7 +1195,7 @@ NoControl - 315, 316 + 306, 346 389, 40 @@ -1235,7 +1235,7 @@ Modify options or select a different file. NoControl - 351, 318 + 342, 350 302, 18 @@ -1271,7 +1271,7 @@ Modify options or select a different file. NoControl - 574, 239 + 574, 284 88, 13 @@ -1298,7 +1298,7 @@ Modify options or select a different file. NoControl - 624, 443 + 624, 491 94, 23 @@ -1641,7 +1641,7 @@ white spaces True - 296, 64 + 296, 109 255, 169 @@ -1668,7 +1668,7 @@ white spaces NoControl - 293, 25 + 293, 70 76, 13 @@ -1691,8 +1691,65 @@ white spaces 2 + + Microsoft Sans Serif, 11.25pt + + + NoControl + + + 296, 329 + + + 388, 114 + + + 28 + + + Importing the following sheets: + + + False + + + lblImportingSheets + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + 299, 87 + + + 4, 5, 4, 5 + + + 129, 20 + + + 22 + + + ucrChkSheetsCheckAll + + + instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null + + + $this + + + 1 + - 668, 236 + 668, 281 4, 5, 4, 5 @@ -1761,13 +1818,16 @@ white spaces 14 - 75, 23 + 47, 17 6, 8, 6, 8 + + Yes + - 119, 21 + 421, 21 1 @@ -1808,63 +1868,6 @@ white spaces 22 - - 299, 42 - - - 4, 5, 4, 5 - - - 129, 20 - - - 22 - - - ucrChkSheetsCheckAll - - - instat.ucrCheck, instat, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null - - - $this - - - 1 - - - Microsoft Sans Serif, 11.25pt - - - NoControl - - - 296, 281 - - - 388, 114 - - - 28 - - - Importing the following sheets: - - - False - - - lblImportingSheets - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - True diff --git a/instat/dlgOpenNetCDF.vb b/instat/dlgOpenNetCDF.vb index 8852922eaab..7b125a45126 100644 --- a/instat/dlgOpenNetCDF.vb +++ b/instat/dlgOpenNetCDF.vb @@ -36,7 +36,7 @@ Public Class dlgOpenNetCDF Private bCloseFile As Boolean = False Private strFileAssignName As String = "nc" Private iExpandedWidth As Integer - Private strLibraryPath As String = Path.Combine(frmMain.strStaticPath, "Library", "Climatic", "Satellite/") + Private strLibraryPath As String = Path.Combine(frmMain.strStaticPath, "Library", "Climatic", "_Satellite/") Private bFromLibrary As Boolean = False Private bSubDialogOKEnabled As Boolean = True diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index c83c2e0fbee..1e75b23bf4a 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -45,7 +45,7 @@ Partial Class frmMain Me.mnuDescribeOneVariableGraph = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator33 = New System.Windows.Forms.ToolStripSeparator() Me.mnuDescribeOneVariableFrequencies = New System.Windows.Forms.ToolStripMenuItem() - Me.RatingDataToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuDescribeOneVariableRatingData = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeTwoVariables = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeTwoVariablesSummarise = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeTwoVariablesGraph = New System.Windows.Forms.ToolStripMenuItem() @@ -68,15 +68,15 @@ Partial Class frmMain Me.mnuDescribeSpecificDotPlot = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeSpecificRugPlot = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeSpecificBarChart = New System.Windows.Forms.ToolStripMenuItem() - Me.CummulativeDistributionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuDescribeSpecificCummulativeDistribution = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeSpecificParallelCoordinatePlot = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeSpecificMosaic = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeGeneral = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeGeneralColumnSummaries = New System.Windows.Forms.ToolStripMenuItem() - Me.DescribeGeneralTabulation = New System.Windows.Forms.ToolStripMenuItem() - Me.DescribeGeneralGraphics = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuDescribeGeneralTabulation = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuDescribeGeneralGraphics = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator38 = New System.Windows.Forms.ToolStripSeparator() - Me.FrequencyTablesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuDescribeGeneralUseSummaries = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() Me.mnuDescribeMultivariate = New System.Windows.Forms.ToolStripMenuItem() Me.mnuDescribeMultivariateCorrelations = New System.Windows.Forms.ToolStripMenuItem() @@ -116,7 +116,7 @@ Partial Class frmMain Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.mnuModelHypothesisTests = New System.Windows.Forms.ToolStripMenuItem() Me.mnuModelModel = New System.Windows.Forms.ToolStripMenuItem() - Me.UseModelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuModelUseModel = New System.Windows.Forms.ToolStripMenuItem() Me.mnuModelOtherOneVariable = New System.Windows.Forms.ToolStripMenuItem() Me.mnuModelOtherOneVariableExactResults = New System.Windows.Forms.ToolStripMenuItem() Me.mnuModelOtherOneVariableSampleSummaryData = New System.Windows.Forms.ToolStripMenuItem() @@ -143,8 +143,8 @@ Partial Class frmMain Me.mnuClimaticEvaporationSite = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticEvaporationPenman = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticCrop = New System.Windows.Forms.ToolStripMenuItem() - Me.CropCoefficientsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.WaterSatisfactionIndexToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticCropCropCoefficients = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticCropWaterSatisfactionIndex = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticHeatSum = New System.Windows.Forms.ToolStripMenuItem() Me.mnuView = New System.Windows.Forms.ToolStripMenuItem() Me.mnuViewDataView = New System.Windows.Forms.ToolStripMenuItem() @@ -167,7 +167,7 @@ Partial Class frmMain Me.mnuHelpWindows = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpDataViewSpreadsheet = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpMenus = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuHelpR = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuHelpAboutR = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpRPackagesCommands = New System.Windows.Forms.ToolStripMenuItem() Me.mnuHelpDataset = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator29 = New System.Windows.Forms.ToolStripSeparator() @@ -218,6 +218,7 @@ Partial Class frmMain Me.mnuClimaticCheckDataInventory = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticCheckDataDisplayDaily = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticCheckDataBoxplot = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticCheckDataQCTemperatures = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticCheckDataQCRainfall = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticPrepare = New System.Windows.Forms.ToolStripMenuItem() Me.mnuCimaticPrepareTransform = New System.Windows.Forms.ToolStripMenuItem() @@ -254,17 +255,17 @@ Partial Class frmMain Me.ToolStripSeparator31 = New System.Windows.Forms.ToolStripSeparator() Me.mnuClimaticPICSA = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticPICSARainfall = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuCumExeedenceGraph = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticPICSACumExeedenceGraph = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticPICSATemperature = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticPICSACrops = New System.Windows.Forms.ToolStripMenuItem() Me.mnuCMSAF = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticCMSAFPlotRegion = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticCMSAFExporttoCMSAFRToolbox = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticMapping = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimaticModels = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticModel = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticModelsExtremes = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimaticModelsCircular = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimaticModelsMarkovModelling = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticModelCircular = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticModelMarkovModelling = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator23 = New System.Windows.Forms.ToolStripSeparator() Me.mnuClimaticSCF = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticSCFSupportOpenSST = New System.Windows.Forms.ToolStripMenuItem() @@ -274,44 +275,44 @@ Partial Class frmMain Me.mnuClimaticSCFSupportPrincipalComponents = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticSCFSupportCanonicalCorrelations = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimaticSCFSupportCumulativeExceedanceGraph = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethods = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulation = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationStartOfRain = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationEndOfRain = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationChangeFormatDayMonth = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationExportCPTToTabular = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationDayMonth = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationDisplayDaily = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationDisplayDOYOfYear = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationDisplayRainRunningTotal = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationDisplaySpellLength = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationExportForPICSA = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationExtremeEvents = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationMissingData = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsDataManipulationMissingDataTable = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethods = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulation = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationStartOfRain = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationEndOfRain = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationExportCPTToTabular = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationDayMonth = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationDisplayDaily = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationDisplaySpellLength = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationExportForPICSA = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationExtremeEvents = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationMissingData = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsDataManipulationMissingDataTable = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimateMethodsDataManipulationMonthlySummaries = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimateMethodsDataManipulationOutputForCD = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphics = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsClipBoxPlot = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsCliplot = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsMissingValues = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsHistogram = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsCumExceedance = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsBoxplot = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsInventory = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsAnnualRainfall = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsRainCount = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsTimeseries = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsGraphicsWindrose = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphics = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsClipBoxPlot = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsCliplot = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsMissingValues = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsHistogram = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsCumExceedance = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsBoxplot = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsInventory = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsAnnualRainfall = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsRainCount = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsTimeseries = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsGraphicsWindrose = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimateMethodsGraphicsMultipleLines = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClmateMethodThreeSummaries = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsModel = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsAdditional = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsAdditionalOutputForCPT = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsAdditionalRainsStatistics = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsAdditionalSeasonalSummary = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsAdditionalSeasonalSummaryRain = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuClimateMethodsAdditionalWaterBalance = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsModel = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsAdditional = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsAdditionalOutputForCPT = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsAdditionalRainsStatistics = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsAdditionalSeasonalSummary = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuClimaticClimateMethodsAdditionalWaterBalance = New System.Windows.Forms.ToolStripMenuItem() Me.mnuClimateMethodsCreateClimateObject = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileSave = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileSaveAs = New System.Windows.Forms.ToolStripMenuItem() @@ -369,11 +370,11 @@ Partial Class frmMain Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator() Me.mnuFileConvert = New System.Windows.Forms.ToolStripMenuItem() Me.tlSeparatorFile = New System.Windows.Forms.ToolStripSeparator() - Me.mnuExport = New System.Windows.Forms.ToolStripMenuItem() - Me.ExportDataSetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ExportRObjectsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ExportRWorkspaceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.ExportGraphAsImageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFileExport = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFileExportExportDataSet = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFileExportExportRObjectsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFileExportExportRWorkspace = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFileExportExportGraphAsImage = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFileCloseData = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() Me.mnuPrepare = New System.Windows.Forms.ToolStripMenuItem() @@ -396,7 +397,7 @@ Partial Class frmMain Me.mnuPrepareDataFrameProtectColumn = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareDataFrameHideColumns = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareDataFrameFreezeColumns = New System.Windows.Forms.ToolStripMenuItem() - Me.ColourByPropertyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareDataframeColourByProperty = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareCheckData = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareCheckDataDuplicates = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareCheckDataCompareColumns = New System.Windows.Forms.ToolStripMenuItem() @@ -411,7 +412,7 @@ Partial Class frmMain Me.mnuPrepareCheckDataImportOpenRefine = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator40 = New System.Windows.Forms.ToolStripSeparator() Me.mnuPreparePrepareToShareJitter = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuCheckDataPrePareToShareSdcPackage = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareCheckDataPrePareToShareSdcPackage = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareCheckDataAnonymiseIDColumn = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() Me.mnuPrepareColumnCalculate = New System.Windows.Forms.ToolStripMenuItem() @@ -419,7 +420,7 @@ Partial Class frmMain Me.mnuPrepareColumnCalculateColumnSummaries = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnCalculateGeneralSummaries = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator() - Me.mnuPrepareCalculateDuplicateColumn = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnCalculateDuplicateColumn = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnCalculateTransform = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnCalculateRank = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnCalculatePolynomials = New System.Windows.Forms.ToolStripMenuItem() @@ -455,12 +456,12 @@ Partial Class frmMain Me.mnuPrepareColumnTextMatch = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnTextDistance = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnDate = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuPrepareColumnGenerateDate = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuPrepareColumnMakeDate = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuPrepareColumnInfillMissingDates = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuPrepareColumnUseDate = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuPrepareColumnMakeTime = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuPrepareColumnUseTime = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnDateGenerateDate = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnDateMakeDate = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnDateInfillMissingDates = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnDateUseDate = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnDateMakeTime = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuPrepareColumnDateUseTime = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnReshape = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnReshapeColumnSummaries = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareColumnReshapeGeneralSummaries = New System.Windows.Forms.ToolStripMenuItem() @@ -498,7 +499,7 @@ Partial Class frmMain Me.mnuPrepareRObjectsReorder = New System.Windows.Forms.ToolStripMenuItem() Me.mnuPrepareRObjectsDelete = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurement = New System.Windows.Forms.ToolStripMenuItem() - Me.OpenFromLibraryToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementOpenFromLibrary = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementDefineData = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementPrepare = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementPrepareFilterByCountry = New System.Windows.Forms.ToolStripMenuItem() @@ -508,33 +509,33 @@ Partial Class frmMain Me.mnuProcurementPrepareSetFactorReferenceLevel = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementPrepareUseAwardDate = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator43 = New System.Windows.Forms.ToolStripSeparator() - Me.SummariseRedFlagsByCountryorOtherToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementPrepareSummariseRedFlagsByCountryorOther = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementPrepareMergeAdditionalData = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementDescribe = New System.Windows.Forms.ToolStripMenuItem() - Me.OneVariableSummariseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.OneVariableGraphToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeOneVariableSummarise = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeOneVariableGraph = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator44 = New System.Windows.Forms.ToolStripSeparator() - Me.CategoricalToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeCategorical = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementDescribeCategoricalOneVarFreq = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementDescribeCategoricalTwoVarFreq = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator52 = New System.Windows.Forms.ToolStripSeparator() - Me.BarChartsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.MosaicPlotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.NumericToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.BoxplotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeCategoricalBarCharts = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeCategoricalMosaic = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeNumeric = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeNumericBoxplot = New System.Windows.Forms.ToolStripMenuItem() Me.HistogramToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator53 = New System.Windows.Forms.ToolStripSeparator() - Me.CorrelationsRedFlagsOrOthersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.MappingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.MapCountryValuesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementMapping = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementMappingMapCountryValues = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementModel = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuProcurementDefineCorruption = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementModelDefineCorruption = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementModelFitModelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator45 = New System.Windows.Forms.ToolStripSeparator() Me.mnuProcurementDefineRedFlags = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementUseCRI = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuProcurementCalculateCRI = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuProcurementCTFVCalculateCRI = New System.Windows.Forms.ToolStripMenuItem() Me.mnuProcurementUseCRISummariseCRIbyCountry = New System.Windows.Forms.ToolStripMenuItem() Me.mnuOptionsByContext = New System.Windows.Forms.ToolStripMenuItem() Me.mnuOptionsByContextCheckData = New System.Windows.Forms.ToolStripMenuItem() @@ -579,7 +580,6 @@ Partial Class frmMain Me.splDataOutput = New System.Windows.Forms.SplitContainer() Me.ucrDataViewer = New instat.ucrDataView() Me.ucrOutput = New instat.ucrOutputWindow() - Me.mnuClimaticCheckDataQCTemperatures = New System.Windows.Forms.ToolStripMenuItem() Me.stsStrip.SuspendLayout() Me.Tool_strip.SuspendLayout() Me.mnuBar.SuspendLayout() @@ -614,7 +614,7 @@ Partial Class frmMain ' 'mnuDescribeOneVariable ' - Me.mnuDescribeOneVariable.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuDescribeOneVariableSummarise, Me.mnuDescribeOneVariableGraph, Me.ToolStripSeparator33, Me.mnuDescribeOneVariableFrequencies, Me.RatingDataToolStripMenuItem}) + Me.mnuDescribeOneVariable.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuDescribeOneVariableSummarise, Me.mnuDescribeOneVariableGraph, Me.ToolStripSeparator33, Me.mnuDescribeOneVariableFrequencies, Me.mnuDescribeOneVariableRatingData}) Me.mnuDescribeOneVariable.Name = "mnuDescribeOneVariable" resources.ApplyResources(Me.mnuDescribeOneVariable, "mnuDescribeOneVariable") Me.mnuDescribeOneVariable.Tag = "One_Variable" @@ -641,10 +641,10 @@ Partial Class frmMain Me.mnuDescribeOneVariableFrequencies.Name = "mnuDescribeOneVariableFrequencies" resources.ApplyResources(Me.mnuDescribeOneVariableFrequencies, "mnuDescribeOneVariableFrequencies") ' - 'RatingDataToolStripMenuItem + 'mnuDescribeOneVariableRatingData ' - Me.RatingDataToolStripMenuItem.Name = "RatingDataToolStripMenuItem" - resources.ApplyResources(Me.RatingDataToolStripMenuItem, "RatingDataToolStripMenuItem") + Me.mnuDescribeOneVariableRatingData.Name = "mnuDescribeOneVariableRatingData" + resources.ApplyResources(Me.mnuDescribeOneVariableRatingData, "mnuDescribeOneVariableRatingData") ' 'mnuDescribeTwoVariables ' @@ -705,7 +705,7 @@ Partial Class frmMain ' 'mnuDescribeSpecific ' - Me.mnuDescribeSpecific.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuDescribeSpecificFrequency, Me.mnuDescribeSpecificSummary, Me.mnuDescribeSpecificMultipleResponse, Me.ToolStripSeparator26, Me.mnuDescribeSpecificScatterPlot, Me.mnuDescribeSpecificLinePlot, Me.mnuDescribeSpecificHistogram, Me.mnuDescribeSpecificBoxplot, Me.mnuDescribeSpecificDotPlot, Me.mnuDescribeSpecificRugPlot, Me.mnuDescribeSpecificBarChart, Me.CummulativeDistributionToolStripMenuItem, Me.mnuDescribeSpecificParallelCoordinatePlot, Me.mnuDescribeSpecificMosaic}) + Me.mnuDescribeSpecific.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuDescribeSpecificFrequency, Me.mnuDescribeSpecificSummary, Me.mnuDescribeSpecificMultipleResponse, Me.ToolStripSeparator26, Me.mnuDescribeSpecificScatterPlot, Me.mnuDescribeSpecificLinePlot, Me.mnuDescribeSpecificHistogram, Me.mnuDescribeSpecificBoxplot, Me.mnuDescribeSpecificDotPlot, Me.mnuDescribeSpecificRugPlot, Me.mnuDescribeSpecificBarChart, Me.mnuDescribeSpecificCummulativeDistribution, Me.mnuDescribeSpecificParallelCoordinatePlot, Me.mnuDescribeSpecificMosaic}) Me.mnuDescribeSpecific.Name = "mnuDescribeSpecific" resources.ApplyResources(Me.mnuDescribeSpecific, "mnuDescribeSpecific") Me.mnuDescribeSpecific.Tag = "Table_Dialogs" @@ -774,10 +774,10 @@ Partial Class frmMain resources.ApplyResources(Me.mnuDescribeSpecificBarChart, "mnuDescribeSpecificBarChart") Me.mnuDescribeSpecificBarChart.Tag = "Bar_Chart" ' - 'CummulativeDistributionToolStripMenuItem + 'mnuDescribeSpecificCummulativeDistribution ' - Me.CummulativeDistributionToolStripMenuItem.Name = "CummulativeDistributionToolStripMenuItem" - resources.ApplyResources(Me.CummulativeDistributionToolStripMenuItem, "CummulativeDistributionToolStripMenuItem") + Me.mnuDescribeSpecificCummulativeDistribution.Name = "mnuDescribeSpecificCummulativeDistribution" + resources.ApplyResources(Me.mnuDescribeSpecificCummulativeDistribution, "mnuDescribeSpecificCummulativeDistribution") ' 'mnuDescribeSpecificParallelCoordinatePlot ' @@ -791,7 +791,7 @@ Partial Class frmMain ' 'mnuDescribeGeneral ' - Me.mnuDescribeGeneral.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuDescribeGeneralColumnSummaries, Me.DescribeGeneralTabulation, Me.DescribeGeneralGraphics, Me.ToolStripSeparator38, Me.FrequencyTablesToolStripMenuItem}) + Me.mnuDescribeGeneral.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuDescribeGeneralColumnSummaries, Me.mnuDescribeGeneralTabulation, Me.mnuDescribeGeneralGraphics, Me.ToolStripSeparator38, Me.mnuDescribeGeneralUseSummaries}) Me.mnuDescribeGeneral.Name = "mnuDescribeGeneral" resources.ApplyResources(Me.mnuDescribeGeneral, "mnuDescribeGeneral") Me.mnuDescribeGeneral.Tag = "General" @@ -802,27 +802,27 @@ Partial Class frmMain resources.ApplyResources(Me.mnuDescribeGeneralColumnSummaries, "mnuDescribeGeneralColumnSummaries") Me.mnuDescribeGeneralColumnSummaries.Tag = "Column_Summaries..." ' - 'DescribeGeneralTabulation + 'mnuDescribeGeneralTabulation ' - resources.ApplyResources(Me.DescribeGeneralTabulation, "DescribeGeneralTabulation") - Me.DescribeGeneralTabulation.Name = "DescribeGeneralTabulation" - Me.DescribeGeneralTabulation.Tag = "Tabulation..." + resources.ApplyResources(Me.mnuDescribeGeneralTabulation, "mnuDescribeGeneralTabulation") + Me.mnuDescribeGeneralTabulation.Name = "mnuDescribeGeneralTabulation" + Me.mnuDescribeGeneralTabulation.Tag = "Tabulation..." ' - 'DescribeGeneralGraphics + 'mnuDescribeGeneralGraphics ' - Me.DescribeGeneralGraphics.Name = "DescribeGeneralGraphics" - resources.ApplyResources(Me.DescribeGeneralGraphics, "DescribeGeneralGraphics") - Me.DescribeGeneralGraphics.Tag = "Graphics..." + Me.mnuDescribeGeneralGraphics.Name = "mnuDescribeGeneralGraphics" + resources.ApplyResources(Me.mnuDescribeGeneralGraphics, "mnuDescribeGeneralGraphics") + Me.mnuDescribeGeneralGraphics.Tag = "Graphics..." ' 'ToolStripSeparator38 ' Me.ToolStripSeparator38.Name = "ToolStripSeparator38" resources.ApplyResources(Me.ToolStripSeparator38, "ToolStripSeparator38") ' - 'FrequencyTablesToolStripMenuItem + 'mnuDescribeGeneralUseSummaries ' - Me.FrequencyTablesToolStripMenuItem.Name = "FrequencyTablesToolStripMenuItem" - resources.ApplyResources(Me.FrequencyTablesToolStripMenuItem, "FrequencyTablesToolStripMenuItem") + Me.mnuDescribeGeneralUseSummaries.Name = "mnuDescribeGeneralUseSummaries" + resources.ApplyResources(Me.mnuDescribeGeneralUseSummaries, "mnuDescribeGeneralUseSummaries") ' 'ToolStripSeparator9 ' @@ -877,7 +877,7 @@ Partial Class frmMain ' 'mnuModel ' - Me.mnuModel.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuModelProbabilityDistributions, Me.ToolStripSeparator3, Me.mnuModelOneVariable, Me.mnuModelTwoVariables, Me.mnuModelThreeVariables, Me.mnuModelFourVariables, Me.mnuModelGeneral, Me.ToolStripSeparator4, Me.mnuModelHypothesisTests, Me.mnuModelModel, Me.UseModelToolStripMenuItem, Me.mnuModelOtherOneVariable, Me.mnuModelOtherTwoVariables, Me.mnuModelOtherThreeVariables, Me.mnuModelOtherGeneral}) + Me.mnuModel.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuModelProbabilityDistributions, Me.ToolStripSeparator3, Me.mnuModelOneVariable, Me.mnuModelTwoVariables, Me.mnuModelThreeVariables, Me.mnuModelFourVariables, Me.mnuModelGeneral, Me.ToolStripSeparator4, Me.mnuModelHypothesisTests, Me.mnuModelModel, Me.mnuModelUseModel, Me.mnuModelOtherOneVariable, Me.mnuModelOtherTwoVariables, Me.mnuModelOtherThreeVariables, Me.mnuModelOtherGeneral}) Me.mnuModel.Name = "mnuModel" resources.ApplyResources(Me.mnuModel, "mnuModel") Me.mnuModel.Tag = "Model" @@ -1051,10 +1051,10 @@ Partial Class frmMain Me.mnuModelModel.Name = "mnuModelModel" resources.ApplyResources(Me.mnuModelModel, "mnuModelModel") ' - 'UseModelToolStripMenuItem + 'mnuModelUseModel ' - Me.UseModelToolStripMenuItem.Name = "UseModelToolStripMenuItem" - resources.ApplyResources(Me.UseModelToolStripMenuItem, "UseModelToolStripMenuItem") + Me.mnuModelUseModel.Name = "mnuModelUseModel" + resources.ApplyResources(Me.mnuModelUseModel, "mnuModelUseModel") ' 'mnuModelOtherOneVariable ' @@ -1213,20 +1213,20 @@ Partial Class frmMain ' 'mnuClimaticCrop ' - Me.mnuClimaticCrop.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CropCoefficientsToolStripMenuItem, Me.WaterSatisfactionIndexToolStripMenuItem}) + Me.mnuClimaticCrop.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticCropCropCoefficients, Me.mnuClimaticCropWaterSatisfactionIndex}) Me.mnuClimaticCrop.Name = "mnuClimaticCrop" resources.ApplyResources(Me.mnuClimaticCrop, "mnuClimaticCrop") Me.mnuClimaticCrop.Tag = "Crop" ' - 'CropCoefficientsToolStripMenuItem + 'mnuClimaticCropCropCoefficients ' - resources.ApplyResources(Me.CropCoefficientsToolStripMenuItem, "CropCoefficientsToolStripMenuItem") - Me.CropCoefficientsToolStripMenuItem.Name = "CropCoefficientsToolStripMenuItem" + resources.ApplyResources(Me.mnuClimaticCropCropCoefficients, "mnuClimaticCropCropCoefficients") + Me.mnuClimaticCropCropCoefficients.Name = "mnuClimaticCropCropCoefficients" ' - 'WaterSatisfactionIndexToolStripMenuItem + 'mnuClimaticCropWaterSatisfactionIndex ' - resources.ApplyResources(Me.WaterSatisfactionIndexToolStripMenuItem, "WaterSatisfactionIndexToolStripMenuItem") - Me.WaterSatisfactionIndexToolStripMenuItem.Name = "WaterSatisfactionIndexToolStripMenuItem" + resources.ApplyResources(Me.mnuClimaticCropWaterSatisfactionIndex, "mnuClimaticCropWaterSatisfactionIndex") + Me.mnuClimaticCropWaterSatisfactionIndex.Name = "mnuClimaticCropWaterSatisfactionIndex" ' 'mnuClimaticHeatSum ' @@ -1310,7 +1310,7 @@ Partial Class frmMain ' 'mnuHelp ' - Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuHelpHelpIntroduction, Me.mnuHelpHistFAQ, Me.mnuHelpGetingStarted, Me.ToolStripSeparator28, Me.mnuHelpWindows, Me.mnuHelpDataViewSpreadsheet, Me.mnuHelpMenus, Me.mnuHelpR, Me.mnuHelpRPackagesCommands, Me.mnuHelpDataset, Me.ToolStripSeparator29, Me.mnuHelpGuide, Me.mnuHelpAboutRInstat, Me.mnuHelpLicence, Me.mnuHelpAcknowledgments}) + Me.mnuHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuHelpHelpIntroduction, Me.mnuHelpHistFAQ, Me.mnuHelpGetingStarted, Me.ToolStripSeparator28, Me.mnuHelpWindows, Me.mnuHelpDataViewSpreadsheet, Me.mnuHelpMenus, Me.mnuHelpAboutR, Me.mnuHelpRPackagesCommands, Me.mnuHelpDataset, Me.ToolStripSeparator29, Me.mnuHelpGuide, Me.mnuHelpAboutRInstat, Me.mnuHelpLicence, Me.mnuHelpAcknowledgments}) Me.mnuHelp.Name = "mnuHelp" resources.ApplyResources(Me.mnuHelp, "mnuHelp") Me.mnuHelp.Tag = "Help" @@ -1350,10 +1350,10 @@ Partial Class frmMain Me.mnuHelpMenus.Name = "mnuHelpMenus" resources.ApplyResources(Me.mnuHelpMenus, "mnuHelpMenus") ' - 'mnuHelpR + 'mnuHelpAboutR ' - Me.mnuHelpR.Name = "mnuHelpR" - resources.ApplyResources(Me.mnuHelpR, "mnuHelpR") + Me.mnuHelpAboutR.Name = "mnuHelpAboutR" + resources.ApplyResources(Me.mnuHelpAboutR, "mnuHelpAboutR") ' 'mnuHelpRPackagesCommands ' @@ -1415,7 +1415,7 @@ Partial Class frmMain ' 'mnuClimatic ' - Me.mnuClimatic.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticFile, Me.ToolStripSeparator18, Me.mnuClimaticTidyandExamine, Me.mnuClimaticDates, Me.mnuClimaticDefineClimaticData, Me.mnuClimaticCheckData, Me.mnuClimaticPrepare, Me.ToolStripSeparator30, Me.mnuClimaticDescribe, Me.mnuClimaticPICSA, Me.mnuCMSAF, Me.mnuClimaticMapping, Me.ToolStripSeparator16, Me.mnuClimaticModels, Me.mnuClimaticExamine, Me.mnuClimaticProcess, Me.ToolStripSeparator23, Me.mnuClimaticSCF, Me.mnuClimaticEvaporation, Me.mnuClimaticCrop, Me.mnuClimaticHeatSum, Me.mnuClimateMethods}) + Me.mnuClimatic.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticFile, Me.ToolStripSeparator18, Me.mnuClimaticTidyandExamine, Me.mnuClimaticDates, Me.mnuClimaticDefineClimaticData, Me.mnuClimaticCheckData, Me.mnuClimaticPrepare, Me.ToolStripSeparator30, Me.mnuClimaticDescribe, Me.mnuClimaticPICSA, Me.mnuCMSAF, Me.mnuClimaticMapping, Me.ToolStripSeparator16, Me.mnuClimaticModel, Me.mnuClimaticExamine, Me.mnuClimaticProcess, Me.ToolStripSeparator23, Me.mnuClimaticSCF, Me.mnuClimaticEvaporation, Me.mnuClimaticCrop, Me.mnuClimaticHeatSum, Me.mnuClimaticClimateMethods}) Me.mnuClimatic.Name = "mnuClimatic" resources.ApplyResources(Me.mnuClimatic, "mnuClimatic") Me.mnuClimatic.Tag = "Climatic" @@ -1605,6 +1605,11 @@ Partial Class frmMain Me.mnuClimaticCheckDataBoxplot.Name = "mnuClimaticCheckDataBoxplot" resources.ApplyResources(Me.mnuClimaticCheckDataBoxplot, "mnuClimaticCheckDataBoxplot") ' + 'mnuClimaticCheckDataQCTemperatures + ' + Me.mnuClimaticCheckDataQCTemperatures.Name = "mnuClimaticCheckDataQCTemperatures" + resources.ApplyResources(Me.mnuClimaticCheckDataQCTemperatures, "mnuClimaticCheckDataQCTemperatures") + ' 'mnuClimaticCheckDataQCRainfall ' Me.mnuClimaticCheckDataQCRainfall.Name = "mnuClimaticCheckDataQCRainfall" @@ -1787,7 +1792,7 @@ Partial Class frmMain ' 'mnuClimaticPICSA ' - Me.mnuClimaticPICSA.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticPICSARainfall, Me.mnuCumExeedenceGraph, Me.mnuClimaticPICSATemperature, Me.mnuClimaticPICSACrops}) + Me.mnuClimaticPICSA.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticPICSARainfall, Me.mnuClimaticPICSACumExeedenceGraph, Me.mnuClimaticPICSATemperature, Me.mnuClimaticPICSACrops}) Me.mnuClimaticPICSA.Name = "mnuClimaticPICSA" resources.ApplyResources(Me.mnuClimaticPICSA, "mnuClimaticPICSA") ' @@ -1796,10 +1801,10 @@ Partial Class frmMain Me.mnuClimaticPICSARainfall.Name = "mnuClimaticPICSARainfall" resources.ApplyResources(Me.mnuClimaticPICSARainfall, "mnuClimaticPICSARainfall") ' - 'mnuCumExeedenceGraph + 'mnuClimaticPICSACumExeedenceGraph ' - Me.mnuCumExeedenceGraph.Name = "mnuCumExeedenceGraph" - resources.ApplyResources(Me.mnuCumExeedenceGraph, "mnuCumExeedenceGraph") + Me.mnuClimaticPICSACumExeedenceGraph.Name = "mnuClimaticPICSACumExeedenceGraph" + resources.ApplyResources(Me.mnuClimaticPICSACumExeedenceGraph, "mnuClimaticPICSACumExeedenceGraph") ' 'mnuClimaticPICSATemperature ' @@ -1832,27 +1837,27 @@ Partial Class frmMain Me.mnuClimaticMapping.Name = "mnuClimaticMapping" resources.ApplyResources(Me.mnuClimaticMapping, "mnuClimaticMapping") ' - 'mnuClimaticModels + 'mnuClimaticModel ' - Me.mnuClimaticModels.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticModelsExtremes, Me.mnuClimaticModelsCircular, Me.mnuClimaticModelsMarkovModelling}) - Me.mnuClimaticModels.Name = "mnuClimaticModels" - resources.ApplyResources(Me.mnuClimaticModels, "mnuClimaticModels") + Me.mnuClimaticModel.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticModelsExtremes, Me.mnuClimaticModelCircular, Me.mnuClimaticModelMarkovModelling}) + Me.mnuClimaticModel.Name = "mnuClimaticModel" + resources.ApplyResources(Me.mnuClimaticModel, "mnuClimaticModel") ' 'mnuClimaticModelsExtremes ' Me.mnuClimaticModelsExtremes.Name = "mnuClimaticModelsExtremes" resources.ApplyResources(Me.mnuClimaticModelsExtremes, "mnuClimaticModelsExtremes") ' - 'mnuClimaticModelsCircular + 'mnuClimaticModelCircular ' - resources.ApplyResources(Me.mnuClimaticModelsCircular, "mnuClimaticModelsCircular") - Me.mnuClimaticModelsCircular.Name = "mnuClimaticModelsCircular" + resources.ApplyResources(Me.mnuClimaticModelCircular, "mnuClimaticModelCircular") + Me.mnuClimaticModelCircular.Name = "mnuClimaticModelCircular" ' - 'mnuClimaticModelsMarkovModelling + 'mnuClimaticModelMarkovModelling ' - Me.mnuClimaticModelsMarkovModelling.Name = "mnuClimaticModelsMarkovModelling" - resources.ApplyResources(Me.mnuClimaticModelsMarkovModelling, "mnuClimaticModelsMarkovModelling") - Me.mnuClimaticModelsMarkovModelling.Tag = "Markov_Modelling" + Me.mnuClimaticModelMarkovModelling.Name = "mnuClimaticModelMarkovModelling" + resources.ApplyResources(Me.mnuClimaticModelMarkovModelling, "mnuClimaticModelMarkovModelling") + Me.mnuClimaticModelMarkovModelling.Tag = "Markov_Modelling" ' 'ToolStripSeparator23 ' @@ -1901,97 +1906,97 @@ Partial Class frmMain Me.mnuClimaticSCFSupportCumulativeExceedanceGraph.Name = "mnuClimaticSCFSupportCumulativeExceedanceGraph" resources.ApplyResources(Me.mnuClimaticSCFSupportCumulativeExceedanceGraph, "mnuClimaticSCFSupportCumulativeExceedanceGraph") ' - 'mnuClimateMethods + 'mnuClimaticClimateMethods ' - Me.mnuClimateMethods.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimateMethodsDataManipulation, Me.mnuClimateMethodsGraphics, Me.mnuClimateMethodsModel, Me.mnuClimateMethodsAdditional, Me.mnuClimateMethodsCreateClimateObject}) - Me.mnuClimateMethods.Name = "mnuClimateMethods" - resources.ApplyResources(Me.mnuClimateMethods, "mnuClimateMethods") - Me.mnuClimateMethods.Tag = "Climatic_Methods" + Me.mnuClimaticClimateMethods.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticClimateMethodsDataManipulation, Me.mnuClimaticClimateMethodsGraphics, Me.mnuClimaticClimateMethodsModel, Me.mnuClimaticClimateMethodsAdditional, Me.mnuClimateMethodsCreateClimateObject}) + Me.mnuClimaticClimateMethods.Name = "mnuClimaticClimateMethods" + resources.ApplyResources(Me.mnuClimaticClimateMethods, "mnuClimaticClimateMethods") + Me.mnuClimaticClimateMethods.Tag = "Climatic_Methods" ' - 'mnuClimateMethodsDataManipulation + 'mnuClimaticClimateMethodsDataManipulation ' - Me.mnuClimateMethodsDataManipulation.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimateMethodsDataManipulationStartOfRain, Me.mnuClimateMethodsDataManipulationEndOfRain, Me.mnuClimateMethodsDataManipulationChangeFormatDayMonth, Me.mnuClimateMethodsDataManipulationExportCPTToTabular, Me.mnuClimateMethodsDataManipulationDayMonth, Me.mnuClimateMethodsDataManipulationDisplayDaily, Me.mnuClimateMethodsDataManipulationDisplayDOYOfYear, Me.mnuClimateMethodsDataManipulationDisplayRainRunningTotal, Me.mnuClimateMethodsDataManipulationDisplaySpellLength, Me.mnuClimateMethodsDataManipulationExportForPICSA, Me.mnuClimateMethodsDataManipulationExtremeEvents, Me.mnuClimateMethodsDataManipulationMissingData, Me.mnuClimateMethodsDataManipulationMissingDataTable, Me.mnuClimateMethodsDataManipulationMonthlySummaries, Me.mnuClimateMethodsDataManipulationOutputForCD}) - Me.mnuClimateMethodsDataManipulation.Name = "mnuClimateMethodsDataManipulation" - resources.ApplyResources(Me.mnuClimateMethodsDataManipulation, "mnuClimateMethodsDataManipulation") - Me.mnuClimateMethodsDataManipulation.Tag = "Data_Manipulation" + Me.mnuClimaticClimateMethodsDataManipulation.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticClimateMethodsDataManipulationStartOfRain, Me.mnuClimaticClimateMethodsDataManipulationEndOfRain, Me.mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth, Me.mnuClimaticClimateMethodsDataManipulationExportCPTToTabular, Me.mnuClimaticClimateMethodsDataManipulationDayMonth, Me.mnuClimaticClimateMethodsDataManipulationDisplayDaily, Me.mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear, Me.mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal, Me.mnuClimaticClimateMethodsDataManipulationDisplaySpellLength, Me.mnuClimaticClimateMethodsDataManipulationExportForPICSA, Me.mnuClimaticClimateMethodsDataManipulationExtremeEvents, Me.mnuClimaticClimateMethodsDataManipulationMissingData, Me.mnuClimaticClimateMethodsDataManipulationMissingDataTable, Me.mnuClimateMethodsDataManipulationMonthlySummaries, Me.mnuClimateMethodsDataManipulationOutputForCD}) + Me.mnuClimaticClimateMethodsDataManipulation.Name = "mnuClimaticClimateMethodsDataManipulation" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulation, "mnuClimaticClimateMethodsDataManipulation") + Me.mnuClimaticClimateMethodsDataManipulation.Tag = "Data_Manipulation" ' - 'mnuClimateMethodsDataManipulationStartOfRain + 'mnuClimaticClimateMethodsDataManipulationStartOfRain ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationStartOfRain, "mnuClimateMethodsDataManipulationStartOfRain") - Me.mnuClimateMethodsDataManipulationStartOfRain.Name = "mnuClimateMethodsDataManipulationStartOfRain" - Me.mnuClimateMethodsDataManipulationStartOfRain.Tag = "Start_of_Rain" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationStartOfRain, "mnuClimaticClimateMethodsDataManipulationStartOfRain") + Me.mnuClimaticClimateMethodsDataManipulationStartOfRain.Name = "mnuClimaticClimateMethodsDataManipulationStartOfRain" + Me.mnuClimaticClimateMethodsDataManipulationStartOfRain.Tag = "Start_of_Rain" ' - 'mnuClimateMethodsDataManipulationEndOfRain + 'mnuClimaticClimateMethodsDataManipulationEndOfRain ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationEndOfRain, "mnuClimateMethodsDataManipulationEndOfRain") - Me.mnuClimateMethodsDataManipulationEndOfRain.Name = "mnuClimateMethodsDataManipulationEndOfRain" - Me.mnuClimateMethodsDataManipulationEndOfRain.Tag = "End_of_Rain" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationEndOfRain, "mnuClimaticClimateMethodsDataManipulationEndOfRain") + Me.mnuClimaticClimateMethodsDataManipulationEndOfRain.Name = "mnuClimaticClimateMethodsDataManipulationEndOfRain" + Me.mnuClimaticClimateMethodsDataManipulationEndOfRain.Tag = "End_of_Rain" ' - 'mnuClimateMethodsDataManipulationChangeFormatDayMonth + 'mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationChangeFormatDayMonth, "mnuClimateMethodsDataManipulationChangeFormatDayMonth") - Me.mnuClimateMethodsDataManipulationChangeFormatDayMonth.Name = "mnuClimateMethodsDataManipulationChangeFormatDayMonth" - Me.mnuClimateMethodsDataManipulationChangeFormatDayMonth.Tag = "Change_Format_Month" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth, "mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth") + Me.mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth.Name = "mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth" + Me.mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth.Tag = "Change_Format_Month" ' - 'mnuClimateMethodsDataManipulationExportCPTToTabular + 'mnuClimaticClimateMethodsDataManipulationExportCPTToTabular ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationExportCPTToTabular, "mnuClimateMethodsDataManipulationExportCPTToTabular") - Me.mnuClimateMethodsDataManipulationExportCPTToTabular.Name = "mnuClimateMethodsDataManipulationExportCPTToTabular" - Me.mnuClimateMethodsDataManipulationExportCPTToTabular.Tag = "Expot_CPT_to_Tabular" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationExportCPTToTabular, "mnuClimaticClimateMethodsDataManipulationExportCPTToTabular") + Me.mnuClimaticClimateMethodsDataManipulationExportCPTToTabular.Name = "mnuClimaticClimateMethodsDataManipulationExportCPTToTabular" + Me.mnuClimaticClimateMethodsDataManipulationExportCPTToTabular.Tag = "Expot_CPT_to_Tabular" ' - 'mnuClimateMethodsDataManipulationDayMonth + 'mnuClimaticClimateMethodsDataManipulationDayMonth ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationDayMonth, "mnuClimateMethodsDataManipulationDayMonth") - Me.mnuClimateMethodsDataManipulationDayMonth.Name = "mnuClimateMethodsDataManipulationDayMonth" - Me.mnuClimateMethodsDataManipulationDayMonth.Tag = "Day_Month" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationDayMonth, "mnuClimaticClimateMethodsDataManipulationDayMonth") + Me.mnuClimaticClimateMethodsDataManipulationDayMonth.Name = "mnuClimaticClimateMethodsDataManipulationDayMonth" + Me.mnuClimaticClimateMethodsDataManipulationDayMonth.Tag = "Day_Month" ' - 'mnuClimateMethodsDataManipulationDisplayDaily + 'mnuClimaticClimateMethodsDataManipulationDisplayDaily ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationDisplayDaily, "mnuClimateMethodsDataManipulationDisplayDaily") - Me.mnuClimateMethodsDataManipulationDisplayDaily.Name = "mnuClimateMethodsDataManipulationDisplayDaily" - Me.mnuClimateMethodsDataManipulationDisplayDaily.Tag = "Display_Daily" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationDisplayDaily, "mnuClimaticClimateMethodsDataManipulationDisplayDaily") + Me.mnuClimaticClimateMethodsDataManipulationDisplayDaily.Name = "mnuClimaticClimateMethodsDataManipulationDisplayDaily" + Me.mnuClimaticClimateMethodsDataManipulationDisplayDaily.Tag = "Display_Daily" ' - 'mnuClimateMethodsDataManipulationDisplayDOYOfYear + 'mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationDisplayDOYOfYear, "mnuClimateMethodsDataManipulationDisplayDOYOfYear") - Me.mnuClimateMethodsDataManipulationDisplayDOYOfYear.Name = "mnuClimateMethodsDataManipulationDisplayDOYOfYear" - Me.mnuClimateMethodsDataManipulationDisplayDOYOfYear.Tag = "Display_DOY_of_Year" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear, "mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear") + Me.mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear.Name = "mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear" + Me.mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear.Tag = "Display_DOY_of_Year" ' - 'mnuClimateMethodsDataManipulationDisplayRainRunningTotal + 'mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationDisplayRainRunningTotal, "mnuClimateMethodsDataManipulationDisplayRainRunningTotal") - Me.mnuClimateMethodsDataManipulationDisplayRainRunningTotal.Name = "mnuClimateMethodsDataManipulationDisplayRainRunningTotal" - Me.mnuClimateMethodsDataManipulationDisplayRainRunningTotal.Tag = "Display_Rain_Running_Total" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal, "mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal") + Me.mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal.Name = "mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal" + Me.mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal.Tag = "Display_Rain_Running_Total" ' - 'mnuClimateMethodsDataManipulationDisplaySpellLength + 'mnuClimaticClimateMethodsDataManipulationDisplaySpellLength ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationDisplaySpellLength, "mnuClimateMethodsDataManipulationDisplaySpellLength") - Me.mnuClimateMethodsDataManipulationDisplaySpellLength.Name = "mnuClimateMethodsDataManipulationDisplaySpellLength" - Me.mnuClimateMethodsDataManipulationDisplaySpellLength.Tag = "Display_Spell_length" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationDisplaySpellLength, "mnuClimaticClimateMethodsDataManipulationDisplaySpellLength") + Me.mnuClimaticClimateMethodsDataManipulationDisplaySpellLength.Name = "mnuClimaticClimateMethodsDataManipulationDisplaySpellLength" + Me.mnuClimaticClimateMethodsDataManipulationDisplaySpellLength.Tag = "Display_Spell_length" ' - 'mnuClimateMethodsDataManipulationExportForPICSA + 'mnuClimaticClimateMethodsDataManipulationExportForPICSA ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationExportForPICSA, "mnuClimateMethodsDataManipulationExportForPICSA") - Me.mnuClimateMethodsDataManipulationExportForPICSA.Name = "mnuClimateMethodsDataManipulationExportForPICSA" - Me.mnuClimateMethodsDataManipulationExportForPICSA.Tag = "Export_for_PICSA" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationExportForPICSA, "mnuClimaticClimateMethodsDataManipulationExportForPICSA") + Me.mnuClimaticClimateMethodsDataManipulationExportForPICSA.Name = "mnuClimaticClimateMethodsDataManipulationExportForPICSA" + Me.mnuClimaticClimateMethodsDataManipulationExportForPICSA.Tag = "Export_for_PICSA" ' - 'mnuClimateMethodsDataManipulationExtremeEvents + 'mnuClimaticClimateMethodsDataManipulationExtremeEvents ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationExtremeEvents, "mnuClimateMethodsDataManipulationExtremeEvents") - Me.mnuClimateMethodsDataManipulationExtremeEvents.Name = "mnuClimateMethodsDataManipulationExtremeEvents" - Me.mnuClimateMethodsDataManipulationExtremeEvents.Tag = "Extreme_Events" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationExtremeEvents, "mnuClimaticClimateMethodsDataManipulationExtremeEvents") + Me.mnuClimaticClimateMethodsDataManipulationExtremeEvents.Name = "mnuClimaticClimateMethodsDataManipulationExtremeEvents" + Me.mnuClimaticClimateMethodsDataManipulationExtremeEvents.Tag = "Extreme_Events" ' - 'mnuClimateMethodsDataManipulationMissingData + 'mnuClimaticClimateMethodsDataManipulationMissingData ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationMissingData, "mnuClimateMethodsDataManipulationMissingData") - Me.mnuClimateMethodsDataManipulationMissingData.Name = "mnuClimateMethodsDataManipulationMissingData" - Me.mnuClimateMethodsDataManipulationMissingData.Tag = "Missing_Data" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationMissingData, "mnuClimaticClimateMethodsDataManipulationMissingData") + Me.mnuClimaticClimateMethodsDataManipulationMissingData.Name = "mnuClimaticClimateMethodsDataManipulationMissingData" + Me.mnuClimaticClimateMethodsDataManipulationMissingData.Tag = "Missing_Data" ' - 'mnuClimateMethodsDataManipulationMissingDataTable + 'mnuClimaticClimateMethodsDataManipulationMissingDataTable ' - resources.ApplyResources(Me.mnuClimateMethodsDataManipulationMissingDataTable, "mnuClimateMethodsDataManipulationMissingDataTable") - Me.mnuClimateMethodsDataManipulationMissingDataTable.Name = "mnuClimateMethodsDataManipulationMissingDataTable" - Me.mnuClimateMethodsDataManipulationMissingDataTable.Tag = "Missing_Data_Table" + resources.ApplyResources(Me.mnuClimaticClimateMethodsDataManipulationMissingDataTable, "mnuClimaticClimateMethodsDataManipulationMissingDataTable") + Me.mnuClimaticClimateMethodsDataManipulationMissingDataTable.Name = "mnuClimaticClimateMethodsDataManipulationMissingDataTable" + Me.mnuClimaticClimateMethodsDataManipulationMissingDataTable.Tag = "Missing_Data_Table" ' 'mnuClimateMethodsDataManipulationMonthlySummaries ' @@ -2005,78 +2010,78 @@ Partial Class frmMain Me.mnuClimateMethodsDataManipulationOutputForCD.Name = "mnuClimateMethodsDataManipulationOutputForCD" Me.mnuClimateMethodsDataManipulationOutputForCD.Tag = "Output_for_CDT" ' - 'mnuClimateMethodsGraphics + 'mnuClimaticClimateMethodsGraphics ' - Me.mnuClimateMethodsGraphics.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimateMethodsGraphicsClipBoxPlot, Me.mnuClimateMethodsGraphicsCliplot, Me.mnuClimateMethodsGraphicsMissingValues, Me.mnuClimateMethodsGraphicsHistogram, Me.mnuClimateMethodsGraphicsCumExceedance, Me.mnuClimateMethodsGraphicsBoxplot, Me.mnuClimateMethodsGraphicsInventory, Me.mnuClimateMethodsGraphicsAnnualRainfall, Me.mnuClimateMethodsGraphicsRainCount, Me.mnuClimateMethodsGraphicsTimeseries, Me.mnuClimateMethodsGraphicsWindrose, Me.mnuClimateMethodsGraphicsMultipleLines, Me.mnuClmateMethodThreeSummaries}) - Me.mnuClimateMethodsGraphics.Name = "mnuClimateMethodsGraphics" - resources.ApplyResources(Me.mnuClimateMethodsGraphics, "mnuClimateMethodsGraphics") - Me.mnuClimateMethodsGraphics.Tag = "Graphics" + Me.mnuClimaticClimateMethodsGraphics.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticClimateMethodsGraphicsClipBoxPlot, Me.mnuClimaticClimateMethodsGraphicsCliplot, Me.mnuClimaticClimateMethodsGraphicsMissingValues, Me.mnuClimaticClimateMethodsGraphicsHistogram, Me.mnuClimaticClimateMethodsGraphicsCumExceedance, Me.mnuClimaticClimateMethodsGraphicsBoxplot, Me.mnuClimaticClimateMethodsGraphicsInventory, Me.mnuClimaticClimateMethodsGraphicsAnnualRainfall, Me.mnuClimaticClimateMethodsGraphicsRainCount, Me.mnuClimaticClimateMethodsGraphicsTimeseries, Me.mnuClimaticClimateMethodsGraphicsWindrose, Me.mnuClimateMethodsGraphicsMultipleLines, Me.mnuClmateMethodThreeSummaries}) + Me.mnuClimaticClimateMethodsGraphics.Name = "mnuClimaticClimateMethodsGraphics" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphics, "mnuClimaticClimateMethodsGraphics") + Me.mnuClimaticClimateMethodsGraphics.Tag = "Graphics" ' - 'mnuClimateMethodsGraphicsClipBoxPlot + 'mnuClimaticClimateMethodsGraphicsClipBoxPlot ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsClipBoxPlot, "mnuClimateMethodsGraphicsClipBoxPlot") - Me.mnuClimateMethodsGraphicsClipBoxPlot.Name = "mnuClimateMethodsGraphicsClipBoxPlot" - Me.mnuClimateMethodsGraphicsClipBoxPlot.Tag = "Cliboxplot" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsClipBoxPlot, "mnuClimaticClimateMethodsGraphicsClipBoxPlot") + Me.mnuClimaticClimateMethodsGraphicsClipBoxPlot.Name = "mnuClimaticClimateMethodsGraphicsClipBoxPlot" + Me.mnuClimaticClimateMethodsGraphicsClipBoxPlot.Tag = "Cliboxplot" ' - 'mnuClimateMethodsGraphicsCliplot + 'mnuClimaticClimateMethodsGraphicsCliplot ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsCliplot, "mnuClimateMethodsGraphicsCliplot") - Me.mnuClimateMethodsGraphicsCliplot.Name = "mnuClimateMethodsGraphicsCliplot" - Me.mnuClimateMethodsGraphicsCliplot.Tag = "Cliplot" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsCliplot, "mnuClimaticClimateMethodsGraphicsCliplot") + Me.mnuClimaticClimateMethodsGraphicsCliplot.Name = "mnuClimaticClimateMethodsGraphicsCliplot" + Me.mnuClimaticClimateMethodsGraphicsCliplot.Tag = "Cliplot" ' - 'mnuClimateMethodsGraphicsMissingValues + 'mnuClimaticClimateMethodsGraphicsMissingValues ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsMissingValues, "mnuClimateMethodsGraphicsMissingValues") - Me.mnuClimateMethodsGraphicsMissingValues.Name = "mnuClimateMethodsGraphicsMissingValues" - Me.mnuClimateMethodsGraphicsMissingValues.Tag = "Missing_values" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsMissingValues, "mnuClimaticClimateMethodsGraphicsMissingValues") + Me.mnuClimaticClimateMethodsGraphicsMissingValues.Name = "mnuClimaticClimateMethodsGraphicsMissingValues" + Me.mnuClimaticClimateMethodsGraphicsMissingValues.Tag = "Missing_values" ' - 'mnuClimateMethodsGraphicsHistogram + 'mnuClimaticClimateMethodsGraphicsHistogram ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsHistogram, "mnuClimateMethodsGraphicsHistogram") - Me.mnuClimateMethodsGraphicsHistogram.Name = "mnuClimateMethodsGraphicsHistogram" - Me.mnuClimateMethodsGraphicsHistogram.Tag = "Histogram" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsHistogram, "mnuClimaticClimateMethodsGraphicsHistogram") + Me.mnuClimaticClimateMethodsGraphicsHistogram.Name = "mnuClimaticClimateMethodsGraphicsHistogram" + Me.mnuClimaticClimateMethodsGraphicsHistogram.Tag = "Histogram" ' - 'mnuClimateMethodsGraphicsCumExceedance + 'mnuClimaticClimateMethodsGraphicsCumExceedance ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsCumExceedance, "mnuClimateMethodsGraphicsCumExceedance") - Me.mnuClimateMethodsGraphicsCumExceedance.Name = "mnuClimateMethodsGraphicsCumExceedance" - Me.mnuClimateMethodsGraphicsCumExceedance.Tag = "Cumulative_Exceedence" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsCumExceedance, "mnuClimaticClimateMethodsGraphicsCumExceedance") + Me.mnuClimaticClimateMethodsGraphicsCumExceedance.Name = "mnuClimaticClimateMethodsGraphicsCumExceedance" + Me.mnuClimaticClimateMethodsGraphicsCumExceedance.Tag = "Cumulative_Exceedence" ' - 'mnuClimateMethodsGraphicsBoxplot + 'mnuClimaticClimateMethodsGraphicsBoxplot ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsBoxplot, "mnuClimateMethodsGraphicsBoxplot") - Me.mnuClimateMethodsGraphicsBoxplot.Name = "mnuClimateMethodsGraphicsBoxplot" - Me.mnuClimateMethodsGraphicsBoxplot.Tag = "Boxplot" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsBoxplot, "mnuClimaticClimateMethodsGraphicsBoxplot") + Me.mnuClimaticClimateMethodsGraphicsBoxplot.Name = "mnuClimaticClimateMethodsGraphicsBoxplot" + Me.mnuClimaticClimateMethodsGraphicsBoxplot.Tag = "Boxplot" ' - 'mnuClimateMethodsGraphicsInventory + 'mnuClimaticClimateMethodsGraphicsInventory ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsInventory, "mnuClimateMethodsGraphicsInventory") - Me.mnuClimateMethodsGraphicsInventory.Name = "mnuClimateMethodsGraphicsInventory" - Me.mnuClimateMethodsGraphicsInventory.Tag = "Inventory" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsInventory, "mnuClimaticClimateMethodsGraphicsInventory") + Me.mnuClimaticClimateMethodsGraphicsInventory.Name = "mnuClimaticClimateMethodsGraphicsInventory" + Me.mnuClimaticClimateMethodsGraphicsInventory.Tag = "Inventory" ' - 'mnuClimateMethodsGraphicsAnnualRainfall + 'mnuClimaticClimateMethodsGraphicsAnnualRainfall ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsAnnualRainfall, "mnuClimateMethodsGraphicsAnnualRainfall") - Me.mnuClimateMethodsGraphicsAnnualRainfall.Name = "mnuClimateMethodsGraphicsAnnualRainfall" - Me.mnuClimateMethodsGraphicsAnnualRainfall.Tag = "Annual_rainfall" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsAnnualRainfall, "mnuClimaticClimateMethodsGraphicsAnnualRainfall") + Me.mnuClimaticClimateMethodsGraphicsAnnualRainfall.Name = "mnuClimaticClimateMethodsGraphicsAnnualRainfall" + Me.mnuClimaticClimateMethodsGraphicsAnnualRainfall.Tag = "Annual_rainfall" ' - 'mnuClimateMethodsGraphicsRainCount + 'mnuClimaticClimateMethodsGraphicsRainCount ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsRainCount, "mnuClimateMethodsGraphicsRainCount") - Me.mnuClimateMethodsGraphicsRainCount.Name = "mnuClimateMethodsGraphicsRainCount" - Me.mnuClimateMethodsGraphicsRainCount.Tag = "Rain_count" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsRainCount, "mnuClimaticClimateMethodsGraphicsRainCount") + Me.mnuClimaticClimateMethodsGraphicsRainCount.Name = "mnuClimaticClimateMethodsGraphicsRainCount" + Me.mnuClimaticClimateMethodsGraphicsRainCount.Tag = "Rain_count" ' - 'mnuClimateMethodsGraphicsTimeseries + 'mnuClimaticClimateMethodsGraphicsTimeseries ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsTimeseries, "mnuClimateMethodsGraphicsTimeseries") - Me.mnuClimateMethodsGraphicsTimeseries.Name = "mnuClimateMethodsGraphicsTimeseries" - Me.mnuClimateMethodsGraphicsTimeseries.Tag = "Timeseries" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsTimeseries, "mnuClimaticClimateMethodsGraphicsTimeseries") + Me.mnuClimaticClimateMethodsGraphicsTimeseries.Name = "mnuClimaticClimateMethodsGraphicsTimeseries" + Me.mnuClimaticClimateMethodsGraphicsTimeseries.Tag = "Timeseries" ' - 'mnuClimateMethodsGraphicsWindrose + 'mnuClimaticClimateMethodsGraphicsWindrose ' - resources.ApplyResources(Me.mnuClimateMethodsGraphicsWindrose, "mnuClimateMethodsGraphicsWindrose") - Me.mnuClimateMethodsGraphicsWindrose.Name = "mnuClimateMethodsGraphicsWindrose" - Me.mnuClimateMethodsGraphicsWindrose.Tag = "Windrose" + resources.ApplyResources(Me.mnuClimaticClimateMethodsGraphicsWindrose, "mnuClimaticClimateMethodsGraphicsWindrose") + Me.mnuClimaticClimateMethodsGraphicsWindrose.Name = "mnuClimaticClimateMethodsGraphicsWindrose" + Me.mnuClimaticClimateMethodsGraphicsWindrose.Tag = "Windrose" ' 'mnuClimateMethodsGraphicsMultipleLines ' @@ -2090,48 +2095,48 @@ Partial Class frmMain Me.mnuClmateMethodThreeSummaries.Name = "mnuClmateMethodThreeSummaries" Me.mnuClmateMethodThreeSummaries.Tag = "Three_Summaries" ' - 'mnuClimateMethodsModel + 'mnuClimaticClimateMethodsModel ' - resources.ApplyResources(Me.mnuClimateMethodsModel, "mnuClimateMethodsModel") - Me.mnuClimateMethodsModel.Name = "mnuClimateMethodsModel" - Me.mnuClimateMethodsModel.Tag = "Model" + resources.ApplyResources(Me.mnuClimaticClimateMethodsModel, "mnuClimaticClimateMethodsModel") + Me.mnuClimaticClimateMethodsModel.Name = "mnuClimaticClimateMethodsModel" + Me.mnuClimaticClimateMethodsModel.Tag = "Model" ' - 'mnuClimateMethodsAdditional + 'mnuClimaticClimateMethodsAdditional ' - Me.mnuClimateMethodsAdditional.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimateMethodsAdditionalOutputForCPT, Me.mnuClimateMethodsAdditionalRainsStatistics, Me.mnuClimateMethodsAdditionalSeasonalSummary, Me.mnuClimateMethodsAdditionalSeasonalSummaryRain, Me.mnuClimateMethodsAdditionalWaterBalance}) - Me.mnuClimateMethodsAdditional.Name = "mnuClimateMethodsAdditional" - resources.ApplyResources(Me.mnuClimateMethodsAdditional, "mnuClimateMethodsAdditional") - Me.mnuClimateMethodsAdditional.Tag = "Additional" + Me.mnuClimaticClimateMethodsAdditional.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuClimaticClimateMethodsAdditionalOutputForCPT, Me.mnuClimaticClimateMethodsAdditionalRainsStatistics, Me.mnuClimaticClimateMethodsAdditionalSeasonalSummary, Me.mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain, Me.mnuClimaticClimateMethodsAdditionalWaterBalance}) + Me.mnuClimaticClimateMethodsAdditional.Name = "mnuClimaticClimateMethodsAdditional" + resources.ApplyResources(Me.mnuClimaticClimateMethodsAdditional, "mnuClimaticClimateMethodsAdditional") + Me.mnuClimaticClimateMethodsAdditional.Tag = "Additional" ' - 'mnuClimateMethodsAdditionalOutputForCPT + 'mnuClimaticClimateMethodsAdditionalOutputForCPT ' - resources.ApplyResources(Me.mnuClimateMethodsAdditionalOutputForCPT, "mnuClimateMethodsAdditionalOutputForCPT") - Me.mnuClimateMethodsAdditionalOutputForCPT.Name = "mnuClimateMethodsAdditionalOutputForCPT" - Me.mnuClimateMethodsAdditionalOutputForCPT.Tag = "Output_for_CPT" + resources.ApplyResources(Me.mnuClimaticClimateMethodsAdditionalOutputForCPT, "mnuClimaticClimateMethodsAdditionalOutputForCPT") + Me.mnuClimaticClimateMethodsAdditionalOutputForCPT.Name = "mnuClimaticClimateMethodsAdditionalOutputForCPT" + Me.mnuClimaticClimateMethodsAdditionalOutputForCPT.Tag = "Output_for_CPT" ' - 'mnuClimateMethodsAdditionalRainsStatistics + 'mnuClimaticClimateMethodsAdditionalRainsStatistics ' - resources.ApplyResources(Me.mnuClimateMethodsAdditionalRainsStatistics, "mnuClimateMethodsAdditionalRainsStatistics") - Me.mnuClimateMethodsAdditionalRainsStatistics.Name = "mnuClimateMethodsAdditionalRainsStatistics" - Me.mnuClimateMethodsAdditionalRainsStatistics.Tag = "Rain_Statistics" + resources.ApplyResources(Me.mnuClimaticClimateMethodsAdditionalRainsStatistics, "mnuClimaticClimateMethodsAdditionalRainsStatistics") + Me.mnuClimaticClimateMethodsAdditionalRainsStatistics.Name = "mnuClimaticClimateMethodsAdditionalRainsStatistics" + Me.mnuClimaticClimateMethodsAdditionalRainsStatistics.Tag = "Rain_Statistics" ' - 'mnuClimateMethodsAdditionalSeasonalSummary + 'mnuClimaticClimateMethodsAdditionalSeasonalSummary ' - resources.ApplyResources(Me.mnuClimateMethodsAdditionalSeasonalSummary, "mnuClimateMethodsAdditionalSeasonalSummary") - Me.mnuClimateMethodsAdditionalSeasonalSummary.Name = "mnuClimateMethodsAdditionalSeasonalSummary" - Me.mnuClimateMethodsAdditionalSeasonalSummary.Tag = "Seasonal_Summary" + resources.ApplyResources(Me.mnuClimaticClimateMethodsAdditionalSeasonalSummary, "mnuClimaticClimateMethodsAdditionalSeasonalSummary") + Me.mnuClimaticClimateMethodsAdditionalSeasonalSummary.Name = "mnuClimaticClimateMethodsAdditionalSeasonalSummary" + Me.mnuClimaticClimateMethodsAdditionalSeasonalSummary.Tag = "Seasonal_Summary" ' - 'mnuClimateMethodsAdditionalSeasonalSummaryRain + 'mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain ' - resources.ApplyResources(Me.mnuClimateMethodsAdditionalSeasonalSummaryRain, "mnuClimateMethodsAdditionalSeasonalSummaryRain") - Me.mnuClimateMethodsAdditionalSeasonalSummaryRain.Name = "mnuClimateMethodsAdditionalSeasonalSummaryRain" - Me.mnuClimateMethodsAdditionalSeasonalSummaryRain.Tag = "Seasonal_Summary_Rain" + resources.ApplyResources(Me.mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain, "mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain") + Me.mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain.Name = "mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain" + Me.mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain.Tag = "Seasonal_Summary_Rain" ' - 'mnuClimateMethodsAdditionalWaterBalance + 'mnuClimaticClimateMethodsAdditionalWaterBalance ' - resources.ApplyResources(Me.mnuClimateMethodsAdditionalWaterBalance, "mnuClimateMethodsAdditionalWaterBalance") - Me.mnuClimateMethodsAdditionalWaterBalance.Name = "mnuClimateMethodsAdditionalWaterBalance" - Me.mnuClimateMethodsAdditionalWaterBalance.Tag = "Water_Balance" + resources.ApplyResources(Me.mnuClimaticClimateMethodsAdditionalWaterBalance, "mnuClimaticClimateMethodsAdditionalWaterBalance") + Me.mnuClimaticClimateMethodsAdditionalWaterBalance.Name = "mnuClimaticClimateMethodsAdditionalWaterBalance" + Me.mnuClimaticClimateMethodsAdditionalWaterBalance.Tag = "Water_Balance" ' 'mnuClimateMethodsCreateClimateObject ' @@ -2432,7 +2437,7 @@ Partial Class frmMain ' 'mnuFile ' - Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileNewDataFrame, Me.mnuFileOpenFromFile, Me.mnuFileOpenFromLibrary, Me.ToolStripSeparator35, Me.mnuFileOpenFromODK, Me.mnuFileOpenFromCSPRO, Me.mnuFileImportFromDatabases, Me.mnuFileImportandTidyNetCDFFile, Me.ToolStripSeparator27, Me.mnuFileConvert, Me.tlSeparatorFile, Me.mnuFileSave, Me.mnuFileSaveAs, Me.mnuExport, Me.mnuFilePrint, Me.mnuFilePrintPreview, Me.tlSeparatorFile3, Me.mnuFileCloseData, Me.ToolStripSeparator8, Me.mnuFIleExit}) + Me.mnuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileNewDataFrame, Me.mnuFileOpenFromFile, Me.mnuFileOpenFromLibrary, Me.ToolStripSeparator35, Me.mnuFileOpenFromODK, Me.mnuFileOpenFromCSPRO, Me.mnuFileImportFromDatabases, Me.mnuFileImportandTidyNetCDFFile, Me.ToolStripSeparator27, Me.mnuFileConvert, Me.tlSeparatorFile, Me.mnuFileSave, Me.mnuFileSaveAs, Me.mnuFileExport, Me.mnuFilePrint, Me.mnuFilePrintPreview, Me.tlSeparatorFile3, Me.mnuFileCloseData, Me.ToolStripSeparator8, Me.mnuFIleExit}) Me.mnuFile.Name = "mnuFile" resources.ApplyResources(Me.mnuFile, "mnuFile") Me.mnuFile.Tag = "File" @@ -2495,31 +2500,31 @@ Partial Class frmMain Me.tlSeparatorFile.Name = "tlSeparatorFile" resources.ApplyResources(Me.tlSeparatorFile, "tlSeparatorFile") ' - 'mnuExport + 'mnuFileExport ' - Me.mnuExport.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportDataSetToolStripMenuItem, Me.ExportRObjectsToolStripMenuItem, Me.ExportRWorkspaceToolStripMenuItem, Me.ExportGraphAsImageToolStripMenuItem}) - Me.mnuExport.Name = "mnuExport" - resources.ApplyResources(Me.mnuExport, "mnuExport") + Me.mnuFileExport.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFileExportExportDataSet, Me.mnuFileExportExportRObjectsToolStripMenuItem, Me.mnuFileExportExportRWorkspace, Me.mnuFileExportExportGraphAsImage}) + Me.mnuFileExport.Name = "mnuFileExport" + resources.ApplyResources(Me.mnuFileExport, "mnuFileExport") ' - 'ExportDataSetToolStripMenuItem + 'mnuFileExportExportDataSet ' - Me.ExportDataSetToolStripMenuItem.Name = "ExportDataSetToolStripMenuItem" - resources.ApplyResources(Me.ExportDataSetToolStripMenuItem, "ExportDataSetToolStripMenuItem") + Me.mnuFileExportExportDataSet.Name = "mnuFileExportExportDataSet" + resources.ApplyResources(Me.mnuFileExportExportDataSet, "mnuFileExportExportDataSet") ' - 'ExportRObjectsToolStripMenuItem + 'mnuFileExportExportRObjectsToolStripMenuItem ' - Me.ExportRObjectsToolStripMenuItem.Name = "ExportRObjectsToolStripMenuItem" - resources.ApplyResources(Me.ExportRObjectsToolStripMenuItem, "ExportRObjectsToolStripMenuItem") + Me.mnuFileExportExportRObjectsToolStripMenuItem.Name = "mnuFileExportExportRObjectsToolStripMenuItem" + resources.ApplyResources(Me.mnuFileExportExportRObjectsToolStripMenuItem, "mnuFileExportExportRObjectsToolStripMenuItem") ' - 'ExportRWorkspaceToolStripMenuItem + 'mnuFileExportExportRWorkspace ' - Me.ExportRWorkspaceToolStripMenuItem.Name = "ExportRWorkspaceToolStripMenuItem" - resources.ApplyResources(Me.ExportRWorkspaceToolStripMenuItem, "ExportRWorkspaceToolStripMenuItem") + Me.mnuFileExportExportRWorkspace.Name = "mnuFileExportExportRWorkspace" + resources.ApplyResources(Me.mnuFileExportExportRWorkspace, "mnuFileExportExportRWorkspace") ' - 'ExportGraphAsImageToolStripMenuItem + 'mnuFileExportExportGraphAsImage ' - Me.ExportGraphAsImageToolStripMenuItem.Name = "ExportGraphAsImageToolStripMenuItem" - resources.ApplyResources(Me.ExportGraphAsImageToolStripMenuItem, "ExportGraphAsImageToolStripMenuItem") + Me.mnuFileExportExportGraphAsImage.Name = "mnuFileExportExportGraphAsImage" + resources.ApplyResources(Me.mnuFileExportExportGraphAsImage, "mnuFileExportExportGraphAsImage") ' 'mnuFileCloseData ' @@ -2540,7 +2545,7 @@ Partial Class frmMain ' 'mnuPrepareDataFrame ' - Me.mnuPrepareDataFrame.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareDataFrameViewData, Me.mnuPrepareDataFrameRenameColumn, Me.mnuPrepareDataFrameRowNumbersNames, Me.ToolStripSeparator1, Me.mnuPrepareDataFrameSort, Me.mnuPrepareDataFrameFilter, Me.mnuPrepareDataFrameReplaceValues, Me.ToolStripSeparator2, Me.mnuPrepareDataFrameConvertColumns, Me.mnuPrepareDataFrameColumnMetadata, Me.mnuPrepareDataFrameColumnStructure, Me.ToolStripSeparator20, Me.mnuPrepareDataFrameReorderColumns, Me.mnuPrepareDataFrameInsertColumnsRows, Me.mnuPrepareDataFrameDeleteColumnsRows, Me.mnuPrepareDataFrameProtectColumn, Me.mnuPrepareDataFrameHideColumns, Me.mnuPrepareDataFrameFreezeColumns, Me.ColourByPropertyToolStripMenuItem}) + Me.mnuPrepareDataFrame.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareDataFrameViewData, Me.mnuPrepareDataFrameRenameColumn, Me.mnuPrepareDataFrameRowNumbersNames, Me.ToolStripSeparator1, Me.mnuPrepareDataFrameSort, Me.mnuPrepareDataFrameFilter, Me.mnuPrepareDataFrameReplaceValues, Me.ToolStripSeparator2, Me.mnuPrepareDataFrameConvertColumns, Me.mnuPrepareDataFrameColumnMetadata, Me.mnuPrepareDataFrameColumnStructure, Me.ToolStripSeparator20, Me.mnuPrepareDataFrameReorderColumns, Me.mnuPrepareDataFrameInsertColumnsRows, Me.mnuPrepareDataFrameDeleteColumnsRows, Me.mnuPrepareDataFrameProtectColumn, Me.mnuPrepareDataFrameHideColumns, Me.mnuPrepareDataFrameFreezeColumns, Me.mnuPrepareDataframeColourByProperty}) Me.mnuPrepareDataFrame.Name = "mnuPrepareDataFrame" resources.ApplyResources(Me.mnuPrepareDataFrame, "mnuPrepareDataFrame") Me.mnuPrepareDataFrame.Tag = "Data_Frame" @@ -2650,15 +2655,15 @@ Partial Class frmMain Me.mnuPrepareDataFrameFreezeColumns.Name = "mnuPrepareDataFrameFreezeColumns" Me.mnuPrepareDataFrameFreezeColumns.Tag = "Freeze_Columns..." ' - 'ColourByPropertyToolStripMenuItem + 'mnuPrepareDataframeColourByProperty ' - Me.ColourByPropertyToolStripMenuItem.Name = "ColourByPropertyToolStripMenuItem" - resources.ApplyResources(Me.ColourByPropertyToolStripMenuItem, "ColourByPropertyToolStripMenuItem") + Me.mnuPrepareDataframeColourByProperty.Name = "mnuPrepareDataframeColourByProperty" + resources.ApplyResources(Me.mnuPrepareDataframeColourByProperty, "mnuPrepareDataframeColourByProperty") ' 'mnuPrepareCheckData ' Me.mnuPrepareCheckData.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.mnuPrepareCheckData.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareCheckDataDuplicates, Me.mnuPrepareCheckDataCompareColumns, Me.mnuPrepareCheckDataNonNumericCases, Me.ToolStripSeparator49, Me.mnuPrepareCheckDataBoxplot, Me.mnuPrepareCheckDataOneVariableSummarise, Me.mnuPrepareCheckDataOneVariableGraph, Me.mnuPrepareCheckDataOneWayFrequencies, Me.ToolStripSeparator41, Me.mnuPrepareCheckDataExportOpenRefine, Me.mnuPrepareCheckDataImportOpenRefine, Me.ToolStripSeparator40, Me.mnuPreparePrepareToShareJitter, Me.mnuCheckDataPrePareToShareSdcPackage, Me.mnuPrepareCheckDataAnonymiseIDColumn}) + Me.mnuPrepareCheckData.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareCheckDataDuplicates, Me.mnuPrepareCheckDataCompareColumns, Me.mnuPrepareCheckDataNonNumericCases, Me.ToolStripSeparator49, Me.mnuPrepareCheckDataBoxplot, Me.mnuPrepareCheckDataOneVariableSummarise, Me.mnuPrepareCheckDataOneVariableGraph, Me.mnuPrepareCheckDataOneWayFrequencies, Me.ToolStripSeparator41, Me.mnuPrepareCheckDataExportOpenRefine, Me.mnuPrepareCheckDataImportOpenRefine, Me.ToolStripSeparator40, Me.mnuPreparePrepareToShareJitter, Me.mnuPrepareCheckDataPrePareToShareSdcPackage, Me.mnuPrepareCheckDataAnonymiseIDColumn}) Me.mnuPrepareCheckData.Name = "mnuPrepareCheckData" resources.ApplyResources(Me.mnuPrepareCheckData, "mnuPrepareCheckData") ' @@ -2727,10 +2732,10 @@ Partial Class frmMain resources.ApplyResources(Me.mnuPreparePrepareToShareJitter, "mnuPreparePrepareToShareJitter") Me.mnuPreparePrepareToShareJitter.Name = "mnuPreparePrepareToShareJitter" ' - 'mnuCheckDataPrePareToShareSdcPackage + 'mnuPrepareCheckDataPrePareToShareSdcPackage ' - resources.ApplyResources(Me.mnuCheckDataPrePareToShareSdcPackage, "mnuCheckDataPrePareToShareSdcPackage") - Me.mnuCheckDataPrePareToShareSdcPackage.Name = "mnuCheckDataPrePareToShareSdcPackage" + resources.ApplyResources(Me.mnuPrepareCheckDataPrePareToShareSdcPackage, "mnuPrepareCheckDataPrePareToShareSdcPackage") + Me.mnuPrepareCheckDataPrePareToShareSdcPackage.Name = "mnuPrepareCheckDataPrePareToShareSdcPackage" ' 'mnuPrepareCheckDataAnonymiseIDColumn ' @@ -2744,7 +2749,7 @@ Partial Class frmMain ' 'mnuPrepareColumnCalculate ' - Me.mnuPrepareColumnCalculate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnCalculateCalculations, Me.mnuPrepareColumnCalculateColumnSummaries, Me.mnuPrepareColumnCalculateGeneralSummaries, Me.ToolStripSeparator24, Me.mnuPrepareCalculateDuplicateColumn, Me.mnuPrepareColumnCalculateTransform, Me.mnuPrepareColumnCalculateRank, Me.mnuPrepareColumnCalculatePolynomials, Me.mnuPrepareColumnCalculateRowSummary}) + Me.mnuPrepareColumnCalculate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnCalculateCalculations, Me.mnuPrepareColumnCalculateColumnSummaries, Me.mnuPrepareColumnCalculateGeneralSummaries, Me.ToolStripSeparator24, Me.mnuPrepareColumnCalculateDuplicateColumn, Me.mnuPrepareColumnCalculateTransform, Me.mnuPrepareColumnCalculateRank, Me.mnuPrepareColumnCalculatePolynomials, Me.mnuPrepareColumnCalculateRowSummary}) Me.mnuPrepareColumnCalculate.Name = "mnuPrepareColumnCalculate" resources.ApplyResources(Me.mnuPrepareColumnCalculate, "mnuPrepareColumnCalculate") Me.mnuPrepareColumnCalculate.Tag = "Column:_Calculate" @@ -2771,10 +2776,10 @@ Partial Class frmMain Me.ToolStripSeparator24.Name = "ToolStripSeparator24" resources.ApplyResources(Me.ToolStripSeparator24, "ToolStripSeparator24") ' - 'mnuPrepareCalculateDuplicateColumn + 'mnuPrepareColumnCalculateDuplicateColumn ' - Me.mnuPrepareCalculateDuplicateColumn.Name = "mnuPrepareCalculateDuplicateColumn" - resources.ApplyResources(Me.mnuPrepareCalculateDuplicateColumn, "mnuPrepareCalculateDuplicateColumn") + Me.mnuPrepareColumnCalculateDuplicateColumn.Name = "mnuPrepareColumnCalculateDuplicateColumn" + resources.ApplyResources(Me.mnuPrepareColumnCalculateDuplicateColumn, "mnuPrepareColumnCalculateDuplicateColumn") ' 'mnuPrepareColumnCalculateTransform ' @@ -2978,39 +2983,39 @@ Partial Class frmMain ' 'mnuPrepareColumnDate ' - Me.mnuPrepareColumnDate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnGenerateDate, Me.mnuPrepareColumnMakeDate, Me.mnuPrepareColumnInfillMissingDates, Me.mnuPrepareColumnUseDate, Me.mnuPrepareColumnMakeTime, Me.mnuPrepareColumnUseTime}) + Me.mnuPrepareColumnDate.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuPrepareColumnDateGenerateDate, Me.mnuPrepareColumnDateMakeDate, Me.mnuPrepareColumnDateInfillMissingDates, Me.mnuPrepareColumnDateUseDate, Me.mnuPrepareColumnDateMakeTime, Me.mnuPrepareColumnDateUseTime}) Me.mnuPrepareColumnDate.Name = "mnuPrepareColumnDate" resources.ApplyResources(Me.mnuPrepareColumnDate, "mnuPrepareColumnDate") ' - 'mnuPrepareColumnGenerateDate + 'mnuPrepareColumnDateGenerateDate ' - Me.mnuPrepareColumnGenerateDate.Name = "mnuPrepareColumnGenerateDate" - resources.ApplyResources(Me.mnuPrepareColumnGenerateDate, "mnuPrepareColumnGenerateDate") + Me.mnuPrepareColumnDateGenerateDate.Name = "mnuPrepareColumnDateGenerateDate" + resources.ApplyResources(Me.mnuPrepareColumnDateGenerateDate, "mnuPrepareColumnDateGenerateDate") ' - 'mnuPrepareColumnMakeDate + 'mnuPrepareColumnDateMakeDate ' - Me.mnuPrepareColumnMakeDate.Name = "mnuPrepareColumnMakeDate" - resources.ApplyResources(Me.mnuPrepareColumnMakeDate, "mnuPrepareColumnMakeDate") + Me.mnuPrepareColumnDateMakeDate.Name = "mnuPrepareColumnDateMakeDate" + resources.ApplyResources(Me.mnuPrepareColumnDateMakeDate, "mnuPrepareColumnDateMakeDate") ' - 'mnuPrepareColumnInfillMissingDates + 'mnuPrepareColumnDateInfillMissingDates ' - Me.mnuPrepareColumnInfillMissingDates.Name = "mnuPrepareColumnInfillMissingDates" - resources.ApplyResources(Me.mnuPrepareColumnInfillMissingDates, "mnuPrepareColumnInfillMissingDates") + Me.mnuPrepareColumnDateInfillMissingDates.Name = "mnuPrepareColumnDateInfillMissingDates" + resources.ApplyResources(Me.mnuPrepareColumnDateInfillMissingDates, "mnuPrepareColumnDateInfillMissingDates") ' - 'mnuPrepareColumnUseDate + 'mnuPrepareColumnDateUseDate ' - Me.mnuPrepareColumnUseDate.Name = "mnuPrepareColumnUseDate" - resources.ApplyResources(Me.mnuPrepareColumnUseDate, "mnuPrepareColumnUseDate") + Me.mnuPrepareColumnDateUseDate.Name = "mnuPrepareColumnDateUseDate" + resources.ApplyResources(Me.mnuPrepareColumnDateUseDate, "mnuPrepareColumnDateUseDate") ' - 'mnuPrepareColumnMakeTime + 'mnuPrepareColumnDateMakeTime ' - resources.ApplyResources(Me.mnuPrepareColumnMakeTime, "mnuPrepareColumnMakeTime") - Me.mnuPrepareColumnMakeTime.Name = "mnuPrepareColumnMakeTime" + resources.ApplyResources(Me.mnuPrepareColumnDateMakeTime, "mnuPrepareColumnDateMakeTime") + Me.mnuPrepareColumnDateMakeTime.Name = "mnuPrepareColumnDateMakeTime" ' - 'mnuPrepareColumnUseTime + 'mnuPrepareColumnDateUseTime ' - resources.ApplyResources(Me.mnuPrepareColumnUseTime, "mnuPrepareColumnUseTime") - Me.mnuPrepareColumnUseTime.Name = "mnuPrepareColumnUseTime" + resources.ApplyResources(Me.mnuPrepareColumnDateUseTime, "mnuPrepareColumnDateUseTime") + Me.mnuPrepareColumnDateUseTime.Name = "mnuPrepareColumnDateUseTime" ' 'mnuPrepareColumnReshape ' @@ -3221,14 +3226,14 @@ Partial Class frmMain ' 'mnuProcurement ' - Me.mnuProcurement.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OpenFromLibraryToolStripMenuItem, Me.mnuProcurementDefineData, Me.mnuProcurementPrepare, Me.mnuProcurementDescribe, Me.MappingToolStripMenuItem, Me.mnuProcurementModel, Me.ToolStripSeparator45, Me.mnuProcurementDefineRedFlags, Me.mnuProcurementUseCRI}) + Me.mnuProcurement.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementOpenFromLibrary, Me.mnuProcurementDefineData, Me.mnuProcurementPrepare, Me.mnuProcurementDescribe, Me.mnuProcurementMapping, Me.mnuProcurementModel, Me.ToolStripSeparator45, Me.mnuProcurementDefineRedFlags, Me.mnuProcurementUseCRI}) Me.mnuProcurement.Name = "mnuProcurement" resources.ApplyResources(Me.mnuProcurement, "mnuProcurement") ' - 'OpenFromLibraryToolStripMenuItem + 'mnuProcurementOpenFromLibrary ' - Me.OpenFromLibraryToolStripMenuItem.Name = "OpenFromLibraryToolStripMenuItem" - resources.ApplyResources(Me.OpenFromLibraryToolStripMenuItem, "OpenFromLibraryToolStripMenuItem") + Me.mnuProcurementOpenFromLibrary.Name = "mnuProcurementOpenFromLibrary" + resources.ApplyResources(Me.mnuProcurementOpenFromLibrary, "mnuProcurementOpenFromLibrary") ' 'mnuProcurementDefineData ' @@ -3237,7 +3242,7 @@ Partial Class frmMain ' 'mnuProcurementPrepare ' - Me.mnuProcurementPrepare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementPrepareFilterByCountry, Me.ToolStripSeparator42, Me.mnuProcurementPrepareDefineContractValueCategories, Me.mnuProcurementPrepareRecodeNumericIntoQuantiles, Me.mnuProcurementPrepareSetFactorReferenceLevel, Me.mnuProcurementPrepareUseAwardDate, Me.ToolStripSeparator43, Me.SummariseRedFlagsByCountryorOtherToolStripMenuItem, Me.SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem, Me.mnuProcurementPrepareMergeAdditionalData}) + Me.mnuProcurementPrepare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementPrepareFilterByCountry, Me.ToolStripSeparator42, Me.mnuProcurementPrepareDefineContractValueCategories, Me.mnuProcurementPrepareRecodeNumericIntoQuantiles, Me.mnuProcurementPrepareSetFactorReferenceLevel, Me.mnuProcurementPrepareUseAwardDate, Me.ToolStripSeparator43, Me.mnuProcurementPrepareSummariseRedFlagsByCountryorOther, Me.mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther, Me.mnuProcurementPrepareMergeAdditionalData}) Me.mnuProcurementPrepare.Name = "mnuProcurementPrepare" resources.ApplyResources(Me.mnuProcurementPrepare, "mnuProcurementPrepare") ' @@ -3276,15 +3281,15 @@ Partial Class frmMain Me.ToolStripSeparator43.Name = "ToolStripSeparator43" resources.ApplyResources(Me.ToolStripSeparator43, "ToolStripSeparator43") ' - 'SummariseRedFlagsByCountryorOtherToolStripMenuItem + 'mnuProcurementPrepareSummariseRedFlagsByCountryorOther ' - Me.SummariseRedFlagsByCountryorOtherToolStripMenuItem.Name = "SummariseRedFlagsByCountryorOtherToolStripMenuItem" - resources.ApplyResources(Me.SummariseRedFlagsByCountryorOtherToolStripMenuItem, "SummariseRedFlagsByCountryorOtherToolStripMenuItem") + Me.mnuProcurementPrepareSummariseRedFlagsByCountryorOther.Name = "mnuProcurementPrepareSummariseRedFlagsByCountryorOther" + resources.ApplyResources(Me.mnuProcurementPrepareSummariseRedFlagsByCountryorOther, "mnuProcurementPrepareSummariseRedFlagsByCountryorOther") ' - 'SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem + 'mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther ' - Me.SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem.Name = "SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem" - resources.ApplyResources(Me.SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem, "SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem") + Me.mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther.Name = "mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther" + resources.ApplyResources(Me.mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther, "mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther") ' 'mnuProcurementPrepareMergeAdditionalData ' @@ -3293,30 +3298,30 @@ Partial Class frmMain ' 'mnuProcurementDescribe ' - Me.mnuProcurementDescribe.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OneVariableSummariseToolStripMenuItem, Me.OneVariableGraphToolStripMenuItem, Me.ToolStripSeparator44, Me.CategoricalToolStripMenuItem, Me.NumericToolStripMenuItem}) + Me.mnuProcurementDescribe.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementDescribeOneVariableSummarise, Me.mnuProcurementDescribeOneVariableGraph, Me.ToolStripSeparator44, Me.mnuProcurementDescribeCategorical, Me.mnuProcurementDescribeNumeric}) Me.mnuProcurementDescribe.Name = "mnuProcurementDescribe" resources.ApplyResources(Me.mnuProcurementDescribe, "mnuProcurementDescribe") ' - 'OneVariableSummariseToolStripMenuItem + 'mnuProcurementDescribeOneVariableSummarise ' - Me.OneVariableSummariseToolStripMenuItem.Name = "OneVariableSummariseToolStripMenuItem" - resources.ApplyResources(Me.OneVariableSummariseToolStripMenuItem, "OneVariableSummariseToolStripMenuItem") + Me.mnuProcurementDescribeOneVariableSummarise.Name = "mnuProcurementDescribeOneVariableSummarise" + resources.ApplyResources(Me.mnuProcurementDescribeOneVariableSummarise, "mnuProcurementDescribeOneVariableSummarise") ' - 'OneVariableGraphToolStripMenuItem + 'mnuProcurementDescribeOneVariableGraph ' - Me.OneVariableGraphToolStripMenuItem.Name = "OneVariableGraphToolStripMenuItem" - resources.ApplyResources(Me.OneVariableGraphToolStripMenuItem, "OneVariableGraphToolStripMenuItem") + Me.mnuProcurementDescribeOneVariableGraph.Name = "mnuProcurementDescribeOneVariableGraph" + resources.ApplyResources(Me.mnuProcurementDescribeOneVariableGraph, "mnuProcurementDescribeOneVariableGraph") ' 'ToolStripSeparator44 ' Me.ToolStripSeparator44.Name = "ToolStripSeparator44" resources.ApplyResources(Me.ToolStripSeparator44, "ToolStripSeparator44") ' - 'CategoricalToolStripMenuItem + 'mnuProcurementDescribeCategorical ' - Me.CategoricalToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementDescribeCategoricalOneVarFreq, Me.mnuProcurementDescribeCategoricalTwoVarFreq, Me.ToolStripSeparator52, Me.BarChartsToolStripMenuItem, Me.MosaicPlotToolStripMenuItem}) - Me.CategoricalToolStripMenuItem.Name = "CategoricalToolStripMenuItem" - resources.ApplyResources(Me.CategoricalToolStripMenuItem, "CategoricalToolStripMenuItem") + Me.mnuProcurementDescribeCategorical.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementDescribeCategoricalOneVarFreq, Me.mnuProcurementDescribeCategoricalTwoVarFreq, Me.ToolStripSeparator52, Me.mnuProcurementDescribeCategoricalBarCharts, Me.mnuProcurementDescribeCategoricalMosaic}) + Me.mnuProcurementDescribeCategorical.Name = "mnuProcurementDescribeCategorical" + resources.ApplyResources(Me.mnuProcurementDescribeCategorical, "mnuProcurementDescribeCategorical") ' 'mnuProcurementDescribeCategoricalOneVarFreq ' @@ -3333,26 +3338,26 @@ Partial Class frmMain Me.ToolStripSeparator52.Name = "ToolStripSeparator52" resources.ApplyResources(Me.ToolStripSeparator52, "ToolStripSeparator52") ' - 'BarChartsToolStripMenuItem + 'mnuProcurementDescribeCategoricalBarCharts ' - Me.BarChartsToolStripMenuItem.Name = "BarChartsToolStripMenuItem" - resources.ApplyResources(Me.BarChartsToolStripMenuItem, "BarChartsToolStripMenuItem") + Me.mnuProcurementDescribeCategoricalBarCharts.Name = "mnuProcurementDescribeCategoricalBarCharts" + resources.ApplyResources(Me.mnuProcurementDescribeCategoricalBarCharts, "mnuProcurementDescribeCategoricalBarCharts") ' - 'MosaicPlotToolStripMenuItem + 'mnuProcurementDescribeCategoricalMosaic ' - Me.MosaicPlotToolStripMenuItem.Name = "MosaicPlotToolStripMenuItem" - resources.ApplyResources(Me.MosaicPlotToolStripMenuItem, "MosaicPlotToolStripMenuItem") + Me.mnuProcurementDescribeCategoricalMosaic.Name = "mnuProcurementDescribeCategoricalMosaic" + resources.ApplyResources(Me.mnuProcurementDescribeCategoricalMosaic, "mnuProcurementDescribeCategoricalMosaic") ' - 'NumericToolStripMenuItem + 'mnuProcurementDescribeNumeric ' - Me.NumericToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BoxplotToolStripMenuItem, Me.HistogramToolStripMenuItem, Me.ToolStripSeparator53, Me.CorrelationsRedFlagsOrOthersToolStripMenuItem}) - Me.NumericToolStripMenuItem.Name = "NumericToolStripMenuItem" - resources.ApplyResources(Me.NumericToolStripMenuItem, "NumericToolStripMenuItem") + Me.mnuProcurementDescribeNumeric.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementDescribeNumericBoxplot, Me.HistogramToolStripMenuItem, Me.ToolStripSeparator53, Me.mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers}) + Me.mnuProcurementDescribeNumeric.Name = "mnuProcurementDescribeNumeric" + resources.ApplyResources(Me.mnuProcurementDescribeNumeric, "mnuProcurementDescribeNumeric") ' - 'BoxplotToolStripMenuItem + 'mnuProcurementDescribeNumericBoxplot ' - Me.BoxplotToolStripMenuItem.Name = "BoxplotToolStripMenuItem" - resources.ApplyResources(Me.BoxplotToolStripMenuItem, "BoxplotToolStripMenuItem") + Me.mnuProcurementDescribeNumericBoxplot.Name = "mnuProcurementDescribeNumericBoxplot" + resources.ApplyResources(Me.mnuProcurementDescribeNumericBoxplot, "mnuProcurementDescribeNumericBoxplot") ' 'HistogramToolStripMenuItem ' @@ -3364,32 +3369,32 @@ Partial Class frmMain Me.ToolStripSeparator53.Name = "ToolStripSeparator53" resources.ApplyResources(Me.ToolStripSeparator53, "ToolStripSeparator53") ' - 'CorrelationsRedFlagsOrOthersToolStripMenuItem + 'mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers ' - Me.CorrelationsRedFlagsOrOthersToolStripMenuItem.Name = "CorrelationsRedFlagsOrOthersToolStripMenuItem" - resources.ApplyResources(Me.CorrelationsRedFlagsOrOthersToolStripMenuItem, "CorrelationsRedFlagsOrOthersToolStripMenuItem") + Me.mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers.Name = "mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers" + resources.ApplyResources(Me.mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers, "mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers") ' - 'MappingToolStripMenuItem + 'mnuProcurementMapping ' - Me.MappingToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MapCountryValuesToolStripMenuItem}) - Me.MappingToolStripMenuItem.Name = "MappingToolStripMenuItem" - resources.ApplyResources(Me.MappingToolStripMenuItem, "MappingToolStripMenuItem") + Me.mnuProcurementMapping.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementMappingMapCountryValues}) + Me.mnuProcurementMapping.Name = "mnuProcurementMapping" + resources.ApplyResources(Me.mnuProcurementMapping, "mnuProcurementMapping") ' - 'MapCountryValuesToolStripMenuItem + 'mnuProcurementMappingMapCountryValues ' - Me.MapCountryValuesToolStripMenuItem.Name = "MapCountryValuesToolStripMenuItem" - resources.ApplyResources(Me.MapCountryValuesToolStripMenuItem, "MapCountryValuesToolStripMenuItem") + Me.mnuProcurementMappingMapCountryValues.Name = "mnuProcurementMappingMapCountryValues" + resources.ApplyResources(Me.mnuProcurementMappingMapCountryValues, "mnuProcurementMappingMapCountryValues") ' 'mnuProcurementModel ' - Me.mnuProcurementModel.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementDefineCorruption, Me.mnuProcurementModelFitModelToolStripMenuItem}) + Me.mnuProcurementModel.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementModelDefineCorruption, Me.mnuProcurementModelFitModelToolStripMenuItem}) Me.mnuProcurementModel.Name = "mnuProcurementModel" resources.ApplyResources(Me.mnuProcurementModel, "mnuProcurementModel") ' - 'mnuProcurementDefineCorruption + 'mnuProcurementModelDefineCorruption ' - Me.mnuProcurementDefineCorruption.Name = "mnuProcurementDefineCorruption" - resources.ApplyResources(Me.mnuProcurementDefineCorruption, "mnuProcurementDefineCorruption") + Me.mnuProcurementModelDefineCorruption.Name = "mnuProcurementModelDefineCorruption" + resources.ApplyResources(Me.mnuProcurementModelDefineCorruption, "mnuProcurementModelDefineCorruption") ' 'mnuProcurementModelFitModelToolStripMenuItem ' @@ -3408,14 +3413,14 @@ Partial Class frmMain ' 'mnuProcurementUseCRI ' - Me.mnuProcurementUseCRI.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementCalculateCRI, Me.mnuProcurementUseCRISummariseCRIbyCountry}) + Me.mnuProcurementUseCRI.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProcurementCTFVCalculateCRI, Me.mnuProcurementUseCRISummariseCRIbyCountry}) Me.mnuProcurementUseCRI.Name = "mnuProcurementUseCRI" resources.ApplyResources(Me.mnuProcurementUseCRI, "mnuProcurementUseCRI") ' - 'mnuProcurementCalculateCRI + 'mnuProcurementCTFVCalculateCRI ' - Me.mnuProcurementCalculateCRI.Name = "mnuProcurementCalculateCRI" - resources.ApplyResources(Me.mnuProcurementCalculateCRI, "mnuProcurementCalculateCRI") + Me.mnuProcurementCTFVCalculateCRI.Name = "mnuProcurementCTFVCalculateCRI" + resources.ApplyResources(Me.mnuProcurementCTFVCalculateCRI, "mnuProcurementCTFVCalculateCRI") ' 'mnuProcurementUseCRISummariseCRIbyCountry ' @@ -3713,11 +3718,6 @@ Partial Class frmMain resources.ApplyResources(Me.ucrOutput, "ucrOutput") Me.ucrOutput.Name = "ucrOutput" ' - 'mnuClimaticCheckDataQCTemperatures - ' - Me.mnuClimaticCheckDataQCTemperatures.Name = "mnuClimaticCheckDataQCTemperatures" - resources.ApplyResources(Me.mnuClimaticCheckDataQCTemperatures, "mnuClimaticCheckDataQCTemperatures") - ' 'frmMain ' resources.ApplyResources(Me, "$this") @@ -3768,8 +3768,8 @@ Partial Class frmMain Friend WithEvents mnuClimaticEvaporationSite As ToolStripMenuItem Friend WithEvents mnuClimaticEvaporationPenman As ToolStripMenuItem Friend WithEvents mnuClimaticCrop As ToolStripMenuItem - Friend WithEvents CropCoefficientsToolStripMenuItem As ToolStripMenuItem - Friend WithEvents WaterSatisfactionIndexToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuClimaticCropCropCoefficients As ToolStripMenuItem + Friend WithEvents mnuClimaticCropWaterSatisfactionIndex As ToolStripMenuItem Friend WithEvents mnuClimaticHeatSum As ToolStripMenuItem Friend WithEvents mnuView As ToolStripMenuItem Friend WithEvents mnuHelp As ToolStripMenuItem @@ -3845,7 +3845,7 @@ Partial Class frmMain Friend WithEvents mnuPrepareColumnGeneratePermuteRows As ToolStripMenuItem Friend WithEvents mnuPrepareColumnReshapeColumnSummaries As ToolStripMenuItem Friend WithEvents mnuPrepareColumnReshapeRandomSubset As ToolStripMenuItem - Friend WithEvents mnuExport As ToolStripMenuItem + Friend WithEvents mnuFileExport As ToolStripMenuItem Friend WithEvents mnuPrepareDataObjectDataFrameMetadata As ToolStripMenuItem Friend WithEvents mnuPrepareDataObjectCopyDataFrame As ToolStripMenuItem Friend WithEvents mnuTbLast10Dialogs As ToolStripDropDownButton @@ -3916,8 +3916,8 @@ Partial Class frmMain Friend WithEvents mnuDescribeTwoVariablesGraph As ToolStripMenuItem Friend WithEvents mnuDescribeGeneral As ToolStripMenuItem Friend WithEvents mnuDescribeGeneralColumnSummaries As ToolStripMenuItem - Friend WithEvents DescribeGeneralTabulation As ToolStripMenuItem - Friend WithEvents DescribeGeneralGraphics As ToolStripMenuItem + Friend WithEvents mnuDescribeGeneralTabulation As ToolStripMenuItem + Friend WithEvents mnuDescribeGeneralGraphics As ToolStripMenuItem Friend WithEvents mnuDescribeSpecific As ToolStripMenuItem Friend WithEvents mnuDescribeSpecificFrequency As ToolStripMenuItem Friend WithEvents mnuDescribeSpecificSummary As ToolStripMenuItem @@ -3982,8 +3982,8 @@ Partial Class frmMain Friend WithEvents ToolStripSeparator13 As ToolStripSeparator Friend WithEvents mnuPrepareCheckData As ToolStripMenuItem Friend WithEvents mnuPreparePrepareToShareJitter As ToolStripMenuItem - Friend WithEvents mnuCheckDataPrePareToShareSdcPackage As ToolStripMenuItem - Friend WithEvents ColourByPropertyToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuPrepareCheckDataPrePareToShareSdcPackage As ToolStripMenuItem + Friend WithEvents mnuPrepareDataframeColourByProperty As ToolStripMenuItem Friend WithEvents mnuPrepareDataObjectHideDataframes As ToolStripMenuItem Friend WithEvents mnuPrepareAppendDataFrame As ToolStripMenuItem Friend WithEvents mnuFileSaveAsDataAs As ToolStripMenuItem @@ -3992,44 +3992,44 @@ Partial Class frmMain Friend WithEvents mnuFileSaveAsScriptAs As ToolStripMenuItem Friend WithEvents mnuFileCloseData As ToolStripMenuItem Friend WithEvents ToolStripSeparator23 As ToolStripSeparator - Friend WithEvents mnuClimateMethods As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulation As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationStartOfRain As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationEndOfRain As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationChangeFormatDayMonth As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationExportCPTToTabular As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationDayMonth As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationDisplayDaily As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationDisplayDOYOfYear As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationDisplayRainRunningTotal As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationDisplaySpellLength As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationExportForPICSA As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationExtremeEvents As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationMissingData As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsDataManipulationMissingDataTable As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethods As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulation As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationStartOfRain As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationEndOfRain As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationExportCPTToTabular As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationDayMonth As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationDisplayDaily As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationDisplaySpellLength As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationExportForPICSA As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationExtremeEvents As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationMissingData As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsDataManipulationMissingDataTable As ToolStripMenuItem Friend WithEvents mnuClimateMethodsDataManipulationMonthlySummaries As ToolStripMenuItem Friend WithEvents mnuClimateMethodsDataManipulationOutputForCD As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphics As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsClipBoxPlot As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsCliplot As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsMissingValues As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsHistogram As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsCumExceedance As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsBoxplot As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsInventory As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsAnnualRainfall As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsRainCount As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsTimeseries As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsGraphicsWindrose As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphics As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsClipBoxPlot As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsCliplot As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsMissingValues As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsHistogram As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsCumExceedance As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsBoxplot As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsInventory As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsAnnualRainfall As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsRainCount As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsTimeseries As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsGraphicsWindrose As ToolStripMenuItem Friend WithEvents mnuClimateMethodsGraphicsMultipleLines As ToolStripMenuItem Friend WithEvents mnuClmateMethodThreeSummaries As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsModel As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsAdditional As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsAdditionalOutputForCPT As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsAdditionalRainsStatistics As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsAdditionalSeasonalSummary As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsAdditionalSeasonalSummaryRain As ToolStripMenuItem - Friend WithEvents mnuClimateMethodsAdditionalWaterBalance As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsModel As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsAdditional As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsAdditionalOutputForCPT As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsAdditionalRainsStatistics As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsAdditionalSeasonalSummary As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain As ToolStripMenuItem + Friend WithEvents mnuClimaticClimateMethodsAdditionalWaterBalance As ToolStripMenuItem Friend WithEvents mnuClimateMethodsCreateClimateObject As ToolStripMenuItem Friend WithEvents ToolStripSeparator24 As ToolStripSeparator Friend WithEvents mnuClimaticFile As ToolStripMenuItem @@ -4039,8 +4039,8 @@ Partial Class frmMain Friend WithEvents mnuPrepareColumnGenerateCountInFactor As ToolStripMenuItem Friend WithEvents ToolStripSeparator25 As ToolStripSeparator Friend WithEvents mnuPrepareColumnDate As ToolStripMenuItem - Friend WithEvents mnuPrepareColumnGenerateDate As ToolStripMenuItem - Friend WithEvents mnuPrepareColumnUseDate As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnDateGenerateDate As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnDateUseDate As ToolStripMenuItem Friend WithEvents mnuFileConvert As ToolStripMenuItem Friend WithEvents mnuModelProbabilityDistributionsShowModel As ToolStripMenuItem Friend WithEvents mnuDescribeMultivariate As ToolStripMenuItem @@ -4060,9 +4060,9 @@ Partial Class frmMain Friend WithEvents mnuDescribeSpecificDotPlot As ToolStripMenuItem Friend WithEvents mnuDescribeSpecificRugPlot As ToolStripMenuItem Friend WithEvents mnuDescribeSpecificBarChart As ToolStripMenuItem - Friend WithEvents mnuPrepareColumnMakeDate As ToolStripMenuItem - Friend WithEvents mnuPrepareColumnMakeTime As ToolStripMenuItem - Friend WithEvents mnuPrepareColumnUseTime As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnDateMakeDate As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnDateMakeTime As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnDateUseTime As ToolStripMenuItem Friend WithEvents mnuPrepareCheckDataExportOpenRefine As ToolStripMenuItem Friend WithEvents mnuPrepareCheckDataImportOpenRefine As ToolStripMenuItem Friend WithEvents ToolStripSeparator27 As ToolStripSeparator @@ -4072,7 +4072,7 @@ Partial Class frmMain Friend WithEvents mnuHelpGetingStarted As ToolStripMenuItem Friend WithEvents ToolStripSeparator28 As ToolStripSeparator Friend WithEvents mnuHelpMenus As ToolStripMenuItem - Friend WithEvents mnuHelpR As ToolStripMenuItem + Friend WithEvents mnuHelpAboutR As ToolStripMenuItem Friend WithEvents mnuHelpRPackagesCommands As ToolStripMenuItem Friend WithEvents mnuHelpDataset As ToolStripMenuItem Friend WithEvents ToolStripSeparator29 As ToolStripSeparator @@ -4093,8 +4093,8 @@ Partial Class frmMain Friend WithEvents mnuClimaticPICSATemperature As ToolStripMenuItem Friend WithEvents mnuClimaticPICSACrops As ToolStripMenuItem Friend WithEvents mnuClimaticSCF As ToolStripMenuItem - Friend WithEvents mnuClimaticModels As ToolStripMenuItem - Friend WithEvents mnuClimaticModelsMarkovModelling As ToolStripMenuItem + Friend WithEvents mnuClimaticModel As ToolStripMenuItem + Friend WithEvents mnuClimaticModelMarkovModelling As ToolStripMenuItem Friend WithEvents mnuClimaticDescribeSunshineRadiation As ToolStripMenuItem Friend WithEvents mnuClimaticDescribeGeneral As ToolStripMenuItem Friend WithEvents mnuClimaticSCFSupportExporttoCPT As ToolStripMenuItem @@ -4107,7 +4107,7 @@ Partial Class frmMain Friend WithEvents mnuClimaticSCFSupportCanonicalCorrelations As ToolStripMenuItem Friend WithEvents mnuClimaticPrepareUnstackDailyData As ToolStripMenuItem Friend WithEvents mnuClimaticDefineClimaticData As ToolStripMenuItem - Friend WithEvents mnuPrepareCalculateDuplicateColumn As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnCalculateDuplicateColumn As ToolStripMenuItem Friend WithEvents mnuProcurement As ToolStripMenuItem Friend WithEvents mnuProcurementPrepare As ToolStripMenuItem Friend WithEvents mnuProcurementDescribe As ToolStripMenuItem @@ -4120,7 +4120,7 @@ Partial Class frmMain Friend WithEvents mnuPrepareKeysAndLinksViewAndRemoveKeys As ToolStripMenuItem Friend WithEvents mnuPrepareKeysAndLinksAddComment As ToolStripMenuItem Friend WithEvents mnuClimaticModelsExtremes As ToolStripMenuItem - Friend WithEvents mnuClimaticModelsCircular As ToolStripMenuItem + Friend WithEvents mnuClimaticModelCircular As ToolStripMenuItem Friend WithEvents ToolStripSeparator15 As ToolStripSeparator Friend WithEvents mnuClimaticPrepareClimaticSummaries As ToolStripMenuItem Friend WithEvents mnuClimaticCheckDataInventory As ToolStripMenuItem @@ -4165,7 +4165,7 @@ Partial Class frmMain Friend WithEvents ucrLogWindow As ucrLog Friend WithEvents ucrScriptWindow As ucrScript Friend WithEvents mnuClimaticFileOpenGriddedData As ToolStripMenuItem - Friend WithEvents RatingDataToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuDescribeOneVariableRatingData As ToolStripMenuItem Friend WithEvents mnuPrepareFactorViewLabels As ToolStripMenuItem Friend WithEvents mnuDescribeViewGraph As ToolStripMenuItem Friend WithEvents mnuClimaticDates As ToolStripMenuItem @@ -4180,20 +4180,20 @@ Partial Class frmMain Friend WithEvents mnuClimaticPrepareExtremes As ToolStripMenuItem Friend WithEvents mnuClimaticPrepareEndOfRains As ToolStripMenuItem Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem - Friend WithEvents ExportDataSetToolStripMenuItem As ToolStripMenuItem - Friend WithEvents ExportRWorkspaceToolStripMenuItem As ToolStripMenuItem - Friend WithEvents ExportGraphAsImageToolStripMenuItem As ToolStripMenuItem - Friend WithEvents ExportRObjectsToolStripMenuItem As ToolStripMenuItem - Friend WithEvents FrequencyTablesToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuFileExportExportDataSet As ToolStripMenuItem + Friend WithEvents mnuFileExportExportRWorkspace As ToolStripMenuItem + Friend WithEvents mnuFileExportExportGraphAsImage As ToolStripMenuItem + Friend WithEvents mnuFileExportExportRObjectsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuDescribeGeneralUseSummaries As ToolStripMenuItem Friend WithEvents ToolStripSeparator38 As ToolStripSeparator Friend WithEvents mnuClimaticDescribeWindSpeedDirectionWindRose As ToolStripMenuItem - Friend WithEvents CummulativeDistributionToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuDescribeSpecificCummulativeDistribution As ToolStripMenuItem Friend WithEvents mnuProcurementUseCRISummariseCRIbyCountry As ToolStripMenuItem Friend WithEvents mnuPrepareCheckDataDuplicates As ToolStripMenuItem Friend WithEvents mnuClimaticCheckDataBoxplot As ToolStripMenuItem Friend WithEvents mnuCMSAF As ToolStripMenuItem Friend WithEvents mnuClimaticCMSAFPlotRegion As ToolStripMenuItem - Friend WithEvents mnuPrepareColumnInfillMissingDates As ToolStripMenuItem + Friend WithEvents mnuPrepareColumnDateInfillMissingDates As ToolStripMenuItem Friend WithEvents mnuTbOpenFromLibrary As ToolStripButton Friend WithEvents mnuTbDataView As ToolStripButton Friend WithEvents mnuTbOutput As ToolStripButton @@ -4215,16 +4215,16 @@ Partial Class frmMain Friend WithEvents ToolStripSeparator37 As ToolStripSeparator Friend WithEvents ToolStripSeparator42 As ToolStripSeparator Friend WithEvents ToolStripSeparator43 As ToolStripSeparator - Friend WithEvents SummariseRedFlagsByCountryorOtherToolStripMenuItem As ToolStripMenuItem - Friend WithEvents SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem As ToolStripMenuItem - Friend WithEvents OneVariableSummariseToolStripMenuItem As ToolStripMenuItem - Friend WithEvents OneVariableGraphToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuProcurementPrepareSummariseRedFlagsByCountryorOther As ToolStripMenuItem + Friend WithEvents mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeOneVariableSummarise As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeOneVariableGraph As ToolStripMenuItem Friend WithEvents ToolStripSeparator44 As ToolStripSeparator - Friend WithEvents MappingToolStripMenuItem As ToolStripMenuItem - Friend WithEvents MapCountryValuesToolStripMenuItem As ToolStripMenuItem - Friend WithEvents mnuProcurementDefineCorruption As ToolStripMenuItem + Friend WithEvents mnuProcurementMapping As ToolStripMenuItem + Friend WithEvents mnuProcurementMappingMapCountryValues As ToolStripMenuItem + Friend WithEvents mnuProcurementModelDefineCorruption As ToolStripMenuItem Friend WithEvents ToolStripSeparator45 As ToolStripSeparator - Friend WithEvents mnuProcurementCalculateCRI As ToolStripMenuItem + Friend WithEvents mnuProcurementCTFVCalculateCRI As ToolStripMenuItem Friend WithEvents mnuFileImportandTidyNetCDFFile As ToolStripMenuItem Friend WithEvents mnuDescribeSpecificMosaic As ToolStripMenuItem Friend WithEvents mnuDescribeSpecificParallelCoordinatePlot As ToolStripMenuItem @@ -4274,18 +4274,18 @@ Partial Class frmMain Friend WithEvents mnuClimaticCMSAFExporttoCMSAFRToolbox As ToolStripMenuItem Friend WithEvents mnuClimaticPrepareConversions As ToolStripMenuItem Friend WithEvents mnuHelpAcknowledgments As ToolStripMenuItem - Friend WithEvents CategoricalToolStripMenuItem As ToolStripMenuItem - Friend WithEvents NumericToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeCategorical As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeNumeric As ToolStripMenuItem Friend WithEvents mnuProcurementDescribeCategoricalOneVarFreq As ToolStripMenuItem Friend WithEvents mnuProcurementDescribeCategoricalTwoVarFreq As ToolStripMenuItem - Friend WithEvents CorrelationsRedFlagsOrOthersToolStripMenuItem As ToolStripMenuItem - Friend WithEvents BarChartsToolStripMenuItem As ToolStripMenuItem - Friend WithEvents MosaicPlotToolStripMenuItem As ToolStripMenuItem - Friend WithEvents BoxplotToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeCategoricalBarCharts As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeCategoricalMosaic As ToolStripMenuItem + Friend WithEvents mnuProcurementDescribeNumericBoxplot As ToolStripMenuItem Friend WithEvents ToolStripSeparator52 As ToolStripSeparator Friend WithEvents HistogramToolStripMenuItem As ToolStripMenuItem Friend WithEvents ToolStripSeparator53 As ToolStripSeparator - Friend WithEvents OpenFromLibraryToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnuProcurementOpenFromLibrary As ToolStripMenuItem Friend WithEvents mnuClimaticTidyandExamineUnstack As ToolStripMenuItem Friend WithEvents mnuClimaticTidyandExamineStack As ToolStripMenuItem Friend WithEvents mnuClimaticTidyandExamineAppend As ToolStripMenuItem @@ -4300,7 +4300,7 @@ Partial Class frmMain Friend WithEvents mnuClimaticTidyandExamineDuplicates As ToolStripMenuItem Friend WithEvents mnuClimaticTidyandExamineOneVariableGraph As ToolStripMenuItem Friend WithEvents mnuClimaticTidyandExamineOneVariableFrequencies As ToolStripMenuItem - Friend WithEvents UseModelToolStripMenuItem As ToolStripMenuItem - Friend WithEvents mnuCumExeedenceGraph As ToolStripMenuItem + Friend WithEvents mnuModelUseModel As ToolStripMenuItem + Friend WithEvents mnuClimaticPICSACumExeedenceGraph As ToolStripMenuItem Friend WithEvents mnuClimaticCheckDataQCTemperatures As ToolStripMenuItem End Class diff --git a/instat/frmMain.resx b/instat/frmMain.resx index 76c945489c8..fcc6514c925 100644 --- a/instat/frmMain.resx +++ b/instat/frmMain.resx @@ -119,61 +119,61 @@ - 146, 22 + 172, 26 Summarise... - 146, 22 + 172, 26 Graph... - 143, 6 + 169, 6 - 146, 22 + 172, 26 Frequencies... - - 146, 22 + + 172, 26 - + Rating Data... - 172, 22 + 203, 26 One Variable - 146, 22 + 171, 26 Summarise... - 146, 22 + 171, 26 Graph... - 143, 6 + 168, 6 - 146, 22 + 171, 26 Frequencies... - 172, 22 + 203, 26 Two Variables @@ -183,7 +183,7 @@ False - 142, 22 + 166, 26 Summarise... @@ -192,34 +192,34 @@ False - 142, 22 + 166, 26 Graph... - 139, 6 + 163, 6 - 142, 22 + 166, 26 Frequencies - 172, 22 + 203, 26 Three Variables - 209, 22 + 249, 26 Frequency Tables... - 209, 22 + 249, 26 Summary Tables... @@ -228,34 +228,34 @@ False - 209, 22 + 249, 26 Multiple Response... - 206, 6 + 246, 6 - 209, 22 + 249, 26 Scatter Plot... - 209, 22 + 249, 26 Line Plot... - 209, 22 + 249, 26 Histogram... - 209, 22 + 249, 26 Boxplot... @@ -264,121 +264,121 @@ False - 209, 22 + 249, 26 Dot Plot... - 209, 22 + 249, 26 Rug Plot... - 209, 22 + 249, 26 Bar Chart... - - 209, 22 + + 249, 26 - + Cumulative Distribution... - 209, 22 + 249, 26 Parallel Coordinate Plot... - 209, 22 + 249, 26 Mosaic Plot... - 172, 22 + 203, 26 Specific - 188, 22 + 221, 26 Column Summaries... - + False - - 188, 22 + + 221, 26 - + Tabulation... - - 188, 22 + + 221, 26 - + Graphics... - 185, 6 + 218, 6 - - 188, 22 + + 221, 26 - + Use Summaries... - 172, 22 + 203, 26 General - 169, 6 + 200, 6 - 203, 22 + 242, 26 Correlations... - 203, 22 + 242, 26 Principal Components... - 203, 22 + 242, 26 Canonical Correlations... - 172, 22 + 203, 26 Multivariate - 169, 6 + 200, 6 - 172, 22 + 203, 26 Use Graph... - 172, 22 + 203, 26 Combine Graphs... @@ -387,25 +387,25 @@ False - 172, 22 + 203, 26 Themes... - 172, 22 + 203, 26 View Graph... - 64, 20 + 79, 24 Describe - 242, 22 + 294, 26 Show Model... @@ -414,52 +414,52 @@ False - 242, 22 + 294, 26 Compare Models... - 242, 22 + 294, 26 Random Samples (Use Model)... - 201, 22 + 244, 26 Probability Distributions - 198, 6 + 241, 6 - 174, 22 + 207, 26 Fit Model... - 174, 22 + 207, 26 Compare Models... - 174, 22 + 207, 26 Use Model... - 201, 22 + 244, 26 One Variable - 160, 22 + 189, 26 Fit Model... @@ -468,25 +468,25 @@ False - 160, 22 + 189, 26 Choose Model... - 160, 22 + 189, 26 Use Model... - 201, 22 + 244, 26 Two Variables - 160, 22 + 189, 26 Fit Model... @@ -495,7 +495,7 @@ False - 160, 22 + 189, 26 Choose Model... @@ -504,19 +504,19 @@ False - 160, 22 + 189, 26 Use Model... - 201, 22 + 244, 26 Three Variables - 160, 22 + 189, 26 Fit Model... @@ -525,7 +525,7 @@ False - 160, 22 + 189, 26 Choose Model... @@ -534,19 +534,19 @@ False - 160, 22 + 189, 26 Use Model... - 201, 22 + 244, 26 Four Variables - 160, 22 + 189, 26 Fit Model... @@ -555,7 +555,7 @@ False - 160, 22 + 189, 26 Choose Model... @@ -564,40 +564,40 @@ False - 160, 22 + 189, 26 Use Model... - 201, 22 + 244, 26 General - 198, 6 + 241, 6 - 201, 22 + 244, 26 Hypothesis Tests... - 201, 22 + 244, 26 Model... - - 201, 22 + + 244, 26 - + Use Model... - 166, 22 + 196, 26 Exact Results... @@ -606,7 +606,7 @@ False - 166, 22 + 196, 26 Summary Data... @@ -615,7 +615,7 @@ False - 166, 22 + 196, 26 Non Parametric... @@ -624,7 +624,7 @@ False - 166, 22 + 196, 26 Goodness of Fit... @@ -633,7 +633,7 @@ False - 201, 22 + 244, 26 Other (One Variable) @@ -642,7 +642,7 @@ False - 266, 22 + 320, 26 Two Samples... @@ -651,19 +651,19 @@ False - 266, 22 + 320, 26 Summary Data... - 266, 22 + 320, 26 Simple Regression... - 266, 22 + 320, 26 One Way ANOVA... @@ -672,13 +672,13 @@ False - 266, 22 + 320, 26 Non Parametric Two Samples... - 266, 22 + 320, 26 Non Parameteric One Way ANOVA... @@ -687,7 +687,7 @@ False - 201, 22 + 244, 26 Other (Two Variables) @@ -696,19 +696,19 @@ False - 260, 22 + 312, 26 Simple With Groups... - 260, 22 + 312, 26 Non Parametric Two Way ANOVA... - 260, 22 + 312, 26 Chi-square Test... @@ -717,7 +717,7 @@ False - 201, 22 + 244, 26 Other (Three Variable) @@ -726,7 +726,7 @@ False - 166, 22 + 198, 26 ANOVA General... @@ -735,7 +735,7 @@ False - 166, 22 + 198, 26 Regression... @@ -744,7 +744,7 @@ False - 166, 22 + 198, 26 Log Linear... @@ -753,13 +753,13 @@ False - 201, 22 + 244, 26 Other (General) - 53, 20 + 64, 24 Model @@ -768,7 +768,7 @@ False - 212, 22 + 259, 26 Examine... @@ -780,7 +780,7 @@ False - 212, 22 + 259, 26 Process... @@ -792,7 +792,7 @@ False - 127, 22 + 145, 26 Site... @@ -801,13 +801,13 @@ False - 127, 22 + 145, 26 Penman... - 212, 22 + 259, 26 Evaporation @@ -815,26 +815,26 @@ False - + False - - 209, 22 + + 253, 26 - + Crop Coefficients... - + False - - 209, 22 + + 253, 26 - + Water Satisfaction Index... - 212, 22 + 259, 26 Crop @@ -846,7 +846,7 @@ False - 212, 22 + 259, 26 Heat Sum... @@ -855,145 +855,145 @@ False - 210, 22 + 252, 26 Data View - 210, 22 + 252, 26 Output Window - 210, 22 + 252, 26 Log Window - 210, 22 + 252, 26 Script Window - 210, 22 + 252, 26 Column Metadata - 210, 22 + 252, 26 Data Frame Metadata - 207, 6 + 249, 6 - 210, 22 + 252, 26 Climatic Menu - 210, 22 + 252, 26 Procurement Menu - 210, 22 + 252, 26 Options by Context Menu - 207, 6 + 249, 6 - 210, 22 + 252, 26 Reset to Default Layout - 44, 20 + 53, 24 View - 221, 22 + 265, 26 Introduction - 221, 22 + 265, 26 History and FAQ - 221, 22 + 265, 26 Getting Started - 218, 6 + 262, 6 - 221, 22 + 265, 26 Windows - 221, 22 + 265, 26 Data View (Spreadsheet) - 221, 22 + 265, 26 Menus and Dialogs - - 221, 22 + + 265, 26 - + About R - 221, 22 + 265, 26 R Packages and Commands - 221, 22 + 265, 26 Datasets - 218, 6 + 262, 6 - 166, 22 + 199, 26 Case Study Guide - 166, 22 + 199, 26 Glossary @@ -1002,13 +1002,13 @@ False - 166, 22 + 199, 26 More... - 221, 22 + 265, 26 Guides @@ -1017,25 +1017,25 @@ False - 221, 22 + 265, 26 About R-Instat - 221, 22 + 265, 26 Licence... - 221, 22 + 265, 26 Acknowlegments - 44, 20 + 53, 24 Help @@ -1044,37 +1044,37 @@ 538, 56 - 209, 6 + 256, 6 638, 56 - 212, 22 + 256, 26 Open SST... - 212, 22 + 256, 26 Open Gridded Data (IRI)... - 212, 22 + 256, 26 Import and Tidy NetCDF... - 212, 22 + 256, 26 Open and Tidy Shapefile... - 212, 22 + 256, 26 Import From CLIMSOFT... @@ -1083,127 +1083,127 @@ False - 212, 22 + 256, 26 Import From CLIDATA... - 209, 6 + 253, 6 - 212, 22 + 256, 26 Export to CPT... - 212, 22 + 259, 26 File - 209, 6 + 256, 6 - 211, 22 + 255, 26 Tidy Daily Data... - 211, 22 + 255, 26 Non-numeric Cases... - 211, 22 + 255, 26 Replace Values... - 211, 22 + 255, 26 Duplicates... - 208, 6 + 252, 6 - 211, 22 + 255, 26 Stack... - 211, 22 + 255, 26 Unstack... - 211, 22 + 255, 26 Merge... - 211, 22 + 255, 26 Append... - 208, 6 + 252, 6 - 211, 22 + 255, 26 One Variable Summarise... - 211, 22 + 255, 26 One Variable Graph... - 211, 22 + 255, 26 One Variable Frequencies - 212, 22 + 259, 26 Tidy and Examine - 182, 22 + 218, 26 Generate Dates... - 182, 22 + 218, 26 Make Date... - 182, 22 + 218, 26 Infill Missing Dates... - 182, 22 + 218, 26 Use Date... @@ -1212,7 +1212,7 @@ False - 182, 22 + 218, 26 Make Time... @@ -1221,136 +1221,136 @@ False - 182, 22 + 218, 26 Use Time... - 212, 22 + 259, 26 Dates - 212, 22 + 259, 26 Define Climatic Data... - 175, 22 + 207, 26 Inventory... - 175, 22 + 207, 26 Display Daily... - 175, 22 + 207, 26 Boxplot... - 175, 22 + 207, 26 QC Temperatures... - 175, 22 + 207, 26 QC Rainfall... - 212, 22 + 259, 26 Check Data - 189, 22 + 224, 26 Transform... - 189, 22 + 224, 26 Conversions... - 189, 22 + 224, 26 Compare... - 186, 6 + 221, 6 - 189, 22 + 224, 26 Climatic Summaries... - 189, 22 + 224, 26 Start of the Rains... - 189, 22 + 224, 26 End of Rains... - 189, 22 + 224, 26 Length of Season... - 189, 22 + 224, 26 Spells... - 189, 22 + 224, 26 Extremes... - 186, 6 + 221, 6 - 189, 22 + 224, 26 Climdex... - 189, 22 + 224, 26 SPI... - 186, 6 + 221, 6 - 189, 22 + 224, 26 Evapotranspiration... @@ -1359,7 +1359,7 @@ False - 189, 22 + 224, 26 Summary... @@ -1371,7 +1371,7 @@ False - 189, 22 + 224, 26 New Worksheet... @@ -1383,7 +1383,7 @@ False - 189, 22 + 224, 26 Import daily Data... @@ -1395,7 +1395,7 @@ False - 189, 22 + 224, 26 Make Factor... @@ -1407,7 +1407,7 @@ False - 189, 22 + 224, 26 Shift Daily Data... @@ -1419,7 +1419,7 @@ False - 189, 22 + 224, 26 Unstack Daily Data... @@ -1431,7 +1431,7 @@ False - 189, 22 + 224, 26 Stack Daily data... @@ -1440,19 +1440,19 @@ False - 212, 22 + 259, 26 Prepare - 209, 6 + 256, 6 False - 199, 22 + 241, 26 Rainfall... @@ -1461,19 +1461,19 @@ False - 199, 22 + 241, 26 Temperature... - 139, 22 + 164, 26 Wind Rose... - 199, 22 + 241, 26 Wind Speed/Direction... @@ -1482,286 +1482,286 @@ False - 199, 22 + 241, 26 Sunshine/Radiation... - 196, 6 + 238, 6 False - 199, 22 + 241, 26 General - 196, 6 + 238, 6 - 212, 22 + 259, 26 Describe - 245, 22 + 295, 26 Rainfall Graph... - - 245, 22 + + 295, 26 - + Cumulative/Exceedance Graph... False - 245, 22 + 295, 26 Temperature... - 245, 22 + 295, 26 Crops... - 212, 22 + 259, 26 PICSA - 230, 22 + 280, 26 Plot Region... - 230, 22 + 280, 26 Export to CM SAF R Toolbox... - 212, 22 + 259, 26 CM SAF - 212, 22 + 259, 26 Mapping... - 180, 22 + 214, 26 Extremes... - + False - - 180, 22 + + 214, 26 - + Circular... - - 180, 22 + + 214, 26 - + Markov Modelling... - - 212, 22 + + 259, 26 - + Model - 209, 6 + 256, 6 - 245, 22 + 295, 26 Open SST... - 245, 22 + 295, 26 Export to CPT... - 242, 6 + 292, 6 - 245, 22 + 295, 26 Correlations... - 245, 22 + 295, 26 Principal Components... - 245, 22 + 295, 26 Canonical Correlations... - 245, 22 + 295, 26 Cumulative/Exceedance Graph... - 212, 22 + 259, 26 Seasonal Forecast Support - + False - - 227, 22 + + 271, 26 - + Start of Rain... - + False - - 227, 22 + + 271, 26 - + End of Rain... - + False - - 227, 22 + + 271, 26 - + Change Format Day Month... - + False - - 227, 22 + + 271, 26 - + Export CPT to Tabular... - + False - - 227, 22 + + 271, 26 - + Day Month... - + False - - 227, 22 + + 271, 26 - + Display Daily... - + False - - 227, 22 + + 271, 26 - + Display DOY of Year... - + False - - 227, 22 + + 271, 26 - + Display Rain Running Total... - + False - - 227, 22 + + 271, 26 - + Display Spell Length... - + False - - 227, 22 + + 271, 26 - + Export for PICSA... - + False - - 227, 22 + + 271, 26 - + Extreme Events... - + False - - 227, 22 + + 271, 26 - + Missing Data... - + False - - 227, 22 + + 271, 26 - + Missing Data Table... False - 227, 22 + 271, 26 Monthly Summaries... @@ -1770,121 +1770,121 @@ False - 227, 22 + 271, 26 Output for CDT... - - 199, 22 + + 239, 26 - + Data Manipulation - + False - - 219, 22 + + 262, 26 - + Cliboxplot... - + False - - 219, 22 + + 262, 26 - + Cliplot... - + False - - 219, 22 + + 262, 26 - + Missing Values... - + False - - 219, 22 + + 262, 26 - + Histogram... - + False - - 219, 22 + + 262, 26 - + Cummulative Exceedance... - + False - - 219, 22 + + 262, 26 - + Boxplot... - + False - - 219, 22 + + 262, 26 - + Inventory... - + False - - 219, 22 + + 262, 26 - + Annual Rainfall... - + False - - 219, 22 + + 262, 26 - + Rain Count... - + False - - 219, 22 + + 262, 26 - + Timeseries... - + False - - 219, 22 + + 262, 26 - + Windrose... False - 219, 22 + 262, 26 Multple Lines... @@ -1893,97 +1893,97 @@ False - 219, 22 + 262, 26 Three Summaries... - - 199, 22 + + 239, 26 - + Graphics - + False - - 199, 22 + + 239, 26 - + Model... - + False - - 209, 22 + + 251, 26 - + Output for CPT... - + False - - 209, 22 + + 251, 26 - + Rains Statistics... - + False - - 209, 22 + + 251, 26 - + Seasonal Summary... - + False - - 209, 22 + + 251, 26 - + Seasonal Summary Rain... - + False - - 209, 22 + + 251, 26 - + Water Balance... - - 199, 22 + + 239, 26 - + Additional False - 199, 22 + 239, 26 Create Climate Object... - - 212, 22 + + 259, 26 - + Climate Methods - + False - 63, 20 + 75, 24 Climatic @@ -1993,37 +1993,37 @@ Ctrl+S - 233, 22 + 281, 26 Save... - 211, 22 + 253, 26 Save Data As... - 211, 22 + 253, 26 Save Output Window As... - 211, 22 + 253, 26 Save Log As... - 211, 22 + 253, 26 Save Script Window As... - 233, 22 + 281, 26 Save As @@ -2035,7 +2035,7 @@ Ctrl+P - 233, 22 + 281, 26 Print... @@ -2044,16 +2044,16 @@ False - 233, 22 + 281, 26 Print Preview... - 230, 6 + 278, 6 - 233, 22 + 281, 26 Exit @@ -2065,7 +2065,7 @@ Ctrl+F - 183, 22 + 220, 26 Find @@ -2074,7 +2074,7 @@ False - 183, 22 + 220, 26 Find Next @@ -2083,7 +2083,7 @@ False - 183, 22 + 220, 26 Replace @@ -2095,7 +2095,7 @@ Ctrl+X - 183, 22 + 220, 26 Cut @@ -2104,7 +2104,7 @@ Ctrl+C - 183, 22 + 220, 26 Copy @@ -2116,7 +2116,7 @@ Ctrl+Y - 183, 22 + 220, 26 Copy Special @@ -2128,7 +2128,7 @@ Ctrl+V - 183, 22 + 220, 26 Paste @@ -2137,13 +2137,13 @@ Ctrl+A - 183, 22 + 220, 26 Select All - 39, 20 + 47, 24 Edit @@ -2155,16 +2155,19 @@ 946, 56 - 119, 17 + 151, 20 No worksheet loaded - 0, 460 + 0, 568 + + + 1, 0, 19, 0 - 834, 22 + 1112, 25 8 @@ -2191,7 +2194,7 @@ Magenta - 46, 34 + 49, 34 &Open @@ -2251,13 +2254,13 @@ Edit Last Dialog - 57, 6 + 63, 6 False - 57, 6 + 63, 6 False @@ -2266,7 +2269,7 @@ Magenta - 43, 34 + 44, 34 Last 10 Dialogs @@ -2341,13 +2344,13 @@ He&lp - 0, 24 + 0, 28 No - 834, 37 + 1112, 37 7 @@ -2377,7 +2380,7 @@ Ctrl+N - 233, 22 + 281, 26 New Data Frame... @@ -2386,22 +2389,22 @@ Ctrl+O - 233, 22 + 281, 26 Open From File... - 233, 22 + 281, 26 Open From Library... - 230, 6 + 278, 6 - 233, 22 + 281, 26 Open From ODK... @@ -2410,7 +2413,7 @@ False - 233, 22 + 281, 26 Open From CSPRO... @@ -2419,154 +2422,154 @@ False - 233, 22 + 281, 26 Import From Databases... - 233, 22 + 281, 26 Import and Tidy NetCDF File... - 230, 6 + 278, 6 False - 233, 22 + 281, 26 Convert... - 230, 6 + 278, 6 - - 203, 22 + + 246, 26 - + Export Dataset... - - 203, 22 + + 246, 26 - + Export R Objects... - - 203, 22 + + 246, 26 - + Export R Workspace... - - 203, 22 + + 246, 26 - + Export Graph As Image... - - 233, 22 + + 281, 26 - + Export - 233, 22 + 281, 26 Close Data File - 230, 6 + 278, 6 - 37, 20 + 44, 24 File - 200, 22 + 239, 26 View Data... - 200, 22 + 239, 26 Rename Column... - 200, 22 + 239, 26 Row Numbers/Names... - 197, 6 + 236, 6 - 200, 22 + 239, 26 Sort... - 200, 22 + 239, 26 Filter... - 200, 22 + 239, 26 Replace Values... - 197, 6 + 236, 6 - 200, 22 + 239, 26 Convert Columns... - 200, 22 + 239, 26 Column Metadata... - 200, 22 + 239, 26 Column Structure... - 197, 6 + 236, 6 - 200, 22 + 239, 26 Reorder Columns... - 200, 22 + 239, 26 Insert Columns/Rows... - 200, 22 + 239, 26 Delete Columns/Rows... @@ -2575,13 +2578,13 @@ False - 200, 22 + 239, 26 Protect Column... - 200, 22 + 239, 26 Hide/Show Columns... @@ -2590,325 +2593,325 @@ False - 200, 22 + 239, 26 Freeze Columns... - - 200, 22 + + 239, 26 - + Colour by Property... - 172, 22 + 203, 26 Data Frame - 245, 22 + 299, 26 Duplicates... - 245, 22 + 299, 26 Compare Columns... - 245, 22 + 299, 26 Non-numeric Cases... - 242, 6 + 296, 6 - 245, 22 + 299, 26 Boxplot... - 245, 22 + 299, 26 One Variable Summarise... - 245, 22 + 299, 26 One Variable Graph... - 245, 22 + 299, 26 One Variable Frequencies... - 242, 6 + 296, 6 - 245, 22 + 299, 26 Export To OpenRefine... - 245, 22 + 299, 26 Import From OpenRefine... - 242, 6 + 296, 6 False - 245, 22 + 299, 26 Jitter... - + False - - 245, 22 + + 299, 26 - + Prepare to Share (sdc package)... - 245, 22 + 299, 26 Anonymise ID Column... - 172, 22 + 203, 26 Check Data - 169, 6 + 200, 6 - 188, 22 + 221, 26 Calculations... - 188, 22 + 221, 26 Column Summaries... - 188, 22 + 221, 26 General Summaries... - 185, 6 + 218, 6 - - 188, 22 + + 221, 26 - + Duplicate Column... False - 188, 22 + 221, 26 Transform... - 188, 22 + 221, 26 Rank... - 188, 22 + 221, 26 Polynomials... - 188, 22 + 221, 26 Row Summary... - 172, 22 + 203, 26 Column: Calculate - 179, 22 + 212, 26 Regular Sequence... - 179, 22 + 212, 26 Count in Factor... - 176, 6 + 209, 6 - 179, 22 + 212, 26 Enter... - 179, 22 + 212, 26 Random Samples... - 179, 22 + 212, 26 Permute Columns... - 172, 22 + 203, 26 Column: Generate - 179, 22 + 214, 26 Convert To Factor... - 179, 22 + 214, 26 Recode Numeric... - 176, 6 + 211, 6 - 179, 22 + 214, 26 Recode Factor... - 179, 22 + 214, 26 Combine Factors... - 179, 22 + 214, 26 Dummy Variables... - 176, 6 + 211, 6 - 179, 22 + 214, 26 Levels/Labels... - 179, 22 + 214, 26 View Labels... - 179, 22 + 214, 26 Reorder Levels... - 179, 22 + 214, 26 Reference Level... - 179, 22 + 214, 26 Unused Levels... - 179, 22 + 214, 26 Contrasts... - 176, 6 + 211, 6 - 179, 22 + 214, 26 Factor Data Frame... - 172, 22 + 203, 26 Column: Factor - 152, 22 + 180, 26 Find/Replace... - 152, 22 + 180, 26 Transform... - 152, 22 + 180, 26 Split... - 152, 22 + 180, 26 Combine... @@ -2917,172 +2920,172 @@ False - 152, 22 + 180, 26 Match... - 152, 22 + 180, 26 Distance... - 172, 22 + 203, 26 Column: Text - - 182, 22 + + 218, 26 - + Generate Dates... - - 182, 22 + + 218, 26 - + Make Date... - - 182, 22 + + 218, 26 - + Infill Missing Dates... - - 182, 22 + + 218, 26 - + Use Date... - + False - - 182, 22 + + 218, 26 - + Make Time... - + False - - 182, 22 + + 218, 26 - + Use Time... - 172, 22 + 203, 26 Column: Date - 193, 22 + 233, 26 Column Summaries... - 193, 22 + 233, 26 General Summaries... - 190, 6 + 230, 6 - 193, 22 + 233, 26 Stack... - 193, 22 + 233, 26 Unstack... - 193, 22 + 233, 26 Merge... - 190, 6 + 230, 6 - 193, 22 + 233, 26 Append Data Frames... - 193, 22 + 233, 26 Subset... - 193, 22 + 233, 26 Random Subset... - 193, 22 + 233, 26 Transpose... - 172, 22 + 203, 26 Column: Reshape - 169, 6 + 200, 6 - 207, 22 + 248, 26 Add Key... - 207, 22 + 248, 26 View and Remove Keys... - 207, 22 + 248, 26 Add Link... - 207, 22 + 248, 26 View and Remove Links... - 207, 22 + 248, 26 Add Comment... - 172, 22 + 203, 26 Keys and Links @@ -3091,13 +3094,13 @@ False - 196, 22 + 238, 26 Data Frame Metadata... - 196, 22 + 238, 26 Rename Data Frame... @@ -3106,34 +3109,34 @@ False - 196, 22 + 238, 26 Reorder Data Frames... - 196, 22 + 238, 26 Copy Data Frame... - 196, 22 + 238, 26 Delete Data Frames... - 193, 6 + 235, 6 - 196, 22 + 238, 26 Hide Dataframes... - 196, 22 + 238, 26 Metadata... @@ -3142,7 +3145,7 @@ False - 196, 22 + 238, 26 Rename Metadata... @@ -3151,7 +3154,7 @@ False - 196, 22 + 238, 26 Reorder Metadata... @@ -3160,349 +3163,349 @@ False - 196, 22 + 238, 26 Delete Metadata... - 172, 22 + 203, 26 Data Object - 126, 22 + 147, 26 View... - 126, 22 + 147, 26 Rename... - 126, 22 + 147, 26 Reorder... - 126, 22 + 147, 26 Delete... - 172, 22 + 203, 26 R Objects - 59, 20 + 72, 24 Prepare - - 216, 22 + + 263, 26 - + Open From Library... - 216, 22 + 263, 26 Define Procurement Data... - 358, 22 + 437, 26 Filter by Country (or other)... - 355, 6 + 434, 6 - 358, 22 + 437, 26 Define Contract Value Categories... - 358, 22 + 437, 26 Recode Numeric into Quantiles... - 358, 22 + 437, 26 Set Factor Reference Level... - 358, 22 + 437, 26 Use Award Date (or other)... - 355, 6 + 434, 6 - - 358, 22 + + 437, 26 - + Summarise Red Flags by Country (or other)... - - 358, 22 + + 437, 26 - + Summarise Red Flags by Country and Year (or other)... - 358, 22 + 437, 26 Merge Additional Data... - 216, 22 + 263, 26 Prepare - - 211, 22 + + 255, 26 - + One Variable Summarise... - - 211, 22 + + 255, 26 - + One Variable Graph... - 208, 6 + 252, 6 - 320, 22 + 393, 26 One Variable Frequencies... - 320, 22 + 393, 26 Two Variable Frequencies by Sector (or other)... - 317, 6 + 390, 6 - - 320, 22 + + 393, 26 - + Bar Chart... - - 320, 22 + + 393, 26 - + Mosaic Plot... - - 211, 22 + + 255, 26 - + Categorical - - 258, 22 + + 314, 26 - + Boxplot... - 258, 22 + 314, 26 Histogram... - 255, 6 + 311, 6 - - 258, 22 + + 314, 26 - + Correlations (Red Flags or others)... - - 211, 22 + + 255, 26 - + Numeric - 216, 22 + 263, 26 Describe - - 189, 22 + + 224, 26 - + Map Country Values... - - 216, 22 + + 263, 26 - + Mapping - - 292, 22 + + 356, 26 - + Define Corruption Risk Output Variables... - 292, 22 + 356, 26 Fit Model... - 216, 22 + 263, 26 Model - 213, 6 + 260, 6 - 216, 22 + 263, 26 Define Red Flag Variables... - - 278, 22 + + 335, 26 - + Calculate Corruption Risk Index (CRI)... - 278, 22 + 335, 26 Summarise CRI by Country (or other)... - 216, 22 + 263, 26 Corruption Risk Index - 88, 20 + 105, 24 Procurement - 215, 22 + 260, 26 Duplicates... - 215, 22 + 260, 26 Compare Columns... - 212, 6 + 257, 6 - 215, 22 + 260, 26 One Variable Summarise... - 215, 22 + 260, 26 One Variable Graph... - 215, 22 + 260, 26 One Variable Frequencies... - 249, 22 + 304, 26 Check Data - 249, 22 + 304, 26 Define Options by Context Data... - 282, 22 + 344, 26 Calculate DIfference Between Options... - 279, 6 + 341, 6 - 282, 22 + 344, 26 Merge Additional Data... - 282, 22 + 344, 26 Stack... - 282, 22 + 344, 26 Unstack... - 249, 22 + 304, 26 Prepare - 224, 22 + 269, 26 Compare Two Options... @@ -3511,43 +3514,43 @@ False - 224, 22 + 269, 26 Compare Multiple Options... - 224, 22 + 269, 26 Boxplot... - 249, 22 + 304, 26 Describe - 176, 22 + 211, 26 Fit Model... - 176, 22 + 211, 26 General Fit Model... - 249, 22 + 304, 26 Model - 121, 20 + 148, 24 Options by Context @@ -3556,7 +3559,7 @@ False - 198, 22 + 236, 26 Run R Code... @@ -3565,7 +3568,7 @@ False - 198, 22 + 236, 26 Restart R @@ -3574,25 +3577,25 @@ False - 198, 22 + 236, 26 Check for Updates... - 198, 22 + 236, 26 Clear Output Window... - 195, 6 + 233, 6 False - 198, 22 + 236, 26 Save Current Options... @@ -3601,19 +3604,19 @@ False - 198, 22 + 236, 26 Load Options... - 198, 22 + 236, 26 Options... - 47, 20 + 56, 24 Tools @@ -3621,8 +3624,11 @@ 0, 0 + + 8, 2, 0, 2 + - 834, 24 + 1112, 28 6 @@ -3652,7 +3658,10 @@ Fill - 0, 61 + 0, 65 + + + 4, 4, 4, 4 Horizontal @@ -3663,12 +3672,18 @@ 0, 0 + + 4, 4, 4, 4 + Fill 0, 0 + + 4, 4, 4, 4 + Fill @@ -3676,10 +3691,10 @@ 0, 0 - 4, 5, 4, 5 + 5, 6, 5, 6 - 74, 174 + 98, 218 0 @@ -3715,10 +3730,10 @@ 0, 0 - 4, 5, 4, 5 + 5, 6, 5, 6 - 177, 174 + 236, 218 0 @@ -3748,13 +3763,13 @@ 1 - 256, 174 + 341, 218 - 74 + 98 - 5 + 7 0 @@ -3789,6 +3804,9 @@ 0, 0 + + 4, 4, 4, 4 + Fill @@ -3796,10 +3814,10 @@ 0, 0 - 4, 5, 4, 5 + 5, 6, 5, 6 - 178, 174 + 237, 218 0 @@ -3835,10 +3853,10 @@ 0, 0 - 4, 5, 4, 5 + 5, 6, 5, 6 - 390, 174 + 520, 218 0 @@ -3868,13 +3886,13 @@ 1 - 573, 174 + 764, 218 - 178 + 237 - 5 + 7 0 @@ -3904,13 +3922,13 @@ 1 - 834, 174 + 1112, 218 - 256 + 341 - 5 + 7 0 @@ -3945,6 +3963,9 @@ 0, 0 + + 4, 4, 4, 4 + Fill @@ -3952,10 +3973,10 @@ 0, 0 - 4, 5, 4, 5 + 5, 6, 5, 6 - 384, 220 + 512, 279 0 @@ -3991,10 +4012,10 @@ 0, 0 - 4, 5, 4, 5 + 5, 6, 5, 6 - 445, 220 + 593, 279 0 @@ -4024,13 +4045,13 @@ 1 - 834, 220 + 1112, 279 - 384 + 512 - 5 + 7 0 @@ -4060,13 +4081,13 @@ 1 - 834, 399 + 1112, 503 - 174 + 218 - 5 + 6 10 @@ -4090,10 +4111,10 @@ 29 - 6, 13 + 8, 16 - 834, 482 + 1112, 593 @@ -5823,6 +5844,9 @@ AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + + 4, 4, 4, 4 + R-Instat @@ -5862,10 +5886,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - RatingDataToolStripMenuItem + + mnuDescribeOneVariableRatingData - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6000,10 +6024,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CummulativeDistributionToolStripMenuItem + + mnuDescribeSpecificCummulativeDistribution - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6030,16 +6054,16 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DescribeGeneralTabulation + + mnuDescribeGeneralTabulation - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DescribeGeneralGraphics + + mnuDescribeGeneralGraphics - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6048,10 +6072,10 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - FrequencyTablesToolStripMenuItem + + mnuDescribeGeneralUseSummaries - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6288,10 +6312,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - UseModelToolStripMenuItem + + mnuModelUseModel - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6450,16 +6474,16 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CropCoefficientsToolStripMenuItem + + mnuClimaticCropCropCoefficients - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - WaterSatisfactionIndexToolStripMenuItem + + mnuClimaticCropWaterSatisfactionIndex - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6594,10 +6618,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuHelpR + + mnuHelpAboutR - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6900,6 +6924,12 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + mnuClimaticCheckDataQCTemperatures + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + mnuClimaticCheckDataQCRainfall @@ -7116,10 +7146,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuCumExeedenceGraph + + mnuClimaticPICSACumExeedenceGraph - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7158,10 +7188,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimaticModels + + mnuClimaticModel - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7170,16 +7200,16 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimaticModelsCircular + + mnuClimaticModelCircular - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimaticModelsMarkovModelling + + mnuClimaticModelMarkovModelling - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7236,94 +7266,94 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethods + + mnuClimaticClimateMethods - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulation + + mnuClimaticClimateMethodsDataManipulation - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationStartOfRain + + mnuClimaticClimateMethodsDataManipulationStartOfRain - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationEndOfRain + + mnuClimaticClimateMethodsDataManipulationEndOfRain - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationChangeFormatDayMonth + + mnuClimaticClimateMethodsDataManipulationChangeFormatDayMonth - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationExportCPTToTabular + + mnuClimaticClimateMethodsDataManipulationExportCPTToTabular - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationDayMonth + + mnuClimaticClimateMethodsDataManipulationDayMonth - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationDisplayDaily + + mnuClimaticClimateMethodsDataManipulationDisplayDaily - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationDisplayDOYOfYear + + mnuClimaticClimateMethodsDataManipulationDisplayDOYOfYear - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationDisplayRainRunningTotal + + mnuClimaticClimateMethodsDataManipulationDisplayRainRunningTotal - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationDisplaySpellLength + + mnuClimaticClimateMethodsDataManipulationDisplaySpellLength - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationExportForPICSA + + mnuClimaticClimateMethodsDataManipulationExportForPICSA - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationExtremeEvents + + mnuClimaticClimateMethodsDataManipulationExtremeEvents - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationMissingData + + mnuClimaticClimateMethodsDataManipulationMissingData - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsDataManipulationMissingDataTable + + mnuClimaticClimateMethodsDataManipulationMissingDataTable - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7338,76 +7368,76 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphics + + mnuClimaticClimateMethodsGraphics - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsClipBoxPlot + + mnuClimaticClimateMethodsGraphicsClipBoxPlot - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsCliplot + + mnuClimaticClimateMethodsGraphicsCliplot - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsMissingValues + + mnuClimaticClimateMethodsGraphicsMissingValues - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsHistogram + + mnuClimaticClimateMethodsGraphicsHistogram - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsCumExceedance + + mnuClimaticClimateMethodsGraphicsCumExceedance - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsBoxplot + + mnuClimaticClimateMethodsGraphicsBoxplot - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsInventory + + mnuClimaticClimateMethodsGraphicsInventory - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsAnnualRainfall + + mnuClimaticClimateMethodsGraphicsAnnualRainfall - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsRainCount + + mnuClimaticClimateMethodsGraphicsRainCount - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsTimeseries + + mnuClimaticClimateMethodsGraphicsTimeseries - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsGraphicsWindrose + + mnuClimaticClimateMethodsGraphicsWindrose - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7422,46 +7452,46 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsModel + + mnuClimaticClimateMethodsModel - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsAdditional + + mnuClimaticClimateMethodsAdditional - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsAdditionalOutputForCPT + + mnuClimaticClimateMethodsAdditionalOutputForCPT - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsAdditionalRainsStatistics + + mnuClimaticClimateMethodsAdditionalRainsStatistics - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsAdditionalSeasonalSummary + + mnuClimaticClimateMethodsAdditionalSeasonalSummary - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsAdditionalSeasonalSummaryRain + + mnuClimaticClimateMethodsAdditionalSeasonalSummaryRain - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimateMethodsAdditionalWaterBalance + + mnuClimaticClimateMethodsAdditionalWaterBalance - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7788,34 +7818,34 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuExport + + mnuFileExport - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ExportDataSetToolStripMenuItem + + mnuFileExportExportDataSet - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ExportRObjectsToolStripMenuItem + + mnuFileExportExportRObjectsToolStripMenuItem - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ExportRWorkspaceToolStripMenuItem + + mnuFileExportExportRWorkspace - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ExportGraphAsImageToolStripMenuItem + + mnuFileExportExportGraphAsImage - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7950,10 +7980,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ColourByPropertyToolStripMenuItem + + mnuPrepareDataframeColourByProperty - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8040,10 +8070,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuCheckDataPrePareToShareSdcPackage + + mnuPrepareCheckDataPrePareToShareSdcPackage - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8088,10 +8118,10 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareCalculateDuplicateColumn + + mnuPrepareColumnCalculateDuplicateColumn - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8304,40 +8334,40 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareColumnGenerateDate + + mnuPrepareColumnDateGenerateDate - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareColumnMakeDate + + mnuPrepareColumnDateMakeDate - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareColumnInfillMissingDates + + mnuPrepareColumnDateInfillMissingDates - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareColumnUseDate + + mnuPrepareColumnDateUseDate - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareColumnMakeTime + + mnuPrepareColumnDateMakeTime - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuPrepareColumnUseTime + + mnuPrepareColumnDateUseTime - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8562,10 +8592,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - OpenFromLibraryToolStripMenuItem + + mnuProcurementOpenFromLibrary - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8622,16 +8652,16 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SummariseRedFlagsByCountryorOtherToolStripMenuItem + + mnuProcurementPrepareSummariseRedFlagsByCountryorOther - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem + + mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8646,16 +8676,16 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - OneVariableSummariseToolStripMenuItem + + mnuProcurementDescribeOneVariableSummarise - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - OneVariableGraphToolStripMenuItem + + mnuProcurementDescribeOneVariableGraph - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8664,10 +8694,10 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CategoricalToolStripMenuItem + + mnuProcurementDescribeCategorical - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8688,28 +8718,28 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BarChartsToolStripMenuItem + + mnuProcurementDescribeCategoricalBarCharts - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MosaicPlotToolStripMenuItem + + mnuProcurementDescribeCategoricalMosaic - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - NumericToolStripMenuItem + + mnuProcurementDescribeNumeric - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BoxplotToolStripMenuItem + + mnuProcurementDescribeNumericBoxplot - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8724,22 +8754,22 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CorrelationsRedFlagsOrOthersToolStripMenuItem + + mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MappingToolStripMenuItem + + mnuProcurementMapping - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MapCountryValuesToolStripMenuItem + + mnuProcurementMappingMapCountryValues - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8748,10 +8778,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuProcurementDefineCorruption + + mnuProcurementModelDefineCorruption - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8778,10 +8808,10 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuProcurementCalculateCRI + + mnuProcurementCTFVCalculateCRI - + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8982,12 +9012,6 @@ System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - mnuClimaticCheckDataQCTemperatures - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - frmMain diff --git a/instat/frmMain.vb b/instat/frmMain.vb index 25783cb76c3..344abbe8fe9 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -1,2122 +1,2124 @@ -' R- Instat -' Copyright (C) 2015-2017 -' -' This program is free software: you can redistribute it and/or modify -' it under the terms of the GNU General Public License as published by -' the Free Software Foundation, either version 3 of the License, or -' (at your option) any later version. -' -' This program is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU General Public License for more details. -' -' You should have received a copy of the GNU General Public License -' along with this program. If not, see . - -Imports RDotNet -Imports System.IO -Imports System.Globalization -Imports System.Threading -Imports instat.Translations -Imports System.ComponentModel -Imports System.Runtime.Serialization.Formatters.Binary - -Public Class frmMain - Public clsRLink As New RLink - Public clsGrids As New clsGridLink - Public strStaticPath As String - Public strHelpFilePath As String = "Help\R-Instat.chm" - Public strAppDataPath As String - Public strInstatOptionsFile As String = "Options.bin" - Public clsInstatOptions As InstatOptions - Public clsRecentItems As New clsRecentFiles - Public strCurrentDataFrame As String - Public dlgLastDialog As Form - Public strSaveFilePath As String = "" - Private mnuItems As New List(Of Form) - Private ctrActive As Control - Private WithEvents timer As New System.Windows.Forms.Timer - Private iAutoSaveDataMilliseconds As Integer - - Public strAutoSaveDataFolderPath As String = Path.Combine(Path.GetTempPath, "R-Instat_data_auto_save") - Public strAutoSaveLogFolderPath As String = Path.Combine(Path.GetTempPath, "R-Instat_log_auto_save") - Public strAutoSaveInternalLogFolderPath As String = Path.Combine(Path.GetTempPath, "R-Instat_debug_log_auto_save") - - Public strCurrentAutoSaveDataFilePath As String = "" - - 'This is the default data frame to appear in the data frame selector - 'If "" the current worksheet will be used - 'TODO This should be an option in the Options dialog - ' User can choose a default data frame or set the default as the current worksheet - Public strDefaultDataFrame As String = "" - - Public Sub New() - - ' This call is required by the designer. - InitializeComponent() - - ' Add any initialization after the InitializeComponent() call. - End Sub - - Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load - - Dim prdCustom As New clsCustomRenderer(New clsCustomColourTable) - Dim bClose As Boolean = False - ' Note: this must change when R version changes - Dim strRPackagesPath As String = Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "R\win-library\3.6") - - mnuBar.Renderer = prdCustom - Tool_strip.Renderer = prdCustom - SetMainMenusEnabled(False) - Cursor = Cursors.WaitCursor - 'temporary - mnuHelpAboutRInstat.Visible = False - - ' This must be fixed because CurrentCulture affects functions such as Decimal.TryParse - ' e.g. "1.0" fails Decimal.TryParse if CurrentCulture = "fr-FR" because it expects "1,0" - ' Decimal point must be `.` and not `,` because R only accepts `.` - Thread.CurrentThread.CurrentCulture = New CultureInfo("en-GB") - - InitialiseOutputWindow() - clsGrids.SetDataViewer(ucrDataViewer) - clsGrids.SetMetadata(ucrDataFrameMeta.grdMetaData) - clsGrids.SetVariablesMetadata(ucrColumnMeta.grdVariables) - - clsRLink.SetLog(ucrLogWindow.txtLog) - - SetToDefaultLayout() - strStaticPath = Path.GetFullPath("static") - strAppDataPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RInstat\") - - ' We need to create the likely R package installation directory before R.NET connection is initialised - ' because of a bug in R.NET 1.8.2 where pop ups to create directories do not appear. - ' This assumes that R packages will be installed in "Documents" folder and also that - ' this is detected by "SpecialDirectories.MyDocuments". - ' If either of these fail then R packages will need to be installed from R/RStudio first. - Try - If Not Directory.Exists(strRPackagesPath) Then - System.IO.Directory.CreateDirectory(strRPackagesPath) - End If - Catch ex As Exception - ' This may fail for many reasons. We may want to inform users this may lead to packages not installing. - End Try - - bClose = AutoRecoverAndStartREngine() - If bClose Then - Application.Exit() - Else - 'Do this after setting up R Link because loading options may run R code - LoadInstatOptions() - 'Must come after loading options as options may change language. - TranslateFrmMainMenu() - - 'Do this after loading options because interval depends on options - 'Interval is in milliseconds and option is in minutes - timer.Interval = (clsInstatOptions.iAutoSaveDataMinutes * 60 * 1000) - timer.Start() - - AddHandler System.Windows.Forms.Application.Idle, AddressOf Application_Idle - - 'Sets up the Recent items - clsRecentItems.setToolStripItems(mnuFile, mnuTbOpen, mnuTbLast10Dialogs, sepStart, sepEnd) - 'checks existence of MRU list - clsRecentItems.checkOnLoad() - Cursor = Cursors.Default - SetMainMenusEnabled(True) - - mnuViewClimaticMenu.Checked = clsInstatOptions.bShowClimaticMenu - mnuViewProcurementMenu.Checked = clsInstatOptions.bShowProcurementMenu - End If - End Sub - - ' TODO This is used instead of autoTranslate so that split container isn't shifted - ' Need to fix this so that all of frmMain can be translated - Public Sub TranslateFrmMainMenu() - translateMenu(mnuBar.Items, Me) - End Sub - Private Sub SetMainMenusEnabled(bEnabled As Boolean) - mnuFile.Enabled = bEnabled - mnuEdit.Enabled = bEnabled - mnuPrepare.Enabled = bEnabled - mnuDescribe.Enabled = bEnabled - mnuModel.Enabled = bEnabled - mnuClimatic.Enabled = bEnabled - mnuProcurement.Enabled = bEnabled - mnuOptionsByContext.Enabled = bEnabled - mnuTools.Enabled = bEnabled - mnuView.Enabled = bEnabled - mnuHelp.Enabled = bEnabled - Tool_strip.Enabled = bEnabled - End Sub - - Private Sub Application_Idle(sender As Object, e As EventArgs) - If clsInstatOptions.bAutoSaveData AndAlso Not timer.Enabled AndAlso (ActiveForm Is Nothing OrElse ActiveForm.Equals(Me)) AndAlso Not clsRLink.bRCodeRunning Then - AutoSaveData() - ResetTimer() - End If - End Sub - - Public Sub ResetTimer() - If clsInstatOptions IsNot Nothing AndAlso clsInstatOptions.bAutoSaveData IsNot Nothing AndAlso clsInstatOptions.bAutoSaveData Then - timer.Interval = (clsInstatOptions.iAutoSaveDataMinutes * 60 * 1000) - timer.Start() - End If - End Sub - - Private Function AutoRecoverAndStartREngine() As Boolean - Dim iLogFiles As Integer = 0 - Dim iInternalLogFiles As Integer = 0 - Dim iDataFiles As Integer = 0 - Dim strScript As String = "" - Dim strDataFilePath As String = "" - Dim strAutoSavedLogFilePaths() As String = Nothing - Dim strAutoSavedInternalLogFilePaths() As String = Nothing - Dim strAutoSavedDataFilePaths() As String = Nothing - Dim bClose As Boolean = False - - If Process.GetProcessesByName(Path.GetFileNameWithoutExtension(Reflection.Assembly.GetEntryAssembly().Location)).Count() > 1 Then - bClose = clsRLink.StartREngine(clsRLink.GetRSetupScript()) - Else - If (Directory.Exists(strAutoSaveLogFolderPath)) Then - strAutoSavedLogFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveLogFolderPath).ToArray - iLogFiles = strAutoSavedLogFilePaths.Count - End If - If (Directory.Exists(strAutoSaveInternalLogFolderPath)) Then - strAutoSavedInternalLogFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveInternalLogFolderPath).ToArray - iInternalLogFiles = strAutoSavedInternalLogFilePaths.Count - End If - If Directory.Exists(strAutoSaveDataFolderPath) Then - strAutoSavedDataFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveDataFolderPath).ToArray - iDataFiles = strAutoSavedDataFilePaths.Count - End If - If iLogFiles > 0 OrElse iDataFiles > 0 OrElse iInternalLogFiles > 0 Then - If MsgBox("We have detected that R-Instat may have closed unexpectedly last time." & Environment.NewLine & "Would you like to see auto recovery options?", MessageBoxButtons.YesNo, "Auto Recovery") = MsgBoxResult.Yes Then - dlgAutoSaveRecovery.strAutoSavedLogFilePaths = strAutoSavedLogFilePaths - dlgAutoSaveRecovery.strAutoSavedDataFilePaths = strAutoSavedDataFilePaths - dlgAutoSaveRecovery.strAutoSavedInternalLogFilePaths = strAutoSavedInternalLogFilePaths - dlgAutoSaveRecovery.ShowDialog() - strScript = dlgAutoSaveRecovery.GetScript() - strDataFilePath = dlgAutoSaveRecovery.GetDataFilePath() - End If - End If - bClose = clsRLink.StartREngine(strScript) - If Not bClose Then - If strDataFilePath <> "" Then - clsRLink.LoadInstatDataObjectFromFile(strDataFilePath, strComment:="Loading auto recovered data file") - End If - If iLogFiles > 0 Then - Try - File.Delete(strAutoSavedLogFilePaths(0)) - Catch ex As Exception - MsgBox("Could not delete backup log file" & Environment.NewLine, "Error deleting file") - End Try - End If - If iInternalLogFiles > 0 Then - Try - File.Delete(strAutoSavedInternalLogFilePaths(0)) - Catch ex As Exception - MsgBox("Could not delete backup internal log file." & Environment.NewLine & ex.Message, "Error deleting file") - End Try - End If - If iDataFiles > 0 Then - Try - File.Delete(strAutoSavedDataFilePaths(0)) - Catch ex As Exception - MsgBox("Could not delete back data file." & Environment.NewLine & ex.Message, "Error deleting file") - End Try - End If - End If - End If - Return bClose - End Function - - Private Sub InitialiseOutputWindow() - clsRLink.SetOutput(ucrOutput.ucrRichTextBox) - 'TEST temporary : creating the temporary graphs - clsRLink.rtbOutput.CreateTempDirectory() - End Sub - - Private Sub LoadInstatOptions() - If File.Exists(Path.Combine(strAppDataPath, strInstatOptionsFile)) Then - LoadInstatOptionsFromFile(Path.Combine(strAppDataPath, strInstatOptionsFile)) - Else - clsInstatOptions = New InstatOptions - 'TODO Should these be here or in the constructor (New) of InstatOptions? - End If - End Sub - - Private Sub SetToDefaultLayout() - splOverall.SplitterDistance = splOverall.Height / 4 - splDataOutput.SplitterDistance = splDataOutput.Width / 2 - splExtraWindows.SplitterDistance = splExtraWindows.Width / 2 - splLogScript.SplitterDistance = splLogScript.Width / 2 - splMetadata.SplitterDistance = splMetadata.Width / 2 - - mnuViewDataView.Checked = True - mnuViewOutputWindow.Checked = True - mnuViewLog.Checked = False - mnuViewDataFrameMetadata.Checked = False - mnuViewColumnMetadata.Checked = False - mnuViewScriptWindow.Checked = False - - mnuTbDataView.Checked = True - mnuTbOutput.Checked = True - mnuTbColumnMetadata.Checked = False - mnuTbLog.Checked = False - - UpdateLayout() - End Sub - - Public Sub LoadInstatOptionsFromFile(strFilePath As String) - 'Dim FileStream As Stream - Dim deserializer As New BinaryFormatter() - - 'TODO Check if any options are not in loaded file, add defaults if missing - ' Could happen when updating to newer version with more options, and old options file remains on disk. - ' Alternative could be to create new instance with defaults and add/override only non empty fields from the imported file - ' to ensure all fields have some value - If File.Exists(strFilePath) Then - Try - Using FileStream As Stream = File.OpenRead(strFilePath) - clsInstatOptions = CType(deserializer.Deserialize(FileStream), InstatOptions) - clsInstatOptions.SetOptions() - 'TODO Check whether this is needed or not. Using should do it automatically. - ' Also check general structure of this code. - 'FileStream.Close() - End Using - Catch ex As Exception - MsgBox("Could not load options from:" & strFilePath & Environment.NewLine & "The file may be in use by another program or the file does not contain an instance of InstatOptions." & Environment.NewLine & "Options will be reset to factory defaults." & vbNewLine & "System error message: " & ex.Message, MsgBoxStyle.Information, "Cannot open options file") - clsInstatOptions = New InstatOptions - End Try - Else - MsgBox("Options file:" & strFilePath & " does not exist." & Environment.NewLine & "File will not be loaded." & vbNewLine & "Options will be reset to factory defaults.", MsgBoxStyle.Information) - clsInstatOptions = New InstatOptions - End If - End Sub - - Public Sub SaveInstatOptions(strFilePath As String) - Dim serializer As New BinaryFormatter() - - Try - Using FileStream As Stream = File.Create(strFilePath) - 'If the program is closed during startup of the RLink e.g. if R is not installed correctly - 'then clsInstatOptions = Nothing because this is initialised after setup. - 'Hence we do not need to save or give an error message. - If clsInstatOptions IsNot Nothing Then - serializer.Serialize(FileStream, clsInstatOptions) - 'TODO Check whether this is needed or not. Using should do it automatically. - ' Also check general structure of this code. - 'FileStream.Close() - End If - End Using - Catch ex As Exception - MsgBox("Error attempting to save to file:" & strFilePath & Environment.NewLine & "The file may be in use by another program." & Environment.NewLine & "System error message: " & ex.Message, MsgBoxStyle.Critical, "Error saving to file") - End Try - End Sub - - Public Sub AddGraphForm(strFilePath As String) - Dim frmNewGraph As New frmGraphDisplay - - frmNewGraph.SetImageFromFile(strFilePath) - frmNewGraph.Show() - frmNewGraph.BringToFront() - End Sub - - Public Sub AddToScriptWindow(strText As String, Optional bMakeVisible As Boolean = True) - ucrScriptWindow.AppendText(strText) - If bMakeVisible Then - mnuViewScriptWindow.Checked = True - UpdateLayout() - End If - End Sub - - Private Sub mnuFileNewDataFrame_Click(sender As Object, e As EventArgs) Handles mnuFileNewDataFrame.Click - dlgNewDataFrame.ShowDialog() - End Sub - - Private Sub RegularSequenceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateRegularSequence.Click - dlgRegularSequence.bNumericIsDefault = True - dlgRegularSequence.ShowDialog() - End Sub - - Private Sub mnuCalculations_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateCalculations.Click - dlgCalculator.ShowDialog() - End Sub - - Private Sub mnuPrepareAddColumnRowSummary_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateRowSummary.Click - dlgRowSummary.ShowDialog() - End Sub - - Private Sub FrequencyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificFrequency.Click - dlgFrequency.ShowDialog() - End Sub - - Private Sub SummaryToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificSummary.Click - dlgSummaryTables.ShowDialog() - End Sub - - Private Sub mnuPrepareAddColumnTransform_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateTransform.Click - dlgTransform.ShowDialog() - End Sub - - Private Sub mnuPrepareAddColumnPolynomials_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculatePolynomials.Click - dlgPolynomials.ShowDialog() - End Sub - - Private Sub mnuPrepareReshapeStack_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeStack.Click - dlgStack.ShowDialog() - End Sub - - Private Sub mnuPrepareReshapeUnstack_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeUnstack.Click - dlgUnstack.ShowDialog() - End Sub - - Private Sub mnuPrepareAddColumnRecode_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorRecodeNumeric.Click - dlgRecodeNumeric.ShowDialog() - End Sub - - Private Sub RandomSamplesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateRandomSamples.Click - dlgRandomSample.ShowDialog() - End Sub - - Private Sub ViewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameViewData.Click - dlgView.ShowDialog() - End Sub - - Private Sub SelectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeSubset.Click - dlgRestrict.bIsSubsetDialog = True - dlgRestrict.ShowDialog() - End Sub - - Private Sub mnuModelThreeVariablesFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelThreeVariablesFitModel.Click - dlgThreeVariableModelling.ShowDialog() - End Sub - - 'Private Sub mnuStatsNonParametricTwoWayAnova_Click_1(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesNonParametricTwoWayANOVA.Click - ' dlgNon_ParametricTwoWayAnova.ShowDialog() - 'End Sub - - Private Sub ImportDailyDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareImportDailyData.Click - - End Sub - - Private Sub ShiftDailyDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareShiftDailyData.Click - dlgShiftDailyData.ShowDialog() - End Sub - - Private Sub StackDailyDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareStackDailyData.Click - dlgStackDailyData.ShowDialog() - End Sub - Private Sub mnuClimaticExamine_Click(sender As Object, e As EventArgs) Handles mnuClimaticExamine.Click - dlgExamine.ShowDialog() - End Sub - - Private Sub mnuClimaticEvaporationSite_Click(sender As Object, e As EventArgs) Handles mnuClimaticEvaporationSite.Click - dlgSite.ShowDialog() - End Sub - - Private Sub mnuFIleExit_Click(sender As Object, e As EventArgs) Handles mnuFIleExit.Click - Me.Close() - End Sub - - Private Sub mnuFileOpenFromFile_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromFile.Click - dlgImportDataset.ShowDialog() - End Sub - - Private Sub mnuFileOpenFromLibrary_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromLibrary.Click - dlgFromLibrary.ShowDialog() - End Sub - - Private Sub mnuPrepareDataRename_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameRenameColumn.Click - dlgName.ShowDialog() - End Sub - - Private Sub UpdateLayout() - If Not mnuViewDataView.Checked AndAlso Not mnuViewOutputWindow.Checked AndAlso Not mnuViewColumnMetadata.Checked AndAlso Not mnuViewDataFrameMetadata.Checked AndAlso Not mnuViewLog.Checked AndAlso Not mnuViewScriptWindow.Checked Then - splOverall.Hide() - Else - splOverall.Show() - If mnuViewDataView.Checked OrElse mnuViewOutputWindow.Checked Then - splOverall.Panel2Collapsed = False - splDataOutput.Panel1Collapsed = Not mnuViewDataView.Checked - splDataOutput.Panel2Collapsed = Not mnuViewOutputWindow.Checked - Else - splOverall.Panel2Collapsed = True - End If - If mnuViewColumnMetadata.Checked OrElse mnuViewDataFrameMetadata.Checked OrElse mnuViewLog.Checked OrElse mnuViewScriptWindow.Checked Then - splOverall.Panel1Collapsed = False - - If mnuViewColumnMetadata.Checked OrElse mnuViewDataFrameMetadata.Checked Then - splExtraWindows.Panel1Collapsed = False - splMetadata.Panel1Collapsed = Not mnuViewColumnMetadata.Checked - splMetadata.Panel2Collapsed = Not mnuViewDataFrameMetadata.Checked - Else - splExtraWindows.Panel1Collapsed = True - End If - - If mnuViewLog.Checked OrElse mnuViewScriptWindow.Checked Then - splExtraWindows.Panel2Collapsed = False - splLogScript.Panel1Collapsed = Not mnuViewLog.Checked - splLogScript.Panel2Collapsed = Not mnuViewScriptWindow.Checked - Else - splExtraWindows.Panel2Collapsed = True - End If - Else - splOverall.Panel1Collapsed = True - End If - End If - mnuTbDataView.Checked = mnuViewDataView.Checked - mnuTbOutput.Checked = mnuViewOutputWindow.Checked - mnuTbColumnMetadata.Checked = mnuViewColumnMetadata.Checked - mnuTbLog.Checked = mnuViewLog.Checked - End Sub - - Private Sub mnuWindowVariable_Click(sender As Object, e As EventArgs) Handles mnuViewColumnMetadata.Click - mnuViewColumnMetadata.Checked = Not mnuViewColumnMetadata.Checked - UpdateLayout() - End Sub - - Private Sub mnuWindowDataFrame_Click(sender As Object, e As EventArgs) Handles mnuViewDataFrameMetadata.Click - mnuViewDataFrameMetadata.Checked = Not mnuViewDataFrameMetadata.Checked - UpdateLayout() - End Sub - - Private Sub LogToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuViewLog.Click - mnuViewLog.Checked = Not mnuViewLog.Checked - UpdateLayout() - End Sub - - Private Sub ScriptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuViewScriptWindow.Click - mnuViewScriptWindow.Checked = Not mnuViewScriptWindow.Checked - UpdateLayout() - End Sub - - Private Sub mnuPrepareReshapeMerge_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeMerge.Click - dlgMerge.ShowDialog() - End Sub - - Private Sub mnuWindowsEditor_Click(sender As Object, e As EventArgs) Handles mnuViewDataView.Click - mnuViewDataView.Checked = Not mnuViewDataView.Checked - UpdateLayout() - End Sub - - Private Sub mnuFilePrint_Click(sender As Object, e As EventArgs) Handles mnuFilePrint.Click - dlgPrintPreviewOptions.ShowDialog() - End Sub - - Private Sub mnuFilePrintPreview_Click(sender As Object, e As EventArgs) Handles mnuFilePrintPreview.Click - dlgPrintPreviewOptions.ShowDialog() - End Sub - - Private Sub mnuPrepareAddColumnRank_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateRank.Click - dlgRank.ShowDialog() - End Sub - - Private Sub mnuClimateMethodsCreateClimateObject_Click(sender As Object, e As EventArgs) - dlgCreateClimateObject.ShowDialog() - End Sub - - 'Private Sub mnuExport_Click(sender As Object, e As EventArgs) Handles mnuExport.Click - ' dlgExportDataset.ShowDialog() - 'End Sub - - Private Sub mnuPrepareDataFileSheetMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectDataFrameMetadata.Click - dlgDataFrameMetaData.ShowDialog() - End Sub - - Private Sub mnuPrepareSheetColumnMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameColumnMetadata.Click - mnuViewColumnMetadata.Checked = True - UpdateLayout() - End Sub - - Private Sub mnuPrepareSheetInsertColumnsRows_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameInsertColumnsRows.Click - dlgInsertColumn.ShowDialog() - End Sub - - Private Sub mnuGraphicsBarPie_Click(sender As Object, e As EventArgs) - dlgBarAndPieChart.ShowDialog() - End Sub - - Private Sub mnuPrepareAddColumnPermuteRows_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGeneratePermuteRows.Click - dlgPermuteColumn.ShowDialog() - End Sub - Private Sub mnuPrepareDataFileDeleteSheets_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectDeleteDataFrame.Click - dlgDeleteDataFrames.ShowDialog() - End Sub - - - Private Sub mnuPrepareSheetDeleteColumnsRows_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameDeleteColumnsRows.Click - dlgDeleteRowsOrColums.ShowDialog() - End Sub - - Private Sub EditLastDialogueToolStrip_Click(sender As Object, e As EventArgs) Handles mnuTbEditLastDialog.Click - If clsRecentItems.mnuItems.Count > 0 Then - clsRecentItems.mnuItems.Last.ShowDialog() - End If - End Sub - - Private Sub mnuTbSave_Click(sender As Object, e As EventArgs) Handles mnuTbSave.Click - mnuFileSave_Click(sender, e) - End Sub - - Private Sub mnuFileSave_Click(sender As Object, e As EventArgs) Handles mnuFileSave.Click - Dim clsSaveRDS As New RFunction - - If strSaveFilePath = "" Then - dlgSaveAs.ShowDialog() - Else - clsSaveRDS.SetRCommand("saveRDS") - clsSaveRDS.AddParameter("object", clsRLink.strInstatDataObject) - clsSaveRDS.AddParameter("file", Chr(34) & Replace(strSaveFilePath, "\", "/") & Chr(34)) - clsRLink.RunScript(clsSaveRDS.ToScript(), strComment:="File > Save: save file") - End If - End Sub - - Private Sub mnuTbCopy_Click(sender As Object, e As EventArgs) Handles mnuTbCopy.Click - mnuEditCopy_Click(sender, e) - End Sub - - Private Sub mnuHelpHelp_Click(sender As Object, e As EventArgs) - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TableOfContents, "") - End Sub - - Private Sub mnuTbHelp_Click(sender As Object, e As EventArgs) Handles mnuTbHelp.Click - mnuHelpHelp_Click(sender, e) - End Sub - - Private Sub mnuPrepareFactorRecode_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorRecodeFactor.Click - dlgRecodeFactor.ShowDialog() - End Sub - - Private Sub mnuPrepareDataFileCopySheet_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectCopyDataFrame.Click - dlgCopyDataFrame.ShowDialog() - End Sub - - Private Sub mnuPrepareDataFileReorderSheets_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectReorderDataFrames.Click - dlgReorderDataFrame.ShowDialog() - End Sub - - Private Sub mnuPrepareDataFileRenameSheet_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectRenameDataFrame.Click - dlgRenameDataFrame.ShowDialog() - End Sub - - Private Sub mnuPrepareRechapeColumnSummaries_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeColumnSummaries.Click - dlgColumnStats.ShowDialog() - End Sub - - Private Sub mnuPrepareSheetReorder_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameReorderColumns.Click - dlgReorderColumns.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorReferenceLevels_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorReferenceLevel.Click - dlgReferenceLevel.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorLabel_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorLevelsLabels.Click - dlgLabelsLevels.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorViewLabels_Click(sender As Object, e As EventArgs) Handles mnuPrepareFactorViewLabels.Click - dlgViewFactorLabels.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorConvertToFactor_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorConvertToFactor.Click - dlgConvertColumns.bToFactorOnly = True - dlgConvertColumns.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorReorderLevels_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorReorderLevels.Click - dlgReorderLevels.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorUnusedLevels_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorUnusedLevels.Click - dlgRemoveUnusedLevels.ShowDialog() - End Sub - Private Sub mnuPrepareDataSort_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameSort.Click - dlgSort.ShowDialog() - End Sub - - Private Sub mnuPrepareViewObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsView.Click - dlgViewObjects.ShowDialog() - End Sub - - Private Sub mnuPrepareReorderObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsReorder.Click - dlgReorderObjects.ShowDialog() - End Sub - - Private Sub mnuPrepareRenameObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsRename.Click - dlgRenameObjects.ShowDialog() - End Sub - - Private Sub mnuPrepareDeleteObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsDelete.Click - dlgDeleteObjects.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorContrasts_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorContrasts.Click - dlgContrasts.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorSheet_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorFactorDataFrame.Click - dlgFactorDataFrame.ShowDialog() - End Sub - - Private Sub mnuPrepareTextSplit_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextSplit.Click - dlgSplitText.ShowDialog() - End Sub - - Private Sub mnuPrepareTextCombine_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextCombine.Click - dlgCombineText.ShowDialog() - End Sub - - Private Sub mnuPrepareDataFilter_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameFilter.Click - dlgRestrict.bIsSubsetDialog = False - dlgRestrict.strDefaultDataframe = "" - dlgRestrict.ShowDialog() - End Sub - - Private Sub mnuPrepareDataConvertTo_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameConvertColumns.Click - dlgConvertColumns.bToFactorOnly = False - dlgConvertColumns.ShowDialog() - End Sub - - Private Sub mnuPrepareReshapeTranspose_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeTranspose.Click - dlgTransposeColumns.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorCombine_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorCombineFactors.Click - dlgCombine.ShowDialog() - End Sub - - Private Sub mnuPrepareFactorDummyVariable_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorDummyVariables.Click - dlgDummyVariables.ShowDialog() - End Sub - - 'Private Sub mnuStatisticsAnalysisOfVarianceGeneral_Click(sender As Object, e As EventArgs) Handles mnuModelOtherGeneralANOVAGeneral.Click - ' dlgGeneralANOVA.ShowDialog() - 'End Sub - - 'Private Sub mnuStatisticsRegressionGeneral_Click(sender As Object, e As EventArgs) Handles mnuModelOtherGeneralRegression.Click - ' dlgGeneralRegression.ShowDialog() - 'End Sub - - Private Sub GeneralToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DescribeGeneralGraphics.Click - dlgGeneralForGraphics.ShowDialog() - End Sub - - Private Sub mnuPrepareTextTransform_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextTransform.Click - dlgTransformText.ShowDialog() - End Sub - - Private Sub mnuEditSelectAll_Click(sender As Object, e As EventArgs) Handles mnuEditSelectAll.Click - If ctrActive IsNot Nothing Then - If ctrActive.Equals(ucrDataViewer) Then - ucrDataViewer.SelectAllText() - ElseIf ctrActive.Equals(ucrOutput) Then - ucrOutput.SelectAllText() - ElseIf ctrActive.Equals(ucrColumnMeta) Then - ucrColumnMeta.SelectAllText() - ElseIf ctrActive.Equals(ucrDataFrameMeta) Then - ucrDataFrameMeta.SelectAllText() - ElseIf ctrActive.Equals(ucrLogWindow) Then - ucrLogWindow.SelectAllText() - ElseIf ctrActive.Equals(ucrScriptWindow) Then - ucrScriptWindow.SelectAllText() - End If - End If - End Sub - - Private Sub mnuEditCopy_Click(sender As Object, e As EventArgs) Handles mnuEditCopy.Click - If ctrActive.Equals(ucrDataViewer) Then - ucrDataViewer.CopyRange() - ElseIf ctrActive.Equals(ucrOutput) Then - ucrOutput.CopyContent() - ElseIf ctrActive.Equals(ucrColumnMeta) Then - ucrColumnMeta.CopyRange() - ElseIf ctrActive.Equals(ucrDataFrameMeta) Then - ucrDataFrameMeta.CopyRange() - ElseIf ctrActive.Equals(ucrLogWindow) Then - ucrLogWindow.CopyText() - ElseIf ctrActive.Equals(ucrScriptWindow) Then - ucrScriptWindow.CopyText() - End If - End Sub - - Private Sub mnuToolsOptions_Click(sender As Object, e As EventArgs) Handles mnuToolsOptions.Click - dlgOptions.ShowDialog() - End Sub - - Private Sub mnuOrganiseDataFrameHideColumns_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameHideColumns.Click - dlgHideShowColumns.ShowDialog() - End Sub - - Private Sub mnuModelProbabilityDistributionsRandomSamplesUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsRandomSamplesUseModel.Click - dlgRandomSample.ShowDialog() - End Sub - - Private Sub mnuModelTwoVariablesFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelTwoVariablesFitModel.Click - dlgTwoVariableFitModel.ShowDialog() - End Sub - - Private Sub mnuModelOtherOneVariableExactResults_Click(sender As Object, e As EventArgs) Handles mnuModelOtherOneVariableExactResults.Click - dlgOneSample.ShowDialog() - End Sub - - Private Sub mnuModelOtherOneVariableNonParametric_Click(sender As Object, e As EventArgs) Handles mnuModelOtherOneVariableNonParametric.Click - dlgNon_ParametricOneSampleTests.ShowDialog() - End Sub - - Private Sub mnuModelOtherTwoVariablesSimpleRegression_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesSimpleRegression.Click - dlgTwoVariableFitModel.ShowDialog() - End Sub - - Private Sub mnuModelOtherTwoVariablesOneWayANOVA_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesOneWayANOVA.Click - dlgOneWayANOVA.ShowDialog() - End Sub - - Private Sub mnuModelOtherTwoVariablesNonParametricTwoSamples_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesNonParametricTwoSamples.Click - - End Sub - - Private Sub mnuModelOtherTwoVariablesNonParametricOneWayANOVA_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesNonParametricOneWayANOVA.Click - dlgNon_ParametricOneWayANOVA.ShowDialog() - End Sub - - Private Sub mnuModelOtherThreeVariablesSimpleWithGroups_Click(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesSimpleWithGroups.Click - dlgThreeVariableModelling.ShowDialog() - End Sub - - Private Sub mnuModelOtherThreeVariablesNonParametricTwoWayANOVA_Click(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesNonParametricTwoWayANOVA.Click - dlgNon_ParametricTwoWayAnova.ShowDialog() - End Sub - - Private Sub mnuModelOtherThreeVariablesChisquareTest_Click(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesChisquareTest.Click - dlgChiSquareTest.ShowDialog() - End Sub - - Private Sub mnuModelOtherGeneralANOVAGeneral_Click(sender As Object, e As EventArgs) Handles mnuModelOtherGeneralANOVAGeneral.Click - dlgGeneralANOVA.ShowDialog() - End Sub - - Private Sub OutputWindowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuViewOutputWindow.Click - mnuViewOutputWindow.Checked = Not mnuViewOutputWindow.Checked - UpdateLayout() - End Sub - - Private Sub mnuOrganiseColumnReshapeRandomSubset_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeRandomSubset.Click - dlgRandomSubsets.ShowDialog() - End Sub - - Private Sub mnuToolsClearOutputWindow_Click(sender As Object, e As EventArgs) Handles mnuToolsClearOutputWindow.Click - Dim rstResponse As DialogResult - rstResponse = MessageBox.Show("Are you sure you want to clear the Output Window?", "Clear Output Window", MessageBoxButtons.YesNo) - If rstResponse = DialogResult.Yes Then - ucrOutput.ucrRichTextBox.rtbOutput.Document.Blocks.Clear() 'To b checked - End If - End Sub - - Private Sub mnuOrganiseDataObjectDeleteMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectDeleteMetadata.Click - dlgDeleteMetadata.ShowDialog() - End Sub - - Private Sub mnuOrganiseDataObjectMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectMetadata.Click - 'TODO Change this dialog - ' currently dlgMetadata is colouring grid dialog - dlgMetadata.ShowDialog() - End Sub - - Private Sub mnuOrganiseDataObjectReorderMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectReorderMetadata.Click - dlgReorderMetadata.ShowDialog() - End Sub - - Private Sub mnuOrganiseDataObjectRenameMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectRenameMetadata.Click - dlgRenameMetadata.ShowDialog() - End Sub - - Private Sub mnuOrganiseDataFrameRowNumbersNames_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameRowNumbersNames.Click - dlgRowNamesOrNumbers.ShowDialog() - End Sub - - Private Sub JitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPreparePrepareToShareJitter.Click - dlgJitter.ShowDialog() - End Sub - - Private Sub mnuModelFourVariablesFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelFourVariablesFitModel.Click - dlgFourVariableModelling.ShowDialog() - End Sub - - Private Sub mnuEditFind_Click(sender As Object, e As EventArgs) Handles mnuEditFind.Click - dlgFind.currWindow = ActiveMdiChild - dlgFind.Owner = Me - dlgFind.Show() - End Sub - - Private Sub mnuEditFindNext_Click(sender As Object, e As EventArgs) Handles mnuEditFindNext.Click - mnuEditFind_Click(sender, e) - End Sub - - Private Sub ColourByPropertyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ColourByPropertyToolStripMenuItem.Click - 'TODO change this dialog - ' dlgMetadata should be separate - dlgColourbyProperty.ShowDialog() - End Sub - - Private Sub mnuViewCascade_Click(sender As Object, e As EventArgs) - Me.LayoutMdi(MdiLayout.Cascade) - End Sub - - Private Sub mnuViewTileVertically_Click(sender As Object, e As EventArgs) - Me.LayoutMdi(MdiLayout.TileVertical) - End Sub - - Private Sub mnuViewTileHorizontally_Click(sender As Object, e As EventArgs) - Me.LayoutMdi(MdiLayout.TileHorizontal) - End Sub - - Private Sub mnuOrganiseColumnTextFindReplace_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextFindReplace.Click - dlgStringHandling.ShowDialog() - End Sub - - Private Sub mnuDescribeOneVariableSummarise_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableSummarise.Click - dlgOneVariableSummarise.ShowDialog() - End Sub - - Private Sub mnuDescribeOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableGraph.Click - dlgOneVariableGraph.ShowDialog() - End Sub - - Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - Dim bClose As DialogResult = DialogResult.Yes - - If e.CloseReason = CloseReason.UserClosing Then - bClose = MsgBox("Are you sure you want to exit R-Instat?" & Environment.NewLine & "Any unsaved changes will be lost.", MessageBoxButtons.YesNo, "Exit") - End If - If bClose = DialogResult.Yes Then - Try - If (Not System.IO.Directory.Exists(strAppDataPath)) Then - System.IO.Directory.CreateDirectory(strAppDataPath) - End If - If clsRLink IsNot Nothing AndAlso clsRLink.bREngineInitialised Then - clsRecentItems.saveOnClose() - If clsInstatOptions IsNot Nothing Then - SaveInstatOptions(Path.Combine(strAppDataPath, strInstatOptionsFile)) - End If - DeleteAutoSaveData() - DeleteAutoSaveLog() - DeleteAutoSaveDebugLog() - End If - clsRLink.CloseREngine() - Catch ex As Exception - MsgBox("Error attempting to save setting files to App Data folder." & Environment.NewLine & "System error message: " & ex.Message, MsgBoxStyle.Critical, "Error saving settings") - End Try - Else - e.Cancel = True - End If - End Sub - - Public Sub AutoSaveData() - Dim clsSaveRDS As New RFunction - Dim strTempFile As String - Dim i As Integer = 0 - Dim strCurrentStatus As String - - strCurrentStatus = tstatus.Text - If clsRLink.bInstatObjectExists Then - tstatus.Text = "Auto saving data..." - Cursor = Cursors.WaitCursor - If Not Directory.Exists(strAutoSaveDataFolderPath) Then - Directory.CreateDirectory(strAutoSaveDataFolderPath) - End If - If strCurrentAutoSaveDataFilePath = "" Then - strTempFile = "data.rds" - While File.Exists(Path.Combine(strAutoSaveDataFolderPath, strTempFile)) - i = i + 1 - strTempFile = "data" & i & ".rds" - End While - strCurrentAutoSaveDataFilePath = Path.Combine(strAutoSaveDataFolderPath, strTempFile) - End If - clsSaveRDS.SetRCommand("saveRDS") - clsSaveRDS.AddParameter("object", clsRLink.strInstatDataObject) - clsSaveRDS.AddParameter("file", Chr(34) & strCurrentAutoSaveDataFilePath.Replace("\", "/") & Chr(34)) - clsRLink.RunInternalScript(clsSaveRDS.ToScript(), bSilent:=True, bShowWaitDialogOverride:=False) - tstatus.Text = strCurrentStatus - Cursor = Cursors.Default - End If - End Sub - - Public Sub DeleteAutoSaveData() - If strCurrentAutoSaveDataFilePath <> "" Then - Try - File.Delete(strCurrentAutoSaveDataFilePath) - Catch ex As Exception - MsgBox("Could not delete auto save data file at: " & strCurrentAutoSaveDataFilePath & Environment.NewLine & ex.Message) - End Try - End If - End Sub - - Public Sub DeleteAutoSaveLog() - If clsRLink.strAutoSaveLogFilePath <> "" Then - Try - File.Delete(clsRLink.strAutoSaveLogFilePath) - Catch ex As Exception - MsgBox("Could not delete auto save log file at: " & clsRLink.strAutoSaveLogFilePath & Environment.NewLine & ex.Message) - End Try - End If - End Sub - - Public Sub DeleteAutoSaveDebugLog() - If clsRLink.strAutoSaveDebugLogFilePath <> "" Then - Try - File.Delete(clsRLink.strAutoSaveDebugLogFilePath) - Catch ex As Exception - MsgBox("Could not delete auto save debug log file at: " & clsRLink.strAutoSaveDebugLogFilePath & Environment.NewLine & ex.Message) - End Try - End If - End Sub - - Private Sub mnuOrganiseDataObjectHideDataframes_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectHideDataframes.Click - dlgHideDataframes.ShowDialog() - End Sub - - Private Sub mnuOrganiseDataFrameReplaceValues_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameReplaceValues.Click - dlgReplaceValues.ShowDialog() - End Sub - - Private Sub mnuDescribeTwoVariablesSummarise_Click(sender As Object, e As EventArgs) Handles mnuDescribeTwoVariablesSummarise.Click - dlgDescribeTwoVariable.ShowDialog() - End Sub - - Private Sub mnuAppendDataFrame_Click(sender As Object, e As EventArgs) Handles mnuPrepareAppendDataFrame.Click - dlgAppend.ShowDialog() - End Sub - - Private Sub mnuFileSaveAsOutputAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsOutputAs.Click - 'Saves the content of the output window in RichTextFormat. - Using dlgSaveFile As New SaveFileDialog - dlgSaveFile.Title = "Save Output Window" - dlgSaveFile.Filter = "Rich Text Format (*.rtf)|*.rtf" - dlgSaveFile.InitialDirectory = clsInstatOptions.strWorkingDirectory - If dlgSaveFile.ShowDialog() = DialogResult.OK Then - Try - 'Send file name string specifying the location to save the rtf in. - ucrOutput.ucrRichTextBox.SaveRtf(dlgSaveFile.FileName) - Catch - MsgBox("Could not save the output window." & Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.", MsgBoxStyle.Critical) - End Try - End If - End Using - End Sub - - Private Sub mnuFileSaveAsLogAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsLogAs.Click - Using dlgSaveFile As New SaveFileDialog - dlgSaveFile.Title = "Save Log Window" - dlgSaveFile.Filter = "Text File (*.txt)|*.txt|R Script File (*.R)|*.R" - dlgSaveFile.InitialDirectory = clsInstatOptions.strWorkingDirectory - If dlgSaveFile.ShowDialog() = DialogResult.OK Then - Try - File.WriteAllText(dlgSaveFile.FileName, ucrLogWindow.txtLog.Text) - Catch - MsgBox("Could not save the log file." & Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.", MsgBoxStyle.Critical) - End Try - End If - End Using - End Sub - - Private Sub mnuFileSaveAsScriptAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsScriptAs.Click - Using dlgSaveFile As New SaveFileDialog - dlgSaveFile.Title = "Save Script Window" - dlgSaveFile.Filter = "Text File (*.txt)|*.txt|R Script File (*.R)|*.R" - dlgSaveFile.InitialDirectory = clsInstatOptions.strWorkingDirectory - If dlgSaveFile.ShowDialog() = DialogResult.OK Then - Try - File.WriteAllText(dlgSaveFile.FileName, ucrScriptWindow.txtScript.Text) - Catch - MsgBox("Could not save the script file." & Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.", MsgBoxStyle.Critical) - End Try - End If - End Using - End Sub - - Private Sub mnuOrganiseDataFrameColumnStructure_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameColumnStructure.Click - dlgColumnStructure.ShowDialog() - End Sub - - Private Sub mnuDescribeTwoVariablesGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeTwoVariablesGraph.Click - dlgDescribeTwoVarGraph.ShowDialog() - End Sub - - Private Sub mnuClimaticFileOpensst_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileOpensst.Click - dlgOpenSST.ShowDialog() - End Sub - - Private Sub mnuModelGeneralFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelGeneralFitModel.Click - dlgFitModel.ShowDialog() - End Sub - - Private Sub mnuFileOpenFromODK_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromODK.Click - dlgImportFromODK.ShowDialog() - End Sub - - Private Sub mnuModelOneVariableFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelOneVariableFitModel.Click - dlgOneVarFitModel.ShowDialog() - End Sub - - Private Sub mnuModelTwoVariablesUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelTwoVariablesUseModel.Click - dlgTwoVariableUseModel.ShowDialog() - End Sub - - Private Sub mnuOrganiseColumnGenerateEnter_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateEnter.Click - dlgEnter.ShowDialog() - End Sub - - Private Sub mnuModelOneVariableCompareModels_Click(sender As Object, e As EventArgs) Handles mnuModelOneVariableCompareModels.Click - dlgOneVarCompareModels.ShowDialog() - End Sub - - Private Sub mnuModelOneVariableUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelOneVariableUseModel.Click - dlgOneVarUseModel.ShowDialog() - End Sub - - Private Sub TablesPlusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsShowModel.Click - dlgShowModel.ShowDialog() - End Sub - - Private Sub mnuDescribeUseGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeUseGraph.Click - dlgUseGraph.ShowDialog() - End Sub - - Private Sub mnuDescribeCombineGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeCombineGraph.Click - dlgCombineforGraphics.ShowDialog() - End Sub - - Private Sub mnuDescribeThemes_Click(sender As Object, e As EventArgs) Handles mnuDescribeThemes.Click - dlgThemes.ShowDialog() - End Sub - - Private Sub mnuDescribeMultivariateCorrelations_Click(sender As Object, e As EventArgs) Handles mnuDescribeMultivariateCorrelations.Click - dlgCorrelation.ShowDialog() - End Sub - - Private Sub mnuDescribeMultivariateprincipalComponents_Click(sender As Object, e As EventArgs) Handles mnuDescribeMultivariateprincipalComponents.Click - dlgPrincipalComponentAnalysis.ShowDialog() - End Sub - - Private Sub mnuDescribeMultivariateCanonicalCorrelations_Click(sender As Object, e As EventArgs) Handles mnuDescribeMultivariateCanonicalCorrelations.Click - dlgCanonicalCorrelationAnalysis.ShowDialog() - End Sub - Private Sub mnuClimaticOrganiseSummary_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareSummary.Click - dlgSummary.ShowDialog() - End Sub - - Private Sub mnuClimaticOrganiseEventsStartoftheRains_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareStartoftheRains.Click - dlgStartofRains.ShowDialog() - End Sub - - Private Sub mnuClimaticOrganiseEventsSpells_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareSpells.Click - dlgSpells.ShowDialog() - End Sub - - Private Sub mnuClimaticOrganiseEventsWaterBalance_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareEndOfRains.Click - dlgEndOfRainsSeason.ShowDialog() - End Sub - - Private Sub mnuOrganiseColumnGenerateCountInFactor_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateCountInFactor.Click - dlgCountinFactor.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificScatterPlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificScatterPlot.Click - dlgScatterPlot.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificLinePlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificLinePlot.Click - dlgLinePlot.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificHistogram_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificHistogram.Click - dlgHistogram.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificBoxplot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificBoxplot.Click - dlgBoxplot.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificDotPlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificDotPlot.Click - dlgDotPlot.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificRugPlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificRugPlot.Click - dlgRugPlot.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificBarChart_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificBarChart.Click - dlgBarAndPieChart.ShowDialog() - End Sub - - Private Sub mnuOrganiseColumnMakeDate_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnMakeDate.Click - dlgMakeDate.ShowDialog() - End Sub - - Private Sub mnuDescribeOtherGraphicsDialogsWindRose_Click(sender As Object, e As EventArgs) - dlgWindrose.ShowDialog() - End Sub - - Private Sub mnuOrganiseCheckDataExportOpenRefine_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataExportOpenRefine.Click - dlgExportToOpenRefine.ShowDialog() - End Sub - - Private Sub mnuOrganiseCheckDataImportOpenRefine_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataImportOpenRefine.Click - dlgImportOpenRefine.ShowDialog() - End Sub - - Private Sub mnuFileSaveAsDataAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsDataAs.Click - dlgSaveAs.ShowDialog() - End Sub - - Private Sub mnuModelProbabilityDistributionsCompareModels_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsCompareModels.Click - dlgCompareModels.ShowDialog() - End Sub - - Private Sub mnuDescribeGeneralColumnSummaries_Click(sender As Object, e As EventArgs) Handles mnuDescribeGeneralColumnSummaries.Click - dlgColumnStats.ShowDialog() - End Sub - - Private Sub mnuOrganiseColumnUseDate_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnUseDate.Click - dlgUseDate.ShowDialog() - End Sub - - Private Sub mnuHelpMenusAndDialogues_Click(sender As Object, e As EventArgs) - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "12") - End Sub - - Private Sub mnuHelpRPackagesAndCommands_Click(sender As Object, e As EventArgs) - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "26") - End Sub - Private Sub mnuHelpHelpIntroduction_Click(sender As Object, e As EventArgs) Handles mnuHelpHelpIntroduction.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "0") - End Sub - - Private Sub mnuHelpHistFAQ_Click(sender As Object, e As EventArgs) Handles mnuHelpHistFAQ.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "290") - End Sub - - Private Sub mnuHelpGetingStarted_Click(sender As Object, e As EventArgs) Handles mnuHelpGetingStarted.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "3") - End Sub - - Private Sub mnuHelpDataset_Click(sender As Object, e As EventArgs) Handles mnuHelpDataset.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "71") - End Sub - - Private Sub mnuHelpRPackagesCommands_Click(sender As Object, e As EventArgs) Handles mnuHelpRPackagesCommands.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "26") - End Sub - - Private Sub mnuHelpR_Click(sender As Object, e As EventArgs) Handles mnuHelpR.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "133") - End Sub - - Private Sub mnuHelpMenus_Click(sender As Object, e As EventArgs) Handles mnuHelpMenus.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "12") - End Sub - - - Private Sub mnuHelpGuidesCaseStudy_Click(sender As Object, e As EventArgs) Handles mnuHelpGuidesCaseStudy.Click - Process.Start(Path.Combine(strStaticPath, "Help", "Case_Study_Guide_June_2016.pdf")) - End Sub - - Private Sub mnuHelpGuideGlosary_Click(sender As Object, e As EventArgs) Handles mnuHelpGuideGlosary.Click - Process.Start(Path.Combine(strStaticPath, "Help", "Statistics Glossary.pdf")) - End Sub - - Private Sub mnuHelpLicence_Click(sender As Object, e As EventArgs) Handles mnuHelpLicence.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "323") - End Sub - - Private Sub mnuClimaticFileExportToCPT_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileExportToCPT.Click - dlgExportToCPT.ShowDialog() - End Sub - - Private Sub mnuClimaticDescribeMoreGraphsCummulaiveDistribution_Click(sender As Object, e As EventArgs) - dlgCumulativeDistribution.ShowDialog() - End Sub - - Private Sub mnuClimaticSCFSupportExporttoCPT_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportExporttoCPT.Click - dlgExportToCPT.ShowDialog() - End Sub - - Private Sub mnuClimaticSCFSupportOpenSST_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportOpenSST.Click - dlgOpenSST.ShowDialog() - End Sub - - Private Sub mnuOrgCalculateDuplicateColumn_Click(sender As Object, e As EventArgs) Handles mnuPrepareCalculateDuplicateColumn.Click - dlgDuplicateColumns.ShowDialog() - End Sub - - Private Sub mnuCorruptionFile_Click(sender As Object, e As EventArgs) - dlgCorruptionFile.ShowDialog() - End Sub - - Private Sub GeneralSummariesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeGeneralSummaries.Click - dlgCalculationsSummary.ShowDialog() - End Sub - - Private Sub mnuOrganiseKeysAndLinksViewAndRemoveKey_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksViewAndRemoveKey.Click - dlgViewAndRemoveKeys.ShowDialog() - End Sub - - Private Sub mnuOrganiseKeysAndLinksAddLink_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksAddLink.Click - dlgAddLink.ShowDialog() - End Sub - - Private Sub mnuOrganiseKeysAndLinksViewAndRemoveKeys_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksViewAndRemoveKeys.Click - dlgViewAndRemoveLinks.ShowDialog() - End Sub - - Private Sub mnuOrganiseKeysAndLinksAddComment_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksAddComment.Click - dlgAddComment.ShowDialog() - End Sub - - Private Sub mnuClimaticMarkovModelling_Click(sender As Object, e As EventArgs) Handles mnuClimaticModelsMarkovModelling.Click - dlgNewMarkovChains.ShowDialog() - End Sub - - Private Sub mnuClimaticDefineClimaticData_Click(sender As Object, e As EventArgs) Handles mnuClimaticDefineClimaticData.Click - DlgDefineClimaticData.ShowDialog() - End Sub - - Private Sub mnuClimaticCheckDataInventory_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataInventory.Click - dlgInventoryPlot.ShowDialog() - End Sub - - Private Sub mnuClimateFileImportFromClimSoft_Click(sender As Object, e As EventArgs) Handles mnuClimateFileImportFromClimSoft.Click - dlgClimSoft.ShowDialog() - End Sub - - Private Sub mnuClimaticFileImportFromCliData_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileImportFromCliData.Click - dlgCliData.ShowDialog() - End Sub - - Private Sub mnuPrepareKeysAndLinksAddKey_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksAddKey.Click - dlgAddKey.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareDatesMakeDate_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesMakeDate.Click - dlgMakeDate.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareDatesUseDate_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesUseDate.Click - dlgUseDate.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareInfillMissingDates_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesInfillMissingDates.Click - dlgInfill.ShowDialog() - End Sub - - Private Sub mnuClimaticDescribeTemperatures_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeTemperatures.Click - dlgTemperature.ShowDialog() - End Sub - - Private Sub mnuClimaticDescribeSunshineRadiation_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeSunshineRadiation.Click - dlgSunshine.ShowDialog() - End Sub - - Private Sub mnuClimaticPICSARainfall_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSARainfall.Click - dlgPICSARainfall.ShowDialog() - End Sub - - Private Sub mnuClimaticPICSATemperature_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSATemperature.Click - dlgPICSATemperature.ShowDialog() - End Sub - - Private Sub mnuClimaticPICSACrops_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSACrops.Click - dlgPICSACrops.ShowDialog() - End Sub - - Private Sub mnuCimaticPrepareTransform_Click(sender As Object, e As EventArgs) Handles mnuCimaticPrepareTransform.Click - dlgTransformClimatic.ShowDialog() - End Sub - - Private Sub mnuClimaticModelsExtremes_Click(sender As Object, e As EventArgs) Handles mnuClimaticModelsExtremes.Click - dlgExtremes.ShowDialog() - End Sub - - Private Sub mnuClimaticSCFSupportCorrelations_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportCorrelations.Click - dlgCorrelation.ShowDialog() - End Sub - - Private Sub mnuClimaticSCFSupportPrincipalComponents_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportPrincipalComponents.Click - dlgPrincipalComponentAnalysis.ShowDialog() - End Sub - - Private Sub mnuClimaticSCFSupportCanonicalCorrelations_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportCanonicalCorrelations.Click - dlgCanonicalCorrelationAnalysis.ShowDialog() - End Sub - - Private Sub mnuProcurementDefineData_Click(sender As Object, e As EventArgs) Handles mnuProcurementDefineData.Click - dlgDefineCorruption.ShowDialog() - End Sub - - Private Sub mnuClimaticSCFSupportCumulativeExceedanceGraphs_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportCumulativeExceedanceGraph.Click - dlgCumulativeDistribution.ShowDialog() - End Sub - - Private Sub mnuProcurementPrepareFilterByCountry_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareFilterByCountry.Click - Dim lstDataNames As List(Of String) - - dlgRestrict.bIsSubsetDialog = False - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgRestrict.strDefaultDataframe = lstDataNames(0) - dlgRestrict.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label") - dlgRestrict.bAutoOpenSubDialog = True - Else - dlgRestrict.strDefaultDataframe = "" - dlgRestrict.strDefaultColumn = "" - dlgRestrict.bAutoOpenSubDialog = False - End If - dlgRestrict.ShowDialog() - End Sub - - Private Sub mnuProcurementModelFitModelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementModelFitModelToolStripMenuItem.Click - dlgFitCorruptionModel.ShowDialog() - End Sub - - Private Sub mnuProcurementDefineRedFlags_Click(sender As Object, e As EventArgs) Handles mnuProcurementDefineRedFlags.Click - dlgDefineRedFlags.ShowDialog() - End Sub - - Private Sub mnuDescribeTwoVariablesFrequencies_Click(sender As Object, e As EventArgs) Handles mnuDescribeTwoVariablesFrequencies.Click - dlgTwoWayFrequencies.ShowDialog() - End Sub - - Private Sub mnuFileOpenFromCSPRO_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromCSPRO.Click - dlgImportFromCSPRO.ShowDialog() - End Sub - - Private Sub mnuFileImportFromDatabases_Click(sender As Object, e As EventArgs) Handles mnuFileImportFromDatabases.Click - dlgImportFromDatabases.ShowDialog() - End Sub - - Private Sub mnuClimaticFileImportandTidyNetCDF_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileImportandTidyNetCDF.Click - dlgOpenNetCDF.ShowDialog() - End Sub - - Private Sub mnuProcurementDefineCorruption_Click(sender As Object, e As EventArgs) - dlgDefineCorruptionOutputs.ShowDialog() - End Sub - - Private Sub mnuProcurementPrepareSetFactorReferenceLevel_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareSetFactorReferenceLevel.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgReferenceLevel.strDefaultDataFrame = lstDataNames(0) - End If - dlgReferenceLevel.ShowDialog() - End Sub - - Private Sub mnuProcurementPrepareDefineContractValueCategories_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareDefineContractValueCategories.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgRecodeNumeric.strDefaultDataFrame = lstDataNames(0) - If clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_ppp_adjusted_contract_value_label") <> "" Then - dlgRecodeNumeric.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_ppp_adjusted_contract_value_label") - Else - dlgRecodeNumeric.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_original_contract_value_label") - End If - Else - dlgRecodeNumeric.strDefaultDataFrame = "" - dlgRecodeNumeric.strDefaultColumn = "" - End If - dlgRecodeNumeric.ShowDialog() - End Sub - - Private Sub mnuProcurementPrepareMergeAdditionalData_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareMergeAdditionalData.Click - dlgMerge.ShowDialog() - End Sub - - Private Sub mnuProcurementPrepareUseAwardDate_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareUseAwardDate.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgUseDate.strDefaultDataFrame = lstDataNames(0) - dlgUseDate.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_award_date_label") - Else - dlgUseDate.strDefaultDataFrame = "" - dlgUseDate.strDefaultColumn = "" - End If - dlgUseDate.ShowDialog() - End Sub - - Private Sub mnuDescribeOneVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableFrequencies.Click - dlgOneWayFrequencies.ShowDialog() - End Sub - - 'Private Sub mnuProcurementPrepareStandardiseCountryName_Click(sender As Object, e As EventArgs) - ' Dim lstDataNames As List(Of String) - - ' lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - ' If lstDataNames.Count > 0 Then - ' dlgStandardiseCountryNames.strDefaultDataFrame = lstDataNames(0) - ' dlgStandardiseCountryNames.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label") - ' Else - ' dlgStandardiseCountryNames.strDefaultDataFrame = "" - ' dlgStandardiseCountryNames.strDefaultColumn = "" - ' End If - ' dlgStandardiseCountryNames.ShowDialog() - 'End Sub - - Private Sub mnuProcurementPrepareRecodeNumericIntoQuantiles_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareRecodeNumericIntoQuantiles.Click - dlgRecodeNumericIntoQuantiles.ShowDialog() - End Sub - - Private Sub mnuViewResetToDefaultLayout_Click(sender As Object, e As EventArgs) Handles mnuViewResetToDefaultLayout.Click - SetToDefaultLayout() - End Sub - - Private Sub ucrDataViewer_Enter(sender As Object, e As EventArgs) Handles ucrDataViewer.Enter - ctrActive = ucrDataViewer - End Sub - - Private Sub ucrOutput_Enter(sender As Object, e As EventArgs) Handles ucrOutput.Enter - ctrActive = ucrOutput - End Sub - - Private Sub ucrScriptWindow_Enter(sender As Object, e As EventArgs) Handles ucrScriptWindow.Enter - ctrActive = ucrScriptWindow - End Sub - - Private Sub ucrLogWindow_Enter(sender As Object, e As EventArgs) Handles ucrLogWindow.Enter - ctrActive = ucrLogWindow - End Sub - - Private Sub ucrColumnMeta_Enter(sender As Object, e As EventArgs) Handles ucrColumnMeta.Enter - ctrActive = ucrColumnMeta - End Sub - - Private Sub ucrDataFrameMeta_Enter(sender As Object, e As EventArgs) Handles ucrDataFrameMeta.Enter - ctrActive = ucrDataFrameMeta - End Sub - - Private Sub mnuClimaticFileOpenGriddedData_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileOpenGriddedData.Click - dlgImportGriddedData.ShowDialog() - End Sub - - Private Sub RatingDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RatingDataToolStripMenuItem.Click - dlgRatingScales.ShowDialog() - End Sub - - Private Sub mnuPrepareColumnTextDistance_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextDistance.Click - dlgStringDistance.ShowDialog() - End Sub - - Private Sub mnuDescribeOtherGraphicsDialogsInventoryPlot_Click(sender As Object, e As EventArgs) - dlgInventoryPlot.ShowDialog() - End Sub - - Private Sub mnuDescribeThreeVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuDescribeThreeVariableFrequencies.Click - dlgThreeVariableFrequencies.ShowDialog() - End Sub - - Private Sub ExportGraphToolStripMenuItem_Click(sender As Object, e As EventArgs) - dlgExportGraphAsImage.ShowDialog() - End Sub - - Private Sub mnuDescribeViewGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeViewGraph.Click - dlgViewGraph.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareExtremes_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareExtremes.Click - dlgExtremesClimatic.ShowDialog() - End Sub - - Private Sub ExportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportToolStripMenuItem.Click - dlgExportRObjects.ShowDialog() - End Sub - - Private Sub ExportRWorkspaceToolStripMenuItem1_Click(sender As Object, e As EventArgs) - dlgExportRWorkspace.ShowDialog() - End Sub - - Private Sub ExportDataSetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportDataSetToolStripMenuItem.Click - dlgExportDataset.ShowDialog() - End Sub - - Private Sub ExportRWorkspaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportRWorkspaceToolStripMenuItem.Click - dlgExportRWorkspace.ShowDialog() - End Sub - - Private Sub ExportGraphAsImageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportGraphAsImageToolStripMenuItem.Click - dlgExportGraphAsImage.ShowDialog() - End Sub - - Private Sub ExportRObjectsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportRObjectsToolStripMenuItem.Click - dlgExportRObjects.ShowDialog() - End Sub - - Private Sub FrequencyTablesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrequencyTablesToolStripMenuItem.Click - dlgSummaryBarOrPieChart.ShowDialog() - End Sub - Private Sub mnuClimaticPrepareClimaticSummaries_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareClimaticSummaries.Click - dlgClimaticSummary.ShowDialog() - End Sub - - Public Function GetDataFrameCount() As Integer - If ucrDataViewer IsNot Nothing AndAlso ucrDataViewer.grdData IsNot Nothing Then - Return ucrDataViewer.grdData.Worksheets.Count - Else - Return 0 - End If - End Function - - Public Sub SetCurrentDataFrame(strDataName As String) - ucrDataViewer.SetCurrentDataFrame(strDataName) - ucrColumnMeta.SetCurrentDataFrame(strDataName) - End Sub - - Public Sub SetCurrentDataFrame(iIndex As Integer) - ucrDataViewer.SetCurrentDataFrame(iIndex) - ucrColumnMeta.SetCurrentDataFrame(iIndex) - End Sub - - Private Sub WindroseToolStripMenuItem_Click(sender As Object, e As EventArgs) - dlgWindrose.ShowDialog() - End Sub - - Private Sub CummulativeDistributionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CummulativeDistributionToolStripMenuItem.Click - dlgCumulativeDistribution.ShowDialog() - End Sub - - Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick - timer.Stop() - End Sub - - Private Sub mnuProcurementUseCRISummariseCRIbyCountry_Click(sender As Object, e As EventArgs) Handles mnuProcurementUseCRISummariseCRIbyCountry.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgColumnStats.strDefaultDataFrame = lstDataNames(0) - dlgColumnStats.strDefaultVariables = clsRLink.GetCRIColumnNames(lstDataNames(0)) - dlgColumnStats.strDefaultFactors = {clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")} - Else - dlgColumnStats.strDefaultDataFrame = "" - dlgColumnStats.strDefaultVariables = Nothing - dlgColumnStats.strDefaultFactors = Nothing - End If - dlgColumnStats.ShowDialog() - End Sub - - Private Sub mnuProcurementDescribeCategoricalOneVarFreq_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeCategoricalOneVarFreq.Click - Dim lstDataNames As List(Of String) - Dim lstColumns As New List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgOneWayFrequencies.strDefaultDataFrame = lstDataNames(0) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_single_bidder_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_all_bids_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_procurement_type_3_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_tax_haven_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label")) - lstColumns.RemoveAll(Function(x) x = "") - dlgOneWayFrequencies.strDefaultColumns = lstColumns.ToArray() - Else - dlgOneWayFrequencies.strDefaultDataFrame = "" - dlgOneWayFrequencies.strDefaultColumns = Nothing - End If - dlgOneWayFrequencies.ShowDialog() - End Sub - - Private Sub mnuProcurementDescribeCategoricalTwoVarFreq_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeCategoricalTwoVarFreq.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgTwoWayFrequencies.strDefaultDataFrame = lstDataNames(0) - dlgTwoWayFrequencies.strDefaultColumnVariable = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label") - Else - dlgTwoWayFrequencies.strDefaultDataFrame = "" - dlgTwoWayFrequencies.strDefaultColumnVariable = Nothing - End If - dlgTwoWayFrequencies.ShowDialog() - End Sub - - Private Sub mnuFileCloseData_Click(sender As Object, e As EventArgs) Handles mnuFileCloseData.Click - Dim bClose As DialogResult - - bClose = MsgBox("Are you sure you want to close you data?" & Environment.NewLine & "Any unsaved changes will be lost.", MessageBoxButtons.YesNo, "Close Data") - If bClose = DialogResult.Yes Then - clsRLink.CloseData() - strSaveFilePath = "" - End If - End Sub - - Private Sub mnuPrepareCheckDataDuplicates_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataDuplicates.Click - dlgDuplicates.ShowDialog() - End Sub - - Private Sub mnuClimaticCheckDataBoxplot_Click_1(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataBoxplot.Click - dlgClimaticBoxPlot.ShowDialog() - End Sub - - Private Sub mnuClimaticDescribeWindSpeedDirectionWindRose_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeWindSpeedDirectionWindRose.Click - dlgWindrose.ShowDialog() - End Sub - - Private Sub mnuClimaticCMSAFPlotRegion_Click(sender As Object, e As EventArgs) Handles mnuClimaticCMSAFPlotRegion.Click - dlgPlotRegion.ShowDialog() - End Sub - - Private Sub mnuClimaticCheckDataDisplayDaily_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataDisplayDaily.Click - dlgDisplayDailyData.ShowDialog() - End Sub - - Private Sub mnuPrepareColumnInfillMissingDates_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnInfillMissingDates.Click - dlgInfill.ShowDialog() - End Sub - - Private Sub mnuDataView_Click(sender As Object, e As EventArgs) Handles mnuTbDataView.Click - mnuViewDataView.Checked = Not mnuViewDataView.Checked - UpdateLayout() - End Sub - - Private Sub mnuTbOutput_Click(sender As Object, e As EventArgs) Handles mnuTbOutput.Click - mnuViewOutputWindow.Checked = Not mnuViewOutputWindow.Checked - UpdateLayout() - End Sub - - Private Sub mnuTbColumnMetadata_Click(sender As Object, e As EventArgs) Handles mnuTbColumnMetadata.Click - mnuViewColumnMetadata.Checked = Not mnuViewColumnMetadata.Checked - UpdateLayout() - End Sub - - Private Sub mnuTbLog_Click(sender As Object, e As EventArgs) Handles mnuTbLog.Click - mnuViewLog.Checked = Not mnuViewLog.Checked - UpdateLayout() - End Sub - - Private Sub mnuTbResetLayout_Click(sender As Object, e As EventArgs) Handles mnuTbResetLayout.Click - SetToDefaultLayout() - End Sub - - Public Sub SetToolbarHeight(iHeight As Integer) - 'Not currently working, do not use this method - 'Tool_strip.ImageScalingSize = New Size(iHeight, iHeight) - End Sub - - Private Sub mnuTbOpenFromLibrary_Click(sender As Object, e As EventArgs) Handles mnuTbOpenFromLibrary.Click - dlgFromLibrary.ShowDialog() - End Sub - - Private Sub mnuTbOpen_ButtonClick(sender As Object, e As EventArgs) Handles mnuTbOpen.ButtonClick - dlgImportDataset.ShowDialog() - End Sub - - Public Sub SetShowProcurementMenu(bNewShowProcurementMenu As Boolean) - mnuProcurement.Visible = bNewShowProcurementMenu - mnuViewProcurementMenu.Checked = bNewShowProcurementMenu - End Sub - - Public Sub SetShowClimaticMenu(bNewShowClimaticMenu As Boolean) - mnuClimatic.Visible = bNewShowClimaticMenu - mnuViewClimaticMenu.Checked = bNewShowClimaticMenu - End Sub - - Public Sub SetShowOptionsByContextMenu(bNewShowOptionsByContextMenu As Boolean) - mnuOptionsByContext.Visible = bNewShowOptionsByContextMenu - mnuViewOptionsByContextMenu.Checked = bNewShowOptionsByContextMenu - End Sub - - Private Sub mnuViewClimaticMenu_Click(sender As Object, e As EventArgs) Handles mnuViewClimaticMenu.Click - clsInstatOptions.SetShowClimaticMenu(Not mnuViewClimaticMenu.Checked) - End Sub - - Private Sub mnuViewProcurementMenu_Click(sender As Object, e As EventArgs) Handles mnuViewProcurementMenu.Click - clsInstatOptions.SetShowProcurementMenu(Not mnuViewProcurementMenu.Checked) - End Sub - - Private Sub mnuPrepareCheckDataBoxplot_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataBoxplot.Click - dlgBoxplot.ShowDialog() - End Sub - - Private Sub mnuPrepareCheckDataOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataOneVariableGraph.Click - dlgOneVariableGraph.ShowDialog() - End Sub - - Private Sub mnuPrepareCheckDataOneVariableSummarise_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataOneVariableSummarise.Click - dlgOneVariableSummarise.ShowDialog() - End Sub - - Private Sub mnuPrepareCheckDataOneWayFrequencies_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataOneWayFrequencies.Click - dlgOneWayFrequencies.ShowDialog() - End Sub - - Private Sub SummariseRedFlagsByCountryorOtherToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SummariseRedFlagsByCountryorOtherToolStripMenuItem.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgColumnStats.strDefaultDataFrame = lstDataNames(0) - dlgColumnStats.strDefaultVariables = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) - dlgColumnStats.strDefaultFactors = {clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")} - Else - dlgColumnStats.strDefaultDataFrame = "" - dlgColumnStats.strDefaultVariables = Nothing - dlgColumnStats.strDefaultFactors = Nothing - End If - dlgColumnStats.ShowDialog() - End Sub - - Private Sub mnuProcurementCalculateCRI_Click(sender As Object, e As EventArgs) Handles mnuProcurementCalculateCRI.Click - dlgDefineCRI.ShowDialog() - End Sub - - Private Sub mnuProcurementDefineCorruption_Click_1(sender As Object, e As EventArgs) Handles mnuProcurementDefineCorruption.Click - dlgDefineCorruptionOutputs.ShowDialog() - End Sub - - Private Sub SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem.Click - Dim lstDataNames As List(Of String) - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgColumnStats.strDefaultDataFrame = lstDataNames(0) - dlgColumnStats.strDefaultVariables = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) - dlgColumnStats.strDefaultFactors = {clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label"), clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_fiscal_year_label")} - Else - dlgColumnStats.strDefaultDataFrame = "" - dlgColumnStats.strDefaultVariables = Nothing - dlgColumnStats.strDefaultFactors = Nothing - End If - dlgColumnStats.ShowDialog() - End Sub - - Private Sub OneVariableSummariseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OneVariableSummariseToolStripMenuItem.Click - Dim lstDataNames As List(Of String) - Dim lstColumns As New List(Of String) - Dim strRedFlags() As String - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgOneVariableSummarise.strDefaultDataFrame = lstDataNames(0) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_single_bidder_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_all_bids_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_procurement_type_3_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_tax_haven_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label")) - strRedFlags = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) - If strRedFlags IsNot Nothing Then - lstColumns.AddRange(strRedFlags) - End If - lstColumns.RemoveAll(Function(x) x = "") - lstColumns = lstColumns.Distinct.ToList - dlgOneVariableSummarise.strDefaultColumns = lstColumns.ToArray() - Else - dlgOneVariableSummarise.strDefaultDataFrame = "" - dlgOneVariableSummarise.strDefaultColumns = Nothing - End If - dlgOneVariableSummarise.ShowDialog() - End Sub - - Private Sub OneVariableGraphToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OneVariableGraphToolStripMenuItem.Click - Dim lstDataNames As List(Of String) - Dim lstColumns As New List(Of String) - Dim strRedFlags() As String - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgOneVariableGraph.strDefaultDataFrame = lstDataNames(0) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_single_bidder_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_all_bids_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_procurement_type_3_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_tax_haven_label")) - lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label")) - strRedFlags = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) - If strRedFlags IsNot Nothing Then - lstColumns.AddRange(strRedFlags) - End If - lstColumns.RemoveAll(Function(x) x = "") - dlgOneVariableGraph.strDefaultColumns = lstColumns.ToArray() - Else - dlgOneVariableGraph.strDefaultDataFrame = "" - dlgOneVariableGraph.strDefaultColumns = Nothing - End If - dlgOneVariableGraph.ShowDialog() - End Sub - - Private Sub CorrelationsRedFlagsOrOthersToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles CorrelationsRedFlagsOrOthersToolStripMenuItem.Click - Dim lstDataNames As List(Of String) - Dim strComponentColumnNames() As String - - lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() - If lstDataNames.Count > 0 Then - dlgCorrelation.strDefaultDataFrame = lstDataNames(0) - strComponentColumnNames = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) - If strComponentColumnNames IsNot Nothing AndAlso strComponentColumnNames.Count > 0 Then - dlgCorrelation.strDefaultColumns = strComponentColumnNames - End If - Else - dlgCorrelation.strDefaultDataFrame = "" - dlgCorrelation.strDefaultColumns = Nothing - End If - dlgCorrelation.ShowDialog() - End Sub - - Private Sub MapCountryValuesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MapCountryValuesToolStripMenuItem.Click - dlgCountryColouredMap.ShowDialog() - End Sub - - Private Sub mnuFileImportandTidyNetCDFFile_Click(sender As Object, e As EventArgs) Handles mnuFileImportandTidyNetCDFFile.Click - dlgOpenNetCDF.ShowDialog() - End Sub - - - Private Sub mnuClimaticCheckDataQCTemperatures_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataQCTemperatures.Click - dlgClimaticCheckDataTemperature.ShowDialog() - End Sub - - Private Sub mnuClimaticCheckDataQCRainfall_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataQCRainfall.Click - dlgClimaticCheckDataRain.ShowDialog() - End Sub - - Private Sub mnuDescribeSpecificParallelCoordinatePlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificParallelCoordinatePlot.Click - dlgParallelCoordinatePlot.ShowDialog() - End Sub - - Private Sub mnuPrepareColumnCalculateColumnSummaries_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateColumnSummaries.Click - dlgColumnStats.ShowDialog() - End Sub - - Private Sub mnuPrepareColumnCalculateGeneralSummaries_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateGeneralSummaries.Click - dlgCalculationsSummary.ShowDialog() - End Sub - - Private Sub mnuModelHypothesisTests_Click(sender As Object, e As EventArgs) Handles mnuModelHypothesisTests.Click - dlgHypothesisTestsCalculator.ShowDialog() - End Sub - - Private Sub mnuPrepareColumnGenerateDate_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateDate.Click - dlgRegularSequence.bNumericIsDefault = False - dlgRegularSequence.ShowDialog() - End Sub - - Private Sub mnuClimaticDatesGenerateDates_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesGenerateDates.Click - dlgRegularSequence.bNumericIsDefault = False - dlgRegularSequence.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareEvapotranspiration_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareEvapotranspiration.Click - dlgEvapotranspiration.ShowDialog() - End Sub - - Private Sub mnuPrepareCheckDataCompareColumns_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataCompareColumns.Click - dlgCompareColumns.ShowDialog() - End Sub - - Private Sub mnuDefineOptionsByContexts_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextDefineOptionsByContexts.Click - dlgDefineOptionsByContext.ShowDialog() - End Sub - - Private Sub MergeAdditionalDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextMergeAdditionalData.Click - dlgMergeAdditionalData.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsCheckDataDuplicates_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataDuplicates.Click - dlgDuplicates.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsCheckDataCompareColumns_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataCompareColumns.Click - dlgCompareColumns.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsPrepareStack_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextPrepareStack.Click - dlgStack.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsPrepareUnstack_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextPrepareUnstack.Click - dlgUnstack.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsCheckDataOneVariableSummarise_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataOneVariableSummarise.Click - dlgOneVariableSummarise.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsCheckDataOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataOneVariableGraph.Click - dlgOneVariableGraph.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextsCheckDataOneVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataOneVariableFrequencies.Click - dlgOneWayFrequencies.ShowDialog() - End Sub - - Private Sub mnuViewOptionsByContextMenu_Click(sender As Object, e As EventArgs) Handles mnuViewOptionsByContextMenu.Click - clsInstatOptions.SetShowOptionsByContextMenu(Not mnuViewOptionsByContextMenu.Checked) - End Sub - - Private Sub mnuOptionsByContextDescribeCompareTwoTreatments_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextDescribeCompareTwoTreatments.Click - dlgCompareTreatmentLines.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextModelFitModel_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextModelFitModel.Click - dlgOptionsByContextFitModel.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextPrepareCalculateDIfferenceBetweenOptions_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextPrepareCalculateDIfferenceBetweenOptions.Click - dlgCalculateTreatmentDifferences.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextDescribeBoxplot_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextDescribeBoxplot.Click - dlgOptionsByContextBoxplot.ShowDialog() - End Sub - - Private Sub mnuPrepareCheckDataNonNumericCases_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataNonNumericCases.Click - dlgFindNonnumericValues.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineNonNumericCases_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineNonNumericCases.Click - dlgFindNonnumericValues.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineReplaceValues_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineReplaceValues.Click - dlgReplaceValues.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineOneVariableSummarize_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineOneVariableSummarize.Click - dlgOneVariableSummarise.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareLengthOfSeason_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareLengthOfSeason.Click - dlgClimaticLengthOfSeason.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareCompare_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareCompare.Click - dlgCompare.ShowDialog() - End Sub - - Private Sub mnuPrepareCheckDataAnonymiseIDColumn_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataAnonymiseIDColumn.Click - dlgAnonymiseIDColumn.ShowDialog() - End Sub - - Private Sub mnuClimaticFileOpenandTidyShapefile_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileOpenandTidyShapefile.Click - dlgImportShapeFiles.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineTidyDailyData_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineTidyDailyData.Click - dlgTidyDailyData.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineMerge_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineMerge.Click - dlgMerge.ShowDialog() - End Sub - - Private Sub mnuTbLastGraph_Click(sender As Object, e As EventArgs) Handles mnuTbLastGraph.Click - clsRLink.ViewLastGraph() - End Sub - - Private Sub mnuClimaticCMSAFExporttoCMSAFRToolbox_Click(sender As Object, e As EventArgs) Handles mnuClimaticCMSAFExporttoCMSAFRToolbox.Click - dlgExportToCMSAF.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareConversions_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareConversions.Click - dlgConversions.ShowDialog() - End Sub - - Private Sub mnuOptionsByContextGeneralFitModel_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextGeneralFitModel.Click - dlgFitModel.ShowDialog() - End Sub - - Private Sub mnuHelpAcknowledgments_Click(sender As Object, e As EventArgs) Handles mnuHelpAcknowledgments.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "151") - End Sub - - Private Sub mnuDescribeSpecificMosaic_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificMosaic.Click - dlgMosaicPlot.ShowDialog() - End Sub - - Private Sub BarChartsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarChartsToolStripMenuItem.Click - dlgBarAndPieChart.ShowDialog() - End Sub - - Private Sub MosaicPlotToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MosaicPlotToolStripMenuItem.Click - dlgMosaicPlot.ShowDialog() - End Sub - - Private Sub BoxplotToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BoxplotToolStripMenuItem.Click - dlgBoxplot.ShowDialog() - End Sub - - Private Sub HistogramToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistogramToolStripMenuItem.Click - dlgHistogram.ShowDialog() - End Sub - - Private Sub OpenFromLibraryToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenFromLibraryToolStripMenuItem.Click - dlgImportDataset.strFileToOpenOn = "" - dlgImportDataset.bStartOpenDialog = True - dlgImportDataset.bFromLibrary = True - dlgImportDataset.ShowDialog() - End Sub - - Private Sub MnuClimaticTidyandExamineUnstack_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineUnstack.Click - dlgUnstack.ShowDialog() - - End Sub - - Private Sub mnuClimaticTidyandExamineStack_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineStack.Click - dlgStack.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineAppend_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineAppend.Click - dlgAppend.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareClimdex_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareClimdex.Click - dlgClimdexIndices.ShowDialog() - End Sub - - Private Sub mnuClimaticPrepareSPI_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareSPI.Click - dlgSPI.ShowDialog() - End Sub - - Private Sub mnuClimaticMapping_Click(sender As Object, e As EventArgs) Handles mnuClimaticMapping.Click - dlgClimaticStationMaps.ShowDialog() - End Sub - - Private Sub mnuModelModel_Click(sender As Object, e As EventArgs) Handles mnuModelModel.Click - dlgModelling.ShowDialog() - End Sub - - Private Sub mnuHelpWindows_Click(sender As Object, e As EventArgs) Handles mnuHelpWindows.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "539") - End Sub - - Private Sub mnuHelpDataViewSpreadsheet_Click(sender As Object, e As EventArgs) Handles mnuHelpDataViewSpreadsheet.Click - Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "134") - End Sub - - Private Sub mnuClimaticTidyandExamineOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineOneVariableGraph.Click - dlgOneVariableGraph.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineOneVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineOneVariableFrequencies.Click - dlgOneWayFrequencies.ShowDialog() - End Sub - - Private Sub mnuClimaticTidyandExamineDuplicates_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineDuplicates.Click - dlgDuplicates.ShowDialog() - End Sub - - Private Sub UseModelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UseModelToolStripMenuItem.Click - dlgUseModel.ShowDialog() - End Sub - - Private Sub mnuCumExeedenceGraph_Click(sender As Object, e As EventArgs) Handles mnuCumExeedenceGraph.Click - dlgCumulativeDistribution.ShowDialog() - End Sub +' R- Instat +' Copyright (C) 2015-2017 +' +' This program is free software: you can redistribute it and/or modify +' it under the terms of the GNU General Public License as published by +' the Free Software Foundation, either version 3 of the License, or +' (at your option) any later version. +' +' This program is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU General Public License for more details. +' +' You should have received a copy of the GNU General Public License +' along with this program. If not, see . + +Imports RDotNet +Imports System.IO +Imports System.Globalization +Imports System.Threading +Imports instat.Translations +Imports System.ComponentModel +Imports System.Runtime.Serialization.Formatters.Binary + +Public Class frmMain + Public clsRLink As New RLink + Public clsGrids As New clsGridLink + Public strStaticPath As String + Public strHelpFilePath As String = "Help\R-Instat.chm" + Public strAppDataPath As String + Public strInstatOptionsFile As String = "Options.bin" + Public clsInstatOptions As InstatOptions + Public clsRecentItems As New clsRecentFiles + Public strCurrentDataFrame As String + Public dlgLastDialog As Form + Public strSaveFilePath As String = "" + Private mnuItems As New List(Of Form) + Private ctrActive As Control + Private WithEvents timer As New System.Windows.Forms.Timer + Private iAutoSaveDataMilliseconds As Integer + + Public strAutoSaveDataFolderPath As String = Path.Combine(Path.GetTempPath, "R-Instat_data_auto_save") + Public strAutoSaveLogFolderPath As String = Path.Combine(Path.GetTempPath, "R-Instat_log_auto_save") + Public strAutoSaveInternalLogFolderPath As String = Path.Combine(Path.GetTempPath, "R-Instat_debug_log_auto_save") + + Public strCurrentAutoSaveDataFilePath As String = "" + + 'This is the default data frame to appear in the data frame selector + 'If "" the current worksheet will be used + 'TODO This should be an option in the Options dialog + ' User can choose a default data frame or set the default as the current worksheet + Public strDefaultDataFrame As String = "" + + Public Sub New() + + ' This call is required by the designer. + InitializeComponent() + + ' Add any initialization after the InitializeComponent() call. + End Sub + + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + Dim prdCustom As New clsCustomRenderer(New clsCustomColourTable) + Dim bClose As Boolean = False + ' Note: this must change when R version changes + Dim strRPackagesPath As String = Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "R\win-library\3.6") + + mnuBar.Renderer = prdCustom + Tool_strip.Renderer = prdCustom + SetMainMenusEnabled(False) + Cursor = Cursors.WaitCursor + 'temporary + mnuHelpAboutRInstat.Visible = False + + ' This must be fixed because CurrentCulture affects functions such as Decimal.TryParse + ' e.g. "1.0" fails Decimal.TryParse if CurrentCulture = "fr-FR" because it expects "1,0" + ' Decimal point must be `.` and not `,` because R only accepts `.` + Thread.CurrentThread.CurrentCulture = New CultureInfo("en-GB") + + InitialiseOutputWindow() + clsGrids.SetDataViewer(ucrDataViewer) + clsGrids.SetMetadata(ucrDataFrameMeta.grdMetaData) + clsGrids.SetVariablesMetadata(ucrColumnMeta.grdVariables) + + clsRLink.SetLog(ucrLogWindow.txtLog) + + SetToDefaultLayout() + strStaticPath = Path.GetFullPath("static") + strAppDataPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "RInstat\") + + ' We need to create the likely R package installation directory before R.NET connection is initialised + ' because of a bug in R.NET 1.8.2 where pop ups to create directories do not appear. + ' This assumes that R packages will be installed in "Documents" folder and also that + ' this is detected by "SpecialDirectories.MyDocuments". + ' If either of these fail then R packages will need to be installed from R/RStudio first. + Try + If Not Directory.Exists(strRPackagesPath) Then + System.IO.Directory.CreateDirectory(strRPackagesPath) + End If + Catch ex As Exception + ' This may fail for many reasons. We may want to inform users this may lead to packages not installing. + End Try + + bClose = AutoRecoverAndStartREngine() + If bClose Then + Application.Exit() + Else + 'Do this after setting up R Link because loading options may run R code + LoadInstatOptions() + 'Must come after loading options as options may change language. + TranslateFrmMainMenu() + + 'Do this after loading options because interval depends on options + 'Interval is in milliseconds and option is in minutes + timer.Interval = (clsInstatOptions.iAutoSaveDataMinutes * 60 * 1000) + timer.Start() + + AddHandler System.Windows.Forms.Application.Idle, AddressOf Application_Idle + + 'Sets up the Recent items + clsRecentItems.setToolStripItems(mnuFile, mnuTbOpen, mnuTbLast10Dialogs, sepStart, sepEnd) + 'checks existence of MRU list + clsRecentItems.checkOnLoad() + Cursor = Cursors.Default + SetMainMenusEnabled(True) + + mnuViewClimaticMenu.Checked = clsInstatOptions.bShowClimaticMenu + mnuViewProcurementMenu.Checked = clsInstatOptions.bShowProcurementMenu + End If + End Sub + + ' TODO This is used instead of autoTranslate so that split container isn't shifted + ' Need to fix this so that all of frmMain can be translated + Public Sub TranslateFrmMainMenu() + translateMenu(mnuBar.Items, Me) + End Sub + Private Sub SetMainMenusEnabled(bEnabled As Boolean) + mnuFile.Enabled = bEnabled + mnuEdit.Enabled = bEnabled + mnuPrepare.Enabled = bEnabled + mnuDescribe.Enabled = bEnabled + mnuModel.Enabled = bEnabled + mnuClimatic.Enabled = bEnabled + mnuProcurement.Enabled = bEnabled + mnuOptionsByContext.Enabled = bEnabled + mnuTools.Enabled = bEnabled + mnuView.Enabled = bEnabled + mnuHelp.Enabled = bEnabled + Tool_strip.Enabled = bEnabled + End Sub + + Private Sub Application_Idle(sender As Object, e As EventArgs) + If clsInstatOptions.bAutoSaveData AndAlso Not timer.Enabled AndAlso (ActiveForm Is Nothing OrElse ActiveForm.Equals(Me)) AndAlso Not clsRLink.bRCodeRunning Then + AutoSaveData() + ResetTimer() + End If + End Sub + + Public Sub ResetTimer() + If clsInstatOptions IsNot Nothing AndAlso clsInstatOptions.bAutoSaveData IsNot Nothing AndAlso clsInstatOptions.bAutoSaveData Then + timer.Interval = (clsInstatOptions.iAutoSaveDataMinutes * 60 * 1000) + timer.Start() + End If + End Sub + + Private Function AutoRecoverAndStartREngine() As Boolean + Dim iLogFiles As Integer = 0 + Dim iInternalLogFiles As Integer = 0 + Dim iDataFiles As Integer = 0 + Dim strScript As String = "" + Dim strDataFilePath As String = "" + Dim strAutoSavedLogFilePaths() As String = Nothing + Dim strAutoSavedInternalLogFilePaths() As String = Nothing + Dim strAutoSavedDataFilePaths() As String = Nothing + Dim bClose As Boolean = False + + If Process.GetProcessesByName(Path.GetFileNameWithoutExtension(Reflection.Assembly.GetEntryAssembly().Location)).Count() > 1 Then + bClose = clsRLink.StartREngine(clsRLink.GetRSetupScript()) + Else + If (Directory.Exists(strAutoSaveLogFolderPath)) Then + strAutoSavedLogFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveLogFolderPath).ToArray + iLogFiles = strAutoSavedLogFilePaths.Count + End If + If (Directory.Exists(strAutoSaveInternalLogFolderPath)) Then + strAutoSavedInternalLogFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveInternalLogFolderPath).ToArray + iInternalLogFiles = strAutoSavedInternalLogFilePaths.Count + End If + If Directory.Exists(strAutoSaveDataFolderPath) Then + strAutoSavedDataFilePaths = My.Computer.FileSystem.GetFiles(strAutoSaveDataFolderPath).ToArray + iDataFiles = strAutoSavedDataFilePaths.Count + End If + If iLogFiles > 0 OrElse iDataFiles > 0 OrElse iInternalLogFiles > 0 Then + If MsgBox("We have detected that R-Instat may have closed unexpectedly last time." & Environment.NewLine & "Would you like to see auto recovery options?", MessageBoxButtons.YesNo, "Auto Recovery") = MsgBoxResult.Yes Then + dlgAutoSaveRecovery.strAutoSavedLogFilePaths = strAutoSavedLogFilePaths + dlgAutoSaveRecovery.strAutoSavedDataFilePaths = strAutoSavedDataFilePaths + dlgAutoSaveRecovery.strAutoSavedInternalLogFilePaths = strAutoSavedInternalLogFilePaths + dlgAutoSaveRecovery.ShowDialog() + strScript = dlgAutoSaveRecovery.GetScript() + strDataFilePath = dlgAutoSaveRecovery.GetDataFilePath() + End If + End If + bClose = clsRLink.StartREngine(strScript) + If Not bClose Then + If strDataFilePath <> "" Then + clsRLink.LoadInstatDataObjectFromFile(strDataFilePath, strComment:="Loading auto recovered data file") + End If + If iLogFiles > 0 Then + Try + File.Delete(strAutoSavedLogFilePaths(0)) + Catch ex As Exception + MsgBox("Could not delete backup log file" & Environment.NewLine, "Error deleting file") + End Try + End If + If iInternalLogFiles > 0 Then + Try + File.Delete(strAutoSavedInternalLogFilePaths(0)) + Catch ex As Exception + MsgBox("Could not delete backup internal log file." & Environment.NewLine & ex.Message, "Error deleting file") + End Try + End If + If iDataFiles > 0 Then + Try + File.Delete(strAutoSavedDataFilePaths(0)) + Catch ex As Exception + MsgBox("Could not delete back data file." & Environment.NewLine & ex.Message, "Error deleting file") + End Try + End If + End If + End If + Return bClose + End Function + + Private Sub InitialiseOutputWindow() + clsRLink.SetOutput(ucrOutput.ucrRichTextBox) + 'TEST temporary : creating the temporary graphs + clsRLink.rtbOutput.CreateTempDirectory() + End Sub + + Private Sub LoadInstatOptions() + If File.Exists(Path.Combine(strAppDataPath, strInstatOptionsFile)) Then + LoadInstatOptionsFromFile(Path.Combine(strAppDataPath, strInstatOptionsFile)) + Else + clsInstatOptions = New InstatOptions + 'TODO Should these be here or in the constructor (New) of InstatOptions? + End If + End Sub + + Private Sub SetToDefaultLayout() + splOverall.SplitterDistance = splOverall.Height / 4 + splDataOutput.SplitterDistance = splDataOutput.Width / 2 + splExtraWindows.SplitterDistance = splExtraWindows.Width / 2 + splLogScript.SplitterDistance = splLogScript.Width / 2 + splMetadata.SplitterDistance = splMetadata.Width / 2 + + mnuViewDataView.Checked = True + mnuViewOutputWindow.Checked = True + mnuViewLog.Checked = False + mnuViewDataFrameMetadata.Checked = False + mnuViewColumnMetadata.Checked = False + mnuViewScriptWindow.Checked = False + + mnuTbDataView.Checked = True + mnuTbOutput.Checked = True + mnuTbColumnMetadata.Checked = False + mnuTbLog.Checked = False + + UpdateLayout() + End Sub + + Public Sub LoadInstatOptionsFromFile(strFilePath As String) + 'Dim FileStream As Stream + Dim deserializer As New BinaryFormatter() + + 'TODO Check if any options are not in loaded file, add defaults if missing + ' Could happen when updating to newer version with more options, and old options file remains on disk. + ' Alternative could be to create new instance with defaults and add/override only non empty fields from the imported file + ' to ensure all fields have some value + If File.Exists(strFilePath) Then + Try + Using FileStream As Stream = File.OpenRead(strFilePath) + clsInstatOptions = CType(deserializer.Deserialize(FileStream), InstatOptions) + clsInstatOptions.SetOptions() + 'TODO Check whether this is needed or not. Using should do it automatically. + ' Also check general structure of this code. + 'FileStream.Close() + End Using + Catch ex As Exception + MsgBox("Could not load options from:" & strFilePath & Environment.NewLine & "The file may be in use by another program or the file does not contain an instance of InstatOptions." & Environment.NewLine & "Options will be reset to factory defaults." & vbNewLine & "System error message: " & ex.Message, MsgBoxStyle.Information, "Cannot open options file") + clsInstatOptions = New InstatOptions + End Try + Else + MsgBox("Options file:" & strFilePath & " does not exist." & Environment.NewLine & "File will not be loaded." & vbNewLine & "Options will be reset to factory defaults.", MsgBoxStyle.Information) + clsInstatOptions = New InstatOptions + End If + End Sub + + Public Sub SaveInstatOptions(strFilePath As String) + Dim serializer As New BinaryFormatter() + + Try + Using FileStream As Stream = File.Create(strFilePath) + 'If the program is closed during startup of the RLink e.g. if R is not installed correctly + 'then clsInstatOptions = Nothing because this is initialised after setup. + 'Hence we do not need to save or give an error message. + If clsInstatOptions IsNot Nothing Then + serializer.Serialize(FileStream, clsInstatOptions) + 'TODO Check whether this is needed or not. Using should do it automatically. + ' Also check general structure of this code. + 'FileStream.Close() + End If + End Using + Catch ex As Exception + MsgBox("Error attempting to save to file:" & strFilePath & Environment.NewLine & "The file may be in use by another program." & Environment.NewLine & "System error message: " & ex.Message, MsgBoxStyle.Critical, "Error saving to file") + End Try + End Sub + + Public Sub AddGraphForm(strFilePath As String) + Dim frmNewGraph As New frmGraphDisplay + + frmNewGraph.SetImageFromFile(strFilePath) + frmNewGraph.Show() + frmNewGraph.BringToFront() + End Sub + + Public Sub AddToScriptWindow(strText As String, Optional bMakeVisible As Boolean = True) + ucrScriptWindow.AppendText(strText) + If bMakeVisible Then + mnuViewScriptWindow.Checked = True + UpdateLayout() + End If + End Sub + + Private Sub mnuFileNewDataFrame_Click(sender As Object, e As EventArgs) Handles mnuFileNewDataFrame.Click + dlgNewDataFrame.ShowDialog() + End Sub + + Private Sub RegularSequenceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateRegularSequence.Click + dlgRegularSequence.bNumericIsDefault = True + dlgRegularSequence.ShowDialog() + End Sub + + Private Sub mnuCalculations_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateCalculations.Click + dlgCalculator.ShowDialog() + End Sub + + Private Sub mnuPrepareAddColumnRowSummary_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateRowSummary.Click + dlgRowSummary.ShowDialog() + End Sub + + Private Sub FrequencyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificFrequency.Click + dlgFrequency.ShowDialog() + End Sub + + Private Sub SummaryToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificSummary.Click + dlgSummaryTables.ShowDialog() + End Sub + + Private Sub mnuPrepareAddColumnTransform_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateTransform.Click + dlgTransform.ShowDialog() + End Sub + + Private Sub mnuPrepareAddColumnPolynomials_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculatePolynomials.Click + dlgPolynomials.ShowDialog() + End Sub + + Private Sub mnuPrepareReshapeStack_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeStack.Click + dlgStack.ShowDialog() + End Sub + + Private Sub mnuPrepareReshapeUnstack_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeUnstack.Click + dlgUnstack.ShowDialog() + End Sub + + Private Sub mnuPrepareAddColumnRecode_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorRecodeNumeric.Click + dlgRecodeNumeric.ShowDialog() + End Sub + + Private Sub RandomSamplesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateRandomSamples.Click + dlgRandomSample.ShowDialog() + End Sub + + Private Sub ViewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameViewData.Click + dlgView.ShowDialog() + End Sub + + Private Sub SelectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeSubset.Click + dlgRestrict.bIsSubsetDialog = True + dlgRestrict.ShowDialog() + End Sub + + Private Sub mnuModelThreeVariablesFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelThreeVariablesFitModel.Click + dlgThreeVariableModelling.ShowDialog() + End Sub + + 'Private Sub mnuStatsNonParametricTwoWayAnova_Click_1(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesNonParametricTwoWayANOVA.Click + ' dlgNon_ParametricTwoWayAnova.ShowDialog() + 'End Sub + + Private Sub ImportDailyDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareImportDailyData.Click + + End Sub + + Private Sub ShiftDailyDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareShiftDailyData.Click + dlgShiftDailyData.ShowDialog() + End Sub + + Private Sub StackDailyDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareStackDailyData.Click + dlgStackDailyData.ShowDialog() + End Sub + Private Sub mnuClimaticExamine_Click(sender As Object, e As EventArgs) Handles mnuClimaticExamine.Click + dlgExamine.ShowDialog() + End Sub + + Private Sub mnuClimaticEvaporationSite_Click(sender As Object, e As EventArgs) Handles mnuClimaticEvaporationSite.Click + dlgSite.ShowDialog() + End Sub + + Private Sub mnuFIleExit_Click(sender As Object, e As EventArgs) Handles mnuFIleExit.Click + Me.Close() + End Sub + + Private Sub mnuFileOpenFromFile_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromFile.Click + dlgImportDataset.ShowDialog() + End Sub + + Private Sub mnuFileOpenFromLibrary_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromLibrary.Click + dlgFromLibrary.ShowDialog() + End Sub + + Private Sub mnuPrepareDataRename_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameRenameColumn.Click + dlgName.ShowDialog() + End Sub + + Private Sub UpdateLayout() + If Not mnuViewDataView.Checked AndAlso Not mnuViewOutputWindow.Checked AndAlso Not mnuViewColumnMetadata.Checked AndAlso Not mnuViewDataFrameMetadata.Checked AndAlso Not mnuViewLog.Checked AndAlso Not mnuViewScriptWindow.Checked Then + splOverall.Hide() + Else + splOverall.Show() + If mnuViewDataView.Checked OrElse mnuViewOutputWindow.Checked Then + splOverall.Panel2Collapsed = False + splDataOutput.Panel1Collapsed = Not mnuViewDataView.Checked + splDataOutput.Panel2Collapsed = Not mnuViewOutputWindow.Checked + Else + splOverall.Panel2Collapsed = True + End If + If mnuViewColumnMetadata.Checked OrElse mnuViewDataFrameMetadata.Checked OrElse mnuViewLog.Checked OrElse mnuViewScriptWindow.Checked Then + splOverall.Panel1Collapsed = False + + If mnuViewColumnMetadata.Checked OrElse mnuViewDataFrameMetadata.Checked Then + splExtraWindows.Panel1Collapsed = False + splMetadata.Panel1Collapsed = Not mnuViewColumnMetadata.Checked + splMetadata.Panel2Collapsed = Not mnuViewDataFrameMetadata.Checked + Else + splExtraWindows.Panel1Collapsed = True + End If + + If mnuViewLog.Checked OrElse mnuViewScriptWindow.Checked Then + splExtraWindows.Panel2Collapsed = False + splLogScript.Panel1Collapsed = Not mnuViewLog.Checked + splLogScript.Panel2Collapsed = Not mnuViewScriptWindow.Checked + Else + splExtraWindows.Panel2Collapsed = True + End If + Else + splOverall.Panel1Collapsed = True + End If + End If + mnuTbDataView.Checked = mnuViewDataView.Checked + mnuTbOutput.Checked = mnuViewOutputWindow.Checked + mnuTbColumnMetadata.Checked = mnuViewColumnMetadata.Checked + mnuTbLog.Checked = mnuViewLog.Checked + End Sub + + Private Sub mnuWindowVariable_Click(sender As Object, e As EventArgs) Handles mnuViewColumnMetadata.Click + mnuViewColumnMetadata.Checked = Not mnuViewColumnMetadata.Checked + UpdateLayout() + End Sub + + Private Sub mnuWindowDataFrame_Click(sender As Object, e As EventArgs) Handles mnuViewDataFrameMetadata.Click + mnuViewDataFrameMetadata.Checked = Not mnuViewDataFrameMetadata.Checked + UpdateLayout() + End Sub + + Private Sub LogToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuViewLog.Click + mnuViewLog.Checked = Not mnuViewLog.Checked + UpdateLayout() + End Sub + + Private Sub ScriptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuViewScriptWindow.Click + mnuViewScriptWindow.Checked = Not mnuViewScriptWindow.Checked + UpdateLayout() + End Sub + + Private Sub mnuPrepareReshapeMerge_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeMerge.Click + dlgMerge.ShowDialog() + End Sub + + Private Sub mnuWindowsEditor_Click(sender As Object, e As EventArgs) Handles mnuViewDataView.Click + mnuViewDataView.Checked = Not mnuViewDataView.Checked + UpdateLayout() + End Sub + + Private Sub mnuFilePrint_Click(sender As Object, e As EventArgs) Handles mnuFilePrint.Click + dlgPrintPreviewOptions.ShowDialog() + End Sub + + Private Sub mnuFilePrintPreview_Click(sender As Object, e As EventArgs) Handles mnuFilePrintPreview.Click + dlgPrintPreviewOptions.ShowDialog() + End Sub + + Private Sub mnuPrepareAddColumnRank_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateRank.Click + dlgRank.ShowDialog() + End Sub + + Private Sub mnuClimateMethodsCreateClimateObject_Click(sender As Object, e As EventArgs) + dlgCreateClimateObject.ShowDialog() + End Sub + + 'Private Sub mnuExport_Click(sender As Object, e As EventArgs) Handles mnuExport.Click + ' dlgExportDataset.ShowDialog() + 'End Sub + + Private Sub mnuPrepareDataFileSheetMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectDataFrameMetadata.Click + dlgDataFrameMetaData.ShowDialog() + End Sub + + Private Sub mnuPrepareSheetColumnMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameColumnMetadata.Click + mnuViewColumnMetadata.Checked = True + UpdateLayout() + End Sub + + Private Sub mnuPrepareSheetInsertColumnsRows_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameInsertColumnsRows.Click + dlgInsertColumn.ShowDialog() + End Sub + + Private Sub mnuGraphicsBarPie_Click(sender As Object, e As EventArgs) + dlgBarAndPieChart.ShowDialog() + End Sub + + Private Sub mnuPrepareAddColumnPermuteRows_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGeneratePermuteRows.Click + dlgPermuteColumn.ShowDialog() + End Sub + Private Sub mnuPrepareDataFileDeleteSheets_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectDeleteDataFrame.Click + dlgDeleteDataFrames.ShowDialog() + End Sub + + + Private Sub mnuPrepareSheetDeleteColumnsRows_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameDeleteColumnsRows.Click + dlgDeleteRowsOrColums.ShowDialog() + End Sub + + Private Sub EditLastDialogueToolStrip_Click(sender As Object, e As EventArgs) Handles mnuTbEditLastDialog.Click + If clsRecentItems.mnuItems.Count > 0 Then + clsRecentItems.mnuItems.Last.ShowDialog() + End If + End Sub + + Private Sub mnuTbSave_Click(sender As Object, e As EventArgs) Handles mnuTbSave.Click + mnuFileSave_Click(sender, e) + End Sub + + Private Sub mnuFileSave_Click(sender As Object, e As EventArgs) Handles mnuFileSave.Click + Dim clsSaveRDS As New RFunction + + If strSaveFilePath = "" Then + dlgSaveAs.ShowDialog() + Else + clsSaveRDS.SetRCommand("saveRDS") + clsSaveRDS.AddParameter("object", clsRLink.strInstatDataObject) + clsSaveRDS.AddParameter("file", Chr(34) & Replace(strSaveFilePath, "\", "/") & Chr(34)) + clsRLink.RunScript(clsSaveRDS.ToScript(), strComment:="File > Save: save file") + End If + End Sub + + Private Sub mnuTbCopy_Click(sender As Object, e As EventArgs) Handles mnuTbCopy.Click + mnuEditCopy_Click(sender, e) + End Sub + + Private Sub mnuHelpHelp_Click(sender As Object, e As EventArgs) + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TableOfContents, "") + End Sub + + Private Sub mnuTbHelp_Click(sender As Object, e As EventArgs) Handles mnuTbHelp.Click + mnuHelpHelp_Click(sender, e) + End Sub + + Private Sub mnuPrepareFactorRecode_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorRecodeFactor.Click + dlgRecodeFactor.ShowDialog() + End Sub + + Private Sub mnuPrepareDataFileCopySheet_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectCopyDataFrame.Click + dlgCopyDataFrame.ShowDialog() + End Sub + + Private Sub mnuPrepareDataFileReorderSheets_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectReorderDataFrames.Click + dlgReorderDataFrame.ShowDialog() + End Sub + + Private Sub mnuPrepareDataFileRenameSheet_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectRenameDataFrame.Click + dlgRenameDataFrame.ShowDialog() + End Sub + + Private Sub mnuPrepareRechapeColumnSummaries_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeColumnSummaries.Click + dlgColumnStats.ShowDialog() + End Sub + + Private Sub mnuPrepareSheetReorder_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameReorderColumns.Click + dlgReorderColumns.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorReferenceLevels_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorReferenceLevel.Click + dlgReferenceLevel.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorLabel_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorLevelsLabels.Click + dlgLabelsLevels.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorViewLabels_Click(sender As Object, e As EventArgs) Handles mnuPrepareFactorViewLabels.Click + dlgViewFactorLabels.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorConvertToFactor_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorConvertToFactor.Click + dlgConvertColumns.bToFactorOnly = True + dlgConvertColumns.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorReorderLevels_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorReorderLevels.Click + dlgReorderLevels.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorUnusedLevels_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorUnusedLevels.Click + dlgRemoveUnusedLevels.ShowDialog() + End Sub + Private Sub mnuPrepareDataSort_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameSort.Click + dlgSort.ShowDialog() + End Sub + + Private Sub mnuPrepareViewObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsView.Click + dlgViewObjects.ShowDialog() + End Sub + + Private Sub mnuPrepareReorderObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsReorder.Click + dlgReorderObjects.ShowDialog() + End Sub + + Private Sub mnuPrepareRenameObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsRename.Click + dlgRenameObjects.ShowDialog() + End Sub + + Private Sub mnuPrepareDeleteObjects_Click(sender As Object, e As EventArgs) Handles mnuPrepareRObjectsDelete.Click + dlgDeleteObjects.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorContrasts_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorContrasts.Click + dlgContrasts.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorSheet_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorFactorDataFrame.Click + dlgFactorDataFrame.ShowDialog() + End Sub + + Private Sub mnuPrepareTextSplit_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextSplit.Click + dlgSplitText.ShowDialog() + End Sub + + Private Sub mnuPrepareTextCombine_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextCombine.Click + dlgCombineText.ShowDialog() + End Sub + + Private Sub mnuPrepareDataFilter_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameFilter.Click + dlgRestrict.bIsSubsetDialog = False + dlgRestrict.strDefaultDataframe = "" + dlgRestrict.ShowDialog() + End Sub + + Private Sub mnuPrepareDataConvertTo_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameConvertColumns.Click + dlgConvertColumns.bToFactorOnly = False + dlgConvertColumns.ShowDialog() + End Sub + + Private Sub mnuPrepareReshapeTranspose_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeTranspose.Click + dlgTransposeColumns.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorCombine_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorCombineFactors.Click + dlgCombine.ShowDialog() + End Sub + + Private Sub mnuPrepareFactorDummyVariable_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnFactorDummyVariables.Click + dlgDummyVariables.ShowDialog() + End Sub + + 'Private Sub mnuStatisticsAnalysisOfVarianceGeneral_Click(sender As Object, e As EventArgs) Handles mnuModelOtherGeneralANOVAGeneral.Click + ' dlgGeneralANOVA.ShowDialog() + 'End Sub + + 'Private Sub mnuStatisticsRegressionGeneral_Click(sender As Object, e As EventArgs) Handles mnuModelOtherGeneralRegression.Click + ' dlgGeneralRegression.ShowDialog() + 'End Sub + + Private Sub GeneralToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuDescribeGeneralGraphics.Click + dlgGeneralForGraphics.ShowDialog() + End Sub + + Private Sub mnuPrepareTextTransform_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextTransform.Click + dlgTransformText.ShowDialog() + End Sub + + Private Sub mnuEditSelectAll_Click(sender As Object, e As EventArgs) Handles mnuEditSelectAll.Click + If ctrActive IsNot Nothing Then + If ctrActive.Equals(ucrDataViewer) Then + ucrDataViewer.SelectAllText() + ElseIf ctrActive.Equals(ucrOutput) Then + ucrOutput.SelectAllText() + ElseIf ctrActive.Equals(ucrColumnMeta) Then + ucrColumnMeta.SelectAllText() + ElseIf ctrActive.Equals(ucrDataFrameMeta) Then + ucrDataFrameMeta.SelectAllText() + ElseIf ctrActive.Equals(ucrLogWindow) Then + ucrLogWindow.SelectAllText() + ElseIf ctrActive.Equals(ucrScriptWindow) Then + ucrScriptWindow.SelectAllText() + End If + End If + End Sub + + Private Sub mnuEditCopy_Click(sender As Object, e As EventArgs) Handles mnuEditCopy.Click + If ctrActive.Equals(ucrDataViewer) Then + ucrDataViewer.CopyRange() + ElseIf ctrActive.Equals(ucrOutput) Then + ucrOutput.CopyContent() + ElseIf ctrActive.Equals(ucrColumnMeta) Then + ucrColumnMeta.CopyRange() + ElseIf ctrActive.Equals(ucrDataFrameMeta) Then + ucrDataFrameMeta.CopyRange() + ElseIf ctrActive.Equals(ucrLogWindow) Then + ucrLogWindow.CopyText() + ElseIf ctrActive.Equals(ucrScriptWindow) Then + ucrScriptWindow.CopyText() + End If + End Sub + + Private Sub mnuToolsOptions_Click(sender As Object, e As EventArgs) Handles mnuToolsOptions.Click + dlgOptions.ShowDialog() + End Sub + + Private Sub mnuOrganiseDataFrameHideColumns_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameHideColumns.Click + dlgHideShowColumns.ShowDialog() + End Sub + + Private Sub mnuModelProbabilityDistributionsRandomSamplesUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsRandomSamplesUseModel.Click + dlgRandomSample.ShowDialog() + End Sub + + Private Sub mnuModelTwoVariablesFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelTwoVariablesFitModel.Click + dlgTwoVariableFitModel.ShowDialog() + End Sub + + Private Sub mnuModelOtherOneVariableExactResults_Click(sender As Object, e As EventArgs) Handles mnuModelOtherOneVariableExactResults.Click + dlgOneSample.ShowDialog() + End Sub + + Private Sub mnuModelOtherOneVariableNonParametric_Click(sender As Object, e As EventArgs) Handles mnuModelOtherOneVariableNonParametric.Click + dlgNon_ParametricOneSampleTests.ShowDialog() + End Sub + + Private Sub mnuModelOtherTwoVariablesSimpleRegression_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesSimpleRegression.Click + dlgTwoVariableFitModel.ShowDialog() + End Sub + + Private Sub mnuModelOtherTwoVariablesOneWayANOVA_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesOneWayANOVA.Click + dlgOneWayANOVA.ShowDialog() + End Sub + + Private Sub mnuModelOtherTwoVariablesNonParametricTwoSamples_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesNonParametricTwoSamples.Click + + End Sub + + Private Sub mnuModelOtherTwoVariablesNonParametricOneWayANOVA_Click(sender As Object, e As EventArgs) Handles mnuModelOtherTwoVariablesNonParametricOneWayANOVA.Click + dlgNon_ParametricOneWayANOVA.ShowDialog() + End Sub + + Private Sub mnuModelOtherThreeVariablesSimpleWithGroups_Click(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesSimpleWithGroups.Click + dlgThreeVariableModelling.ShowDialog() + End Sub + + Private Sub mnuModelOtherThreeVariablesNonParametricTwoWayANOVA_Click(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesNonParametricTwoWayANOVA.Click + dlgNon_ParametricTwoWayAnova.ShowDialog() + End Sub + + Private Sub mnuModelOtherThreeVariablesChisquareTest_Click(sender As Object, e As EventArgs) Handles mnuModelOtherThreeVariablesChisquareTest.Click + dlgChiSquareTest.ShowDialog() + End Sub + + Private Sub mnuModelOtherGeneralANOVAGeneral_Click(sender As Object, e As EventArgs) Handles mnuModelOtherGeneralANOVAGeneral.Click + dlgGeneralANOVA.ShowDialog() + End Sub + + Private Sub OutputWindowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuViewOutputWindow.Click + mnuViewOutputWindow.Checked = Not mnuViewOutputWindow.Checked + UpdateLayout() + End Sub + + Private Sub mnuOrganiseColumnReshapeRandomSubset_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeRandomSubset.Click + dlgRandomSubsets.ShowDialog() + End Sub + + Private Sub mnuToolsClearOutputWindow_Click(sender As Object, e As EventArgs) Handles mnuToolsClearOutputWindow.Click + Dim rstResponse As DialogResult + rstResponse = MessageBox.Show("Are you sure you want to clear the Output Window?", "Clear Output Window", MessageBoxButtons.YesNo) + If rstResponse = DialogResult.Yes Then + ucrOutput.ucrRichTextBox.rtbOutput.Document.Blocks.Clear() 'To b checked + End If + End Sub + + Private Sub mnuOrganiseDataObjectDeleteMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectDeleteMetadata.Click + dlgDeleteMetadata.ShowDialog() + End Sub + + Private Sub mnuOrganiseDataObjectMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectMetadata.Click + 'TODO Change this dialog + ' currently dlgMetadata is colouring grid dialog + dlgMetadata.ShowDialog() + End Sub + + Private Sub mnuOrganiseDataObjectReorderMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectReorderMetadata.Click + dlgReorderMetadata.ShowDialog() + End Sub + + Private Sub mnuOrganiseDataObjectRenameMetadata_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectRenameMetadata.Click + dlgRenameMetadata.ShowDialog() + End Sub + + Private Sub mnuOrganiseDataFrameRowNumbersNames_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameRowNumbersNames.Click + dlgRowNamesOrNumbers.ShowDialog() + End Sub + + Private Sub JitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPreparePrepareToShareJitter.Click + dlgJitter.ShowDialog() + End Sub + + Private Sub mnuModelFourVariablesFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelFourVariablesFitModel.Click + dlgFourVariableModelling.ShowDialog() + End Sub + + Private Sub mnuEditFind_Click(sender As Object, e As EventArgs) Handles mnuEditFind.Click + dlgFind.currWindow = ActiveMdiChild + dlgFind.Owner = Me + dlgFind.Show() + End Sub + + Private Sub mnuEditFindNext_Click(sender As Object, e As EventArgs) Handles mnuEditFindNext.Click + mnuEditFind_Click(sender, e) + End Sub + + Private Sub ColourByPropertyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataframeColourByProperty.Click + 'TODO change this dialog + ' dlgMetadata should be separate + dlgColourbyProperty.ShowDialog() + End Sub + + Private Sub mnuViewCascade_Click(sender As Object, e As EventArgs) + Me.LayoutMdi(MdiLayout.Cascade) + End Sub + + Private Sub mnuViewTileVertically_Click(sender As Object, e As EventArgs) + Me.LayoutMdi(MdiLayout.TileVertical) + End Sub + + Private Sub mnuViewTileHorizontally_Click(sender As Object, e As EventArgs) + Me.LayoutMdi(MdiLayout.TileHorizontal) + End Sub + + Private Sub mnuOrganiseColumnTextFindReplace_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextFindReplace.Click + dlgStringHandling.ShowDialog() + End Sub + + Private Sub mnuDescribeOneVariableSummarise_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableSummarise.Click + dlgOneVariableSummarise.ShowDialog() + End Sub + + Private Sub mnuDescribeOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableGraph.Click + dlgOneVariableGraph.ShowDialog() + End Sub + + Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Dim bClose As DialogResult = DialogResult.Yes + + If e.CloseReason = CloseReason.UserClosing Then + bClose = MsgBox("Are you sure you want to exit R-Instat?" & Environment.NewLine & "Any unsaved changes will be lost.", MessageBoxButtons.YesNo, "Exit") + End If + If bClose = DialogResult.Yes Then + Try + If (Not System.IO.Directory.Exists(strAppDataPath)) Then + System.IO.Directory.CreateDirectory(strAppDataPath) + End If + If clsRLink IsNot Nothing AndAlso clsRLink.bREngineInitialised Then + clsRecentItems.saveOnClose() + If clsInstatOptions IsNot Nothing Then + SaveInstatOptions(Path.Combine(strAppDataPath, strInstatOptionsFile)) + End If + DeleteAutoSaveData() + DeleteAutoSaveLog() + DeleteAutoSaveDebugLog() + End If + clsRLink.CloseREngine() + Catch ex As Exception + MsgBox("Error attempting to save setting files to App Data folder." & Environment.NewLine & "System error message: " & ex.Message, MsgBoxStyle.Critical, "Error saving settings") + End Try + Else + e.Cancel = True + End If + End Sub + + Public Sub AutoSaveData() + Dim clsSaveRDS As New RFunction + Dim strTempFile As String + Dim i As Integer = 0 + Dim strCurrentStatus As String + + strCurrentStatus = tstatus.Text + If clsRLink.bInstatObjectExists Then + tstatus.Text = "Auto saving data..." + Cursor = Cursors.WaitCursor + If Not Directory.Exists(strAutoSaveDataFolderPath) Then + Directory.CreateDirectory(strAutoSaveDataFolderPath) + End If + If strCurrentAutoSaveDataFilePath = "" Then + strTempFile = "data.rds" + While File.Exists(Path.Combine(strAutoSaveDataFolderPath, strTempFile)) + i = i + 1 + strTempFile = "data" & i & ".rds" + End While + strCurrentAutoSaveDataFilePath = Path.Combine(strAutoSaveDataFolderPath, strTempFile) + End If + clsSaveRDS.SetRCommand("saveRDS") + clsSaveRDS.AddParameter("object", clsRLink.strInstatDataObject) + clsSaveRDS.AddParameter("file", Chr(34) & strCurrentAutoSaveDataFilePath.Replace("\", "/") & Chr(34)) + clsRLink.RunInternalScript(clsSaveRDS.ToScript(), bSilent:=True, bShowWaitDialogOverride:=False) + tstatus.Text = strCurrentStatus + Cursor = Cursors.Default + End If + End Sub + + Public Sub DeleteAutoSaveData() + If strCurrentAutoSaveDataFilePath <> "" Then + Try + File.Delete(strCurrentAutoSaveDataFilePath) + Catch ex As Exception + MsgBox("Could not delete auto save data file at: " & strCurrentAutoSaveDataFilePath & Environment.NewLine & ex.Message) + End Try + End If + End Sub + + Public Sub DeleteAutoSaveLog() + If clsRLink.strAutoSaveLogFilePath <> "" Then + Try + File.Delete(clsRLink.strAutoSaveLogFilePath) + Catch ex As Exception + MsgBox("Could not delete auto save log file at: " & clsRLink.strAutoSaveLogFilePath & Environment.NewLine & ex.Message) + End Try + End If + End Sub + + Public Sub DeleteAutoSaveDebugLog() + If clsRLink.strAutoSaveDebugLogFilePath <> "" Then + Try + File.Delete(clsRLink.strAutoSaveDebugLogFilePath) + Catch ex As Exception + MsgBox("Could not delete auto save debug log file at: " & clsRLink.strAutoSaveDebugLogFilePath & Environment.NewLine & ex.Message) + End Try + End If + End Sub + + Private Sub mnuOrganiseDataObjectHideDataframes_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataObjectHideDataframes.Click + dlgHideDataframes.ShowDialog() + End Sub + + Private Sub mnuOrganiseDataFrameReplaceValues_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameReplaceValues.Click + dlgReplaceValues.ShowDialog() + End Sub + + Private Sub mnuDescribeTwoVariablesSummarise_Click(sender As Object, e As EventArgs) Handles mnuDescribeTwoVariablesSummarise.Click + dlgDescribeTwoVariable.ShowDialog() + End Sub + + Private Sub mnuAppendDataFrame_Click(sender As Object, e As EventArgs) Handles mnuPrepareAppendDataFrame.Click + dlgAppend.ShowDialog() + End Sub + + Private Sub mnuFileSaveAsOutputAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsOutputAs.Click + 'Saves the content of the output window in RichTextFormat. + Using dlgSaveFile As New SaveFileDialog + dlgSaveFile.Title = "Save Output Window" + dlgSaveFile.Filter = "Rich Text Format (*.rtf)|*.rtf" + dlgSaveFile.InitialDirectory = clsInstatOptions.strWorkingDirectory + If dlgSaveFile.ShowDialog() = DialogResult.OK Then + Try + 'Send file name string specifying the location to save the rtf in. + ucrOutput.ucrRichTextBox.SaveRtf(dlgSaveFile.FileName) + Catch + MsgBox("Could not save the output window." & Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.", MsgBoxStyle.Critical) + End Try + End If + End Using + End Sub + + Private Sub mnuFileSaveAsLogAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsLogAs.Click + Using dlgSaveFile As New SaveFileDialog + dlgSaveFile.Title = "Save Log Window" + dlgSaveFile.Filter = "Text File (*.txt)|*.txt|R Script File (*.R)|*.R" + dlgSaveFile.InitialDirectory = clsInstatOptions.strWorkingDirectory + If dlgSaveFile.ShowDialog() = DialogResult.OK Then + Try + File.WriteAllText(dlgSaveFile.FileName, ucrLogWindow.txtLog.Text) + Catch + MsgBox("Could not save the log file." & Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.", MsgBoxStyle.Critical) + End Try + End If + End Using + End Sub + + Private Sub mnuFileSaveAsScriptAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsScriptAs.Click + Using dlgSaveFile As New SaveFileDialog + dlgSaveFile.Title = "Save Script Window" + dlgSaveFile.Filter = "Text File (*.txt)|*.txt|R Script File (*.R)|*.R" + dlgSaveFile.InitialDirectory = clsInstatOptions.strWorkingDirectory + If dlgSaveFile.ShowDialog() = DialogResult.OK Then + Try + File.WriteAllText(dlgSaveFile.FileName, ucrScriptWindow.txtScript.Text) + Catch + MsgBox("Could not save the script file." & Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.", MsgBoxStyle.Critical) + End Try + End If + End Using + End Sub + + Private Sub mnuOrganiseDataFrameColumnStructure_Click(sender As Object, e As EventArgs) Handles mnuPrepareDataFrameColumnStructure.Click + dlgColumnStructure.ShowDialog() + End Sub + + Private Sub mnuDescribeTwoVariablesGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeTwoVariablesGraph.Click + dlgDescribeTwoVarGraph.ShowDialog() + End Sub + + Private Sub mnuClimaticFileOpensst_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileOpensst.Click + dlgOpenSST.ShowDialog() + End Sub + + Private Sub mnuModelGeneralFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelGeneralFitModel.Click + dlgFitModel.ShowDialog() + End Sub + + Private Sub mnuFileOpenFromODK_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromODK.Click + dlgImportFromODK.ShowDialog() + End Sub + + Private Sub mnuModelOneVariableFitModel_Click(sender As Object, e As EventArgs) Handles mnuModelOneVariableFitModel.Click + dlgOneVarFitModel.ShowDialog() + End Sub + + Private Sub mnuModelTwoVariablesUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelTwoVariablesUseModel.Click + dlgTwoVariableUseModel.ShowDialog() + End Sub + + Private Sub mnuOrganiseColumnGenerateEnter_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateEnter.Click + dlgEnter.ShowDialog() + End Sub + + Private Sub mnuModelOneVariableCompareModels_Click(sender As Object, e As EventArgs) Handles mnuModelOneVariableCompareModels.Click + dlgOneVarCompareModels.ShowDialog() + End Sub + + Private Sub mnuModelOneVariableUseModel_Click(sender As Object, e As EventArgs) Handles mnuModelOneVariableUseModel.Click + dlgOneVarUseModel.ShowDialog() + End Sub + + Private Sub TablesPlusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsShowModel.Click + dlgShowModel.ShowDialog() + End Sub + + Private Sub mnuDescribeUseGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeUseGraph.Click + dlgUseGraph.ShowDialog() + End Sub + + Private Sub mnuDescribeCombineGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeCombineGraph.Click + dlgCombineforGraphics.ShowDialog() + End Sub + + Private Sub mnuDescribeThemes_Click(sender As Object, e As EventArgs) Handles mnuDescribeThemes.Click + dlgThemes.ShowDialog() + End Sub + + Private Sub mnuDescribeMultivariateCorrelations_Click(sender As Object, e As EventArgs) Handles mnuDescribeMultivariateCorrelations.Click + dlgCorrelation.ShowDialog() + End Sub + + Private Sub mnuDescribeMultivariateprincipalComponents_Click(sender As Object, e As EventArgs) Handles mnuDescribeMultivariateprincipalComponents.Click + dlgPrincipalComponentAnalysis.ShowDialog() + End Sub + + Private Sub mnuDescribeMultivariateCanonicalCorrelations_Click(sender As Object, e As EventArgs) Handles mnuDescribeMultivariateCanonicalCorrelations.Click + dlgCanonicalCorrelationAnalysis.ShowDialog() + End Sub + Private Sub mnuClimaticOrganiseSummary_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareSummary.Click + dlgSummary.ShowDialog() + End Sub + + Private Sub mnuClimaticOrganiseEventsStartoftheRains_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareStartoftheRains.Click + dlgStartofRains.ShowDialog() + End Sub + + Private Sub mnuClimaticOrganiseEventsSpells_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareSpells.Click + dlgSpells.ShowDialog() + End Sub + + Private Sub mnuClimaticOrganiseEventsWaterBalance_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareEndOfRains.Click + dlgEndOfRainsSeason.ShowDialog() + End Sub + + Private Sub mnuOrganiseColumnGenerateCountInFactor_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnGenerateCountInFactor.Click + dlgCountinFactor.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificScatterPlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificScatterPlot.Click + dlgScatterPlot.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificLinePlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificLinePlot.Click + dlgLinePlot.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificHistogram_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificHistogram.Click + dlgHistogram.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificBoxplot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificBoxplot.Click + dlgBoxplot.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificDotPlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificDotPlot.Click + dlgDotPlot.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificRugPlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificRugPlot.Click + dlgRugPlot.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificBarChart_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificBarChart.Click + dlgBarAndPieChart.ShowDialog() + End Sub + + Private Sub mnuOrganiseColumnMakeDate_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnDateMakeDate.Click + dlgMakeDate.ShowDialog() + End Sub + + Private Sub mnuDescribeOtherGraphicsDialogsWindRose_Click(sender As Object, e As EventArgs) + dlgWindrose.ShowDialog() + End Sub + + Private Sub mnuOrganiseCheckDataExportOpenRefine_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataExportOpenRefine.Click + dlgExportToOpenRefine.ShowDialog() + End Sub + + Private Sub mnuOrganiseCheckDataImportOpenRefine_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataImportOpenRefine.Click + dlgImportOpenRefine.ShowDialog() + End Sub + + Private Sub mnuFileSaveAsDataAs_Click(sender As Object, e As EventArgs) Handles mnuFileSaveAsDataAs.Click + dlgSaveAs.ShowDialog() + End Sub + + Private Sub mnuModelProbabilityDistributionsCompareModels_Click(sender As Object, e As EventArgs) Handles mnuModelProbabilityDistributionsCompareModels.Click + dlgCompareModels.ShowDialog() + End Sub + + Private Sub mnuDescribeGeneralColumnSummaries_Click(sender As Object, e As EventArgs) Handles mnuDescribeGeneralColumnSummaries.Click + dlgColumnStats.ShowDialog() + End Sub + + Private Sub mnuOrganiseColumnUseDate_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnDateUseDate.Click + dlgUseDate.ShowDialog() + End Sub + + Private Sub mnuHelpMenusAndDialogues_Click(sender As Object, e As EventArgs) + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "12") + End Sub + + Private Sub mnuHelpRPackagesAndCommands_Click(sender As Object, e As EventArgs) + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "26") + End Sub + Private Sub mnuHelpHelpIntroduction_Click(sender As Object, e As EventArgs) Handles mnuHelpHelpIntroduction.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "0") + End Sub + + Private Sub mnuHelpHistFAQ_Click(sender As Object, e As EventArgs) Handles mnuHelpHistFAQ.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "290") + End Sub + + Private Sub mnuHelpGetingStarted_Click(sender As Object, e As EventArgs) Handles mnuHelpGetingStarted.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "3") + End Sub + + Private Sub mnuHelpDataset_Click(sender As Object, e As EventArgs) Handles mnuHelpDataset.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "71") + End Sub + + Private Sub mnuHelpRPackagesCommands_Click(sender As Object, e As EventArgs) Handles mnuHelpRPackagesCommands.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "26") + End Sub + + Private Sub mnuHelpR_Click(sender As Object, e As EventArgs) Handles mnuHelpAboutR.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "133") + End Sub + + Private Sub mnuHelpMenus_Click(sender As Object, e As EventArgs) Handles mnuHelpMenus.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "12") + End Sub + + + Private Sub mnuHelpGuidesCaseStudy_Click(sender As Object, e As EventArgs) Handles mnuHelpGuidesCaseStudy.Click + Process.Start(Path.Combine(strStaticPath, "Help", "Case_Study_Guide_June_2016.pdf")) + End Sub + + Private Sub mnuHelpGuideGlosary_Click(sender As Object, e As EventArgs) Handles mnuHelpGuideGlosary.Click + Process.Start(Path.Combine(strStaticPath, "Help", "Statistics Glossary.pdf")) + End Sub + + Private Sub mnuHelpLicence_Click(sender As Object, e As EventArgs) Handles mnuHelpLicence.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "323") + End Sub + + Private Sub mnuClimaticFileExportToCPT_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileExportToCPT.Click + dlgExportToCPT.ShowDialog() + End Sub + + Private Sub mnuClimaticDescribeMoreGraphsCummulaiveDistribution_Click(sender As Object, e As EventArgs) + dlgCumulativeDistribution.ShowDialog() + End Sub + + Private Sub mnuClimaticSCFSupportExporttoCPT_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportExporttoCPT.Click + dlgExportToCPT.ShowDialog() + End Sub + + Private Sub mnuClimaticSCFSupportOpenSST_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportOpenSST.Click + dlgOpenSST.ShowDialog() + End Sub + + Private Sub mnuOrgCalculateDuplicateColumn_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateDuplicateColumn.Click + dlgDuplicateColumns.ShowDialog() + End Sub + + Private Sub mnuCorruptionFile_Click(sender As Object, e As EventArgs) + dlgCorruptionFile.ShowDialog() + End Sub + + Private Sub GeneralSummariesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnReshapeGeneralSummaries.Click + dlgCalculationsSummary.ShowDialog() + End Sub + + Private Sub mnuOrganiseKeysAndLinksViewAndRemoveKey_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksViewAndRemoveKey.Click + dlgViewAndRemoveKeys.ShowDialog() + End Sub + + Private Sub mnuOrganiseKeysAndLinksAddLink_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksAddLink.Click + dlgAddLink.ShowDialog() + End Sub + + Private Sub mnuOrganiseKeysAndLinksViewAndRemoveKeys_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksViewAndRemoveKeys.Click + dlgViewAndRemoveLinks.ShowDialog() + End Sub + + Private Sub mnuOrganiseKeysAndLinksAddComment_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksAddComment.Click + dlgAddComment.ShowDialog() + End Sub + + Private Sub mnuClimaticMarkovModelling_Click(sender As Object, e As EventArgs) Handles mnuClimaticModelMarkovModelling.Click + dlgNewMarkovChains.ShowDialog() + End Sub + + Private Sub mnuClimaticDefineClimaticData_Click(sender As Object, e As EventArgs) Handles mnuClimaticDefineClimaticData.Click + DlgDefineClimaticData.ShowDialog() + End Sub + + Private Sub mnuClimaticCheckDataInventory_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataInventory.Click + dlgInventoryPlot.ShowDialog() + End Sub + + Private Sub mnuClimateFileImportFromClimSoft_Click(sender As Object, e As EventArgs) Handles mnuClimateFileImportFromClimSoft.Click + dlgClimSoft.ShowDialog() + End Sub + + Private Sub mnuClimaticFileImportFromCliData_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileImportFromCliData.Click + dlgCliData.ShowDialog() + End Sub + + Private Sub mnuPrepareKeysAndLinksAddKey_Click(sender As Object, e As EventArgs) Handles mnuPrepareKeysAndLinksAddKey.Click + dlgAddKey.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareDatesMakeDate_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesMakeDate.Click + dlgMakeDate.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareDatesUseDate_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesUseDate.Click + dlgUseDate.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareInfillMissingDates_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesInfillMissingDates.Click + dlgInfill.ShowDialog() + End Sub + + Private Sub mnuClimaticDescribeTemperatures_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeTemperatures.Click + dlgTemperature.ShowDialog() + End Sub + + Private Sub mnuClimaticDescribeSunshineRadiation_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeSunshineRadiation.Click + dlgSunshine.ShowDialog() + End Sub + + Private Sub mnuClimaticPICSARainfall_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSARainfall.Click + dlgPICSARainfall.ShowDialog() + End Sub + + Private Sub mnuClimaticPICSATemperature_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSATemperature.Click + dlgPICSATemperature.ShowDialog() + End Sub + + Private Sub mnuClimaticPICSACrops_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSACrops.Click + dlgPICSACrops.ShowDialog() + End Sub + + Private Sub mnuCimaticPrepareTransform_Click(sender As Object, e As EventArgs) Handles mnuCimaticPrepareTransform.Click + dlgTransformClimatic.ShowDialog() + End Sub + + Private Sub mnuClimaticModelsExtremes_Click(sender As Object, e As EventArgs) Handles mnuClimaticModelsExtremes.Click + dlgExtremes.ShowDialog() + End Sub + + Private Sub mnuClimaticSCFSupportCorrelations_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportCorrelations.Click + dlgCorrelation.ShowDialog() + End Sub + + Private Sub mnuClimaticSCFSupportPrincipalComponents_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportPrincipalComponents.Click + dlgPrincipalComponentAnalysis.ShowDialog() + End Sub + + Private Sub mnuClimaticSCFSupportCanonicalCorrelations_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportCanonicalCorrelations.Click + dlgCanonicalCorrelationAnalysis.ShowDialog() + End Sub + + Private Sub mnuProcurementDefineData_Click(sender As Object, e As EventArgs) Handles mnuProcurementDefineData.Click + dlgCorruptionDefineProcurement.ShowDialog() + End Sub + + Private Sub mnuClimaticSCFSupportCumulativeExceedanceGraphs_Click(sender As Object, e As EventArgs) Handles mnuClimaticSCFSupportCumulativeExceedanceGraph.Click + dlgCumulativeDistribution.ShowDialog() + End Sub + + Private Sub mnuProcurementPrepareFilterByCountry_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareFilterByCountry.Click + Dim lstDataNames As List(Of String) + + dlgRestrict.bIsSubsetDialog = False + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgRestrict.strDefaultDataframe = lstDataNames(0) + dlgRestrict.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label") + dlgRestrict.bAutoOpenSubDialog = True + Else + dlgRestrict.strDefaultDataframe = "" + dlgRestrict.strDefaultColumn = "" + dlgRestrict.bAutoOpenSubDialog = False + End If + dlgRestrict.ShowDialog() + End Sub + + Private Sub mnuProcurementModelFitModelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementModelFitModelToolStripMenuItem.Click + dlgCorruptionFitModel.ShowDialog() + End Sub + + Private Sub mnuProcurementDefineRedFlags_Click(sender As Object, e As EventArgs) Handles mnuProcurementDefineRedFlags.Click + dlgDefineRedFlags.ShowDialog() + End Sub + + Private Sub mnuDescribeTwoVariablesFrequencies_Click(sender As Object, e As EventArgs) Handles mnuDescribeTwoVariablesFrequencies.Click + dlgTwoWayFrequencies.ShowDialog() + End Sub + + Private Sub mnuFileOpenFromCSPRO_Click(sender As Object, e As EventArgs) Handles mnuFileOpenFromCSPRO.Click + dlgImportFromCSPRO.ShowDialog() + End Sub + + Private Sub mnuFileImportFromDatabases_Click(sender As Object, e As EventArgs) Handles mnuFileImportFromDatabases.Click + dlgImportFromDatabases.ShowDialog() + End Sub + + Private Sub mnuClimaticFileImportandTidyNetCDF_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileImportandTidyNetCDF.Click + dlgOpenNetCDF.ShowDialog() + End Sub + + Private Sub mnuProcurementDefineCorruption_Click(sender As Object, e As EventArgs) + dlgCorruptionDefineOutputs.ShowDialog() + End Sub + + Private Sub mnuProcurementPrepareSetFactorReferenceLevel_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareSetFactorReferenceLevel.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgReferenceLevel.strDefaultDataFrame = lstDataNames(0) + End If + dlgReferenceLevel.ShowDialog() + End Sub + + Private Sub mnuProcurementPrepareDefineContractValueCategories_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareDefineContractValueCategories.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgRecodeNumeric.strDefaultDataFrame = lstDataNames(0) + If clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_ppp_adjusted_contract_value_label") <> "" Then + dlgRecodeNumeric.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_ppp_adjusted_contract_value_label") + Else + dlgRecodeNumeric.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_original_contract_value_label") + End If + Else + dlgRecodeNumeric.strDefaultDataFrame = "" + dlgRecodeNumeric.strDefaultColumn = "" + End If + dlgRecodeNumeric.ShowDialog() + End Sub + + Private Sub mnuProcurementPrepareMergeAdditionalData_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareMergeAdditionalData.Click + dlgMerge.ShowDialog() + End Sub + + Private Sub mnuProcurementPrepareUseAwardDate_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareUseAwardDate.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgUseDate.strDefaultDataFrame = lstDataNames(0) + dlgUseDate.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_award_date_label") + Else + dlgUseDate.strDefaultDataFrame = "" + dlgUseDate.strDefaultColumn = "" + End If + dlgUseDate.ShowDialog() + End Sub + + Private Sub mnuDescribeOneVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableFrequencies.Click + dlgOneWayFrequencies.ShowDialog() + End Sub + + 'Private Sub mnuProcurementPrepareStandardiseCountryName_Click(sender As Object, e As EventArgs) + ' Dim lstDataNames As List(Of String) + + ' lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + ' If lstDataNames.Count > 0 Then + ' dlgStandardiseCountryNames.strDefaultDataFrame = lstDataNames(0) + ' dlgStandardiseCountryNames.strDefaultColumn = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label") + ' Else + ' dlgStandardiseCountryNames.strDefaultDataFrame = "" + ' dlgStandardiseCountryNames.strDefaultColumn = "" + ' End If + ' dlgStandardiseCountryNames.ShowDialog() + 'End Sub + + Private Sub mnuProcurementPrepareRecodeNumericIntoQuantiles_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareRecodeNumericIntoQuantiles.Click + dlgRecodeNumericIntoQuantiles.ShowDialog() + End Sub + + Private Sub mnuViewResetToDefaultLayout_Click(sender As Object, e As EventArgs) Handles mnuViewResetToDefaultLayout.Click + SetToDefaultLayout() + End Sub + + Private Sub ucrDataViewer_Enter(sender As Object, e As EventArgs) Handles ucrDataViewer.Enter + ctrActive = ucrDataViewer + End Sub + + Private Sub ucrOutput_Enter(sender As Object, e As EventArgs) Handles ucrOutput.Enter + ctrActive = ucrOutput + End Sub + + Private Sub ucrScriptWindow_Enter(sender As Object, e As EventArgs) Handles ucrScriptWindow.Enter + ctrActive = ucrScriptWindow + End Sub + + Private Sub ucrLogWindow_Enter(sender As Object, e As EventArgs) Handles ucrLogWindow.Enter + ctrActive = ucrLogWindow + End Sub + + Private Sub ucrColumnMeta_Enter(sender As Object, e As EventArgs) Handles ucrColumnMeta.Enter + ctrActive = ucrColumnMeta + End Sub + + Private Sub ucrDataFrameMeta_Enter(sender As Object, e As EventArgs) Handles ucrDataFrameMeta.Enter + ctrActive = ucrDataFrameMeta + End Sub + + Private Sub mnuClimaticFileOpenGriddedData_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileOpenGriddedData.Click + dlgImportGriddedData.ShowDialog() + End Sub + + Private Sub RatingDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuDescribeOneVariableRatingData.Click + dlgRatingScales.ShowDialog() + End Sub + + Private Sub mnuPrepareColumnTextDistance_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnTextDistance.Click + dlgStringDistance.ShowDialog() + End Sub + + Private Sub mnuDescribeOtherGraphicsDialogsInventoryPlot_Click(sender As Object, e As EventArgs) + dlgInventoryPlot.ShowDialog() + End Sub + + Private Sub mnuDescribeThreeVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuDescribeThreeVariableFrequencies.Click + dlgThreeVariableFrequencies.ShowDialog() + End Sub + + Private Sub ExportGraphToolStripMenuItem_Click(sender As Object, e As EventArgs) + dlgExportGraphAsImage.ShowDialog() + End Sub + + Private Sub mnuDescribeViewGraph_Click(sender As Object, e As EventArgs) Handles mnuDescribeViewGraph.Click + dlgViewGraph.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareExtremes_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareExtremes.Click + dlgExtremesClimatic.ShowDialog() + End Sub + + Private Sub ExportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportToolStripMenuItem.Click + dlgExportRObjects.ShowDialog() + End Sub + + Private Sub ExportRWorkspaceToolStripMenuItem1_Click(sender As Object, e As EventArgs) + dlgExportRWorkspace.ShowDialog() + End Sub + + Private Sub ExportDataSetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuFileExportExportDataSet.Click + dlgExportDataset.ShowDialog() + End Sub + + Private Sub ExportRWorkspaceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuFileExportExportRWorkspace.Click + dlgExportRWorkspace.ShowDialog() + End Sub + + Private Sub ExportGraphAsImageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuFileExportExportGraphAsImage.Click + dlgExportGraphAsImage.ShowDialog() + End Sub + + Private Sub ExportRObjectsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuFileExportExportRObjectsToolStripMenuItem.Click + dlgExportRObjects.ShowDialog() + End Sub + + Private Sub FrequencyTablesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuDescribeGeneralUseSummaries.Click + dlgSummaryBarOrPieChart.ShowDialog() + End Sub + Private Sub mnuClimaticPrepareClimaticSummaries_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareClimaticSummaries.Click + dlgClimaticSummary.ShowDialog() + End Sub + + Public Function GetDataFrameCount() As Integer + If ucrDataViewer IsNot Nothing AndAlso ucrDataViewer.grdData IsNot Nothing Then + Return ucrDataViewer.grdData.Worksheets.Count + Else + Return 0 + End If + End Function + + Public Sub SetCurrentDataFrame(strDataName As String) + ucrDataViewer.SetCurrentDataFrame(strDataName) + ucrColumnMeta.SetCurrentDataFrame(strDataName) + End Sub + + Public Sub SetCurrentDataFrame(iIndex As Integer) + ucrDataViewer.SetCurrentDataFrame(iIndex) + ucrColumnMeta.SetCurrentDataFrame(iIndex) + End Sub + + Private Sub WindroseToolStripMenuItem_Click(sender As Object, e As EventArgs) + dlgWindrose.ShowDialog() + End Sub + + Private Sub CummulativeDistributionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificCummulativeDistribution.Click + dlgCumulativeDistribution.ShowDialog() + End Sub + + Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick + timer.Stop() + End Sub + + Private Sub mnuProcurementUseCRISummariseCRIbyCountry_Click(sender As Object, e As EventArgs) Handles mnuProcurementUseCRISummariseCRIbyCountry.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgColumnStats.strDefaultDataFrame = lstDataNames(0) + dlgColumnStats.strDefaultVariables = clsRLink.GetCRIColumnNames(lstDataNames(0)) + dlgColumnStats.strDefaultFactors = {clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")} + Else + dlgColumnStats.strDefaultDataFrame = "" + dlgColumnStats.strDefaultVariables = Nothing + dlgColumnStats.strDefaultFactors = Nothing + End If + dlgColumnStats.ShowDialog() + End Sub + + Private Sub mnuProcurementDescribeCategoricalOneVarFreq_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeCategoricalOneVarFreq.Click + Dim lstDataNames As List(Of String) + Dim lstColumns As New List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgOneWayFrequencies.strDefaultDataFrame = lstDataNames(0) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_single_bidder_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_all_bids_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_procurement_type_3_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_tax_haven_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label")) + lstColumns.RemoveAll(Function(x) x = "") + dlgOneWayFrequencies.strDefaultColumns = lstColumns.ToArray() + Else + dlgOneWayFrequencies.strDefaultDataFrame = "" + dlgOneWayFrequencies.strDefaultColumns = Nothing + End If + dlgOneWayFrequencies.ShowDialog() + End Sub + + Private Sub mnuProcurementDescribeCategoricalTwoVarFreq_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeCategoricalTwoVarFreq.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgTwoWayFrequencies.strDefaultDataFrame = lstDataNames(0) + dlgTwoWayFrequencies.strDefaultColumnVariable = clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label") + Else + dlgTwoWayFrequencies.strDefaultDataFrame = "" + dlgTwoWayFrequencies.strDefaultColumnVariable = Nothing + End If + dlgTwoWayFrequencies.ShowDialog() + End Sub + + Private Sub mnuFileCloseData_Click(sender As Object, e As EventArgs) Handles mnuFileCloseData.Click + Dim bClose As DialogResult + + bClose = MsgBox("Are you sure you want to close you data?" & Environment.NewLine & "Any unsaved changes will be lost.", MessageBoxButtons.YesNo, "Close Data") + If bClose = DialogResult.Yes Then + clsRLink.CloseData() + strSaveFilePath = "" + End If + End Sub + + Private Sub mnuPrepareCheckDataDuplicates_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataDuplicates.Click + dlgDuplicates.ShowDialog() + End Sub + + Private Sub mnuClimaticCheckDataBoxplot_Click_1(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataBoxplot.Click + dlgClimaticBoxPlot.ShowDialog() + End Sub + + Private Sub mnuClimaticDescribeWindSpeedDirectionWindRose_Click(sender As Object, e As EventArgs) Handles mnuClimaticDescribeWindSpeedDirectionWindRose.Click + dlgWindrose.ShowDialog() + End Sub + + Private Sub mnuClimaticCMSAFPlotRegion_Click(sender As Object, e As EventArgs) Handles mnuClimaticCMSAFPlotRegion.Click + dlgPlotRegion.ShowDialog() + End Sub + + Private Sub mnuClimaticCheckDataDisplayDaily_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataDisplayDaily.Click + dlgDisplayDailyData.ShowDialog() + End Sub + + Private Sub mnuPrepareColumnInfillMissingDates_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnDateInfillMissingDates.Click + dlgInfill.ShowDialog() + End Sub + + Private Sub mnuDataView_Click(sender As Object, e As EventArgs) Handles mnuTbDataView.Click + mnuViewDataView.Checked = Not mnuViewDataView.Checked + UpdateLayout() + End Sub + + Private Sub mnuTbOutput_Click(sender As Object, e As EventArgs) Handles mnuTbOutput.Click + mnuViewOutputWindow.Checked = Not mnuViewOutputWindow.Checked + UpdateLayout() + End Sub + + Private Sub mnuTbColumnMetadata_Click(sender As Object, e As EventArgs) Handles mnuTbColumnMetadata.Click + mnuViewColumnMetadata.Checked = Not mnuViewColumnMetadata.Checked + UpdateLayout() + End Sub + + Private Sub mnuTbLog_Click(sender As Object, e As EventArgs) Handles mnuTbLog.Click + mnuViewLog.Checked = Not mnuViewLog.Checked + UpdateLayout() + End Sub + + Private Sub mnuTbResetLayout_Click(sender As Object, e As EventArgs) Handles mnuTbResetLayout.Click + SetToDefaultLayout() + End Sub + + Public Sub SetToolbarHeight(iHeight As Integer) + 'Not currently working, do not use this method + 'Tool_strip.ImageScalingSize = New Size(iHeight, iHeight) + End Sub + + Private Sub mnuTbOpenFromLibrary_Click(sender As Object, e As EventArgs) Handles mnuTbOpenFromLibrary.Click + dlgFromLibrary.ShowDialog() + End Sub + + Private Sub mnuTbOpen_ButtonClick(sender As Object, e As EventArgs) Handles mnuTbOpen.ButtonClick + dlgImportDataset.ShowDialog() + End Sub + + Public Sub SetShowProcurementMenu(bNewShowProcurementMenu As Boolean) + mnuProcurement.Visible = bNewShowProcurementMenu + mnuViewProcurementMenu.Checked = bNewShowProcurementMenu + End Sub + + Public Sub SetShowClimaticMenu(bNewShowClimaticMenu As Boolean) + mnuClimatic.Visible = bNewShowClimaticMenu + mnuViewClimaticMenu.Checked = bNewShowClimaticMenu + End Sub + + Public Sub SetShowOptionsByContextMenu(bNewShowOptionsByContextMenu As Boolean) + mnuOptionsByContext.Visible = bNewShowOptionsByContextMenu + mnuViewOptionsByContextMenu.Checked = bNewShowOptionsByContextMenu + End Sub + + Private Sub mnuViewClimaticMenu_Click(sender As Object, e As EventArgs) Handles mnuViewClimaticMenu.Click + clsInstatOptions.SetShowClimaticMenu(Not mnuViewClimaticMenu.Checked) + End Sub + + Private Sub mnuViewProcurementMenu_Click(sender As Object, e As EventArgs) Handles mnuViewProcurementMenu.Click + clsInstatOptions.SetShowProcurementMenu(Not mnuViewProcurementMenu.Checked) + End Sub + + Private Sub mnuPrepareCheckDataBoxplot_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataBoxplot.Click + dlgBoxplot.ShowDialog() + End Sub + + Private Sub mnuPrepareCheckDataOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataOneVariableGraph.Click + dlgOneVariableGraph.ShowDialog() + End Sub + + Private Sub mnuPrepareCheckDataOneVariableSummarise_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataOneVariableSummarise.Click + dlgOneVariableSummarise.ShowDialog() + End Sub + + Private Sub mnuPrepareCheckDataOneWayFrequencies_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataOneWayFrequencies.Click + dlgOneWayFrequencies.ShowDialog() + End Sub + + Private Sub SummariseRedFlagsByCountryorOtherToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareSummariseRedFlagsByCountryorOther.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgColumnStats.strDefaultDataFrame = lstDataNames(0) + dlgColumnStats.strDefaultVariables = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) + dlgColumnStats.strDefaultFactors = {clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")} + Else + dlgColumnStats.strDefaultDataFrame = "" + dlgColumnStats.strDefaultVariables = Nothing + dlgColumnStats.strDefaultFactors = Nothing + End If + dlgColumnStats.ShowDialog() + End Sub + + + Private Sub mnuProcurementCalculateCRI_Click(sender As Object, e As EventArgs) Handles mnuProcurementCalculateCRI.Click + dlgCorruptionDefineCRI.ShowDialog() + End Sub + + Private Sub mnuProcurementDefineCorruption_Click_1(sender As Object, e As EventArgs) Handles mnuProcurementDefineCorruption.Click + dlgCorruptionDefineOutputs.ShowDialog() + + End Sub + + Private Sub SummariseRedFlagsByCountryAndYearorOtherToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementPrepareSummariseRedFlagsByCountryAndYearorOther.Click + Dim lstDataNames As List(Of String) + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgColumnStats.strDefaultDataFrame = lstDataNames(0) + dlgColumnStats.strDefaultVariables = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) + dlgColumnStats.strDefaultFactors = {clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label"), clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_fiscal_year_label")} + Else + dlgColumnStats.strDefaultDataFrame = "" + dlgColumnStats.strDefaultVariables = Nothing + dlgColumnStats.strDefaultFactors = Nothing + End If + dlgColumnStats.ShowDialog() + End Sub + + Private Sub OneVariableSummariseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeOneVariableSummarise.Click + Dim lstDataNames As List(Of String) + Dim lstColumns As New List(Of String) + Dim strRedFlags() As String + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgOneVariableSummarise.strDefaultDataFrame = lstDataNames(0) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_single_bidder_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_all_bids_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_procurement_type_3_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_tax_haven_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label")) + strRedFlags = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) + If strRedFlags IsNot Nothing Then + lstColumns.AddRange(strRedFlags) + End If + lstColumns.RemoveAll(Function(x) x = "") + lstColumns = lstColumns.Distinct.ToList + dlgOneVariableSummarise.strDefaultColumns = lstColumns.ToArray() + Else + dlgOneVariableSummarise.strDefaultDataFrame = "" + dlgOneVariableSummarise.strDefaultColumns = Nothing + End If + dlgOneVariableSummarise.ShowDialog() + End Sub + + Private Sub OneVariableGraphToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeOneVariableGraph.Click + Dim lstDataNames As List(Of String) + Dim lstColumns As New List(Of String) + Dim strRedFlags() As String + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgOneVariableGraph.strDefaultDataFrame = lstDataNames(0) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_country_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_single_bidder_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_all_bids_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_procurement_type_3_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_tax_haven_label")) + lstColumns.Add(clsRLink.GetCorruptionColumnOfType(lstDataNames(0), "corruption_contract_sector_label")) + strRedFlags = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) + If strRedFlags IsNot Nothing Then + lstColumns.AddRange(strRedFlags) + End If + lstColumns.RemoveAll(Function(x) x = "") + dlgOneVariableGraph.strDefaultColumns = lstColumns.ToArray() + Else + dlgOneVariableGraph.strDefaultDataFrame = "" + dlgOneVariableGraph.strDefaultColumns = Nothing + End If + dlgOneVariableGraph.ShowDialog() + End Sub + + Private Sub CorrelationsRedFlagsOrOthersToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles mnuProcurementDescribeNumericCorrelationsRedFlagsOrOthers.Click + Dim lstDataNames As List(Of String) + Dim strComponentColumnNames() As String + + lstDataNames = clsRLink.GetCorruptionContractDataFrameNames() + If lstDataNames.Count > 0 Then + dlgCorrelation.strDefaultDataFrame = lstDataNames(0) + strComponentColumnNames = clsRLink.GetRedFlagColumnNames(lstDataNames(0)) + If strComponentColumnNames IsNot Nothing AndAlso strComponentColumnNames.Count > 0 Then + dlgCorrelation.strDefaultColumns = strComponentColumnNames + End If + Else + dlgCorrelation.strDefaultDataFrame = "" + dlgCorrelation.strDefaultColumns = Nothing + End If + dlgCorrelation.ShowDialog() + End Sub + + Private Sub MapCountryValuesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementMappingMapCountryValues.Click + dlgCountryColouredMap.ShowDialog() + End Sub + + Private Sub mnuFileImportandTidyNetCDFFile_Click(sender As Object, e As EventArgs) Handles mnuFileImportandTidyNetCDFFile.Click + dlgOpenNetCDF.ShowDialog() + End Sub + + + Private Sub mnuClimaticCheckDataQCTemperatures_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataQCTemperatures.Click + dlgClimaticCheckDataTemperature.ShowDialog() + End Sub + + Private Sub mnuClimaticCheckDataQCRainfall_Click(sender As Object, e As EventArgs) Handles mnuClimaticCheckDataQCRainfall.Click + dlgClimaticCheckDataRain.ShowDialog() + End Sub + + Private Sub mnuDescribeSpecificParallelCoordinatePlot_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificParallelCoordinatePlot.Click + dlgParallelCoordinatePlot.ShowDialog() + End Sub + + Private Sub mnuPrepareColumnCalculateColumnSummaries_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateColumnSummaries.Click + dlgColumnStats.ShowDialog() + End Sub + + Private Sub mnuPrepareColumnCalculateGeneralSummaries_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnCalculateGeneralSummaries.Click + dlgCalculationsSummary.ShowDialog() + End Sub + + Private Sub mnuModelHypothesisTests_Click(sender As Object, e As EventArgs) Handles mnuModelHypothesisTests.Click + dlgHypothesisTestsCalculator.ShowDialog() + End Sub + + Private Sub mnuPrepareColumnGenerateDate_Click(sender As Object, e As EventArgs) Handles mnuPrepareColumnDateGenerateDate.Click + dlgRegularSequence.bNumericIsDefault = False + dlgRegularSequence.ShowDialog() + End Sub + + Private Sub mnuClimaticDatesGenerateDates_Click(sender As Object, e As EventArgs) Handles mnuClimaticDatesGenerateDates.Click + dlgRegularSequence.bNumericIsDefault = False + dlgRegularSequence.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareEvapotranspiration_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareEvapotranspiration.Click + dlgEvapotranspiration.ShowDialog() + End Sub + + Private Sub mnuPrepareCheckDataCompareColumns_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataCompareColumns.Click + dlgCompareColumns.ShowDialog() + End Sub + + Private Sub mnuDefineOptionsByContexts_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextDefineOptionsByContexts.Click + dlgDefineOptionsByContext.ShowDialog() + End Sub + + Private Sub MergeAdditionalDataToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextMergeAdditionalData.Click + dlgMergeAdditionalData.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsCheckDataDuplicates_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataDuplicates.Click + dlgDuplicates.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsCheckDataCompareColumns_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataCompareColumns.Click + dlgCompareColumns.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsPrepareStack_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextPrepareStack.Click + dlgStack.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsPrepareUnstack_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextPrepareUnstack.Click + dlgUnstack.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsCheckDataOneVariableSummarise_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataOneVariableSummarise.Click + dlgOneVariableSummarise.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsCheckDataOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataOneVariableGraph.Click + dlgOneVariableGraph.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextsCheckDataOneVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextCheckDataOneVariableFrequencies.Click + dlgOneWayFrequencies.ShowDialog() + End Sub + + Private Sub mnuViewOptionsByContextMenu_Click(sender As Object, e As EventArgs) Handles mnuViewOptionsByContextMenu.Click + clsInstatOptions.SetShowOptionsByContextMenu(Not mnuViewOptionsByContextMenu.Checked) + End Sub + + Private Sub mnuOptionsByContextDescribeCompareTwoTreatments_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextDescribeCompareTwoTreatments.Click + dlgCompareTreatmentLines.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextModelFitModel_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextModelFitModel.Click + dlgOptionsByContextFitModel.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextPrepareCalculateDIfferenceBetweenOptions_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextPrepareCalculateDIfferenceBetweenOptions.Click + dlgCalculateTreatmentDifferences.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextDescribeBoxplot_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextDescribeBoxplot.Click + dlgOptionsByContextBoxplot.ShowDialog() + End Sub + + Private Sub mnuPrepareCheckDataNonNumericCases_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataNonNumericCases.Click + dlgFindNonnumericValues.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineNonNumericCases_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineNonNumericCases.Click + dlgFindNonnumericValues.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineReplaceValues_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineReplaceValues.Click + dlgReplaceValues.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineOneVariableSummarize_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineOneVariableSummarize.Click + dlgOneVariableSummarise.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareLengthOfSeason_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareLengthOfSeason.Click + dlgClimaticLengthOfSeason.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareCompare_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareCompare.Click + dlgCompare.ShowDialog() + End Sub + + Private Sub mnuPrepareCheckDataAnonymiseIDColumn_Click(sender As Object, e As EventArgs) Handles mnuPrepareCheckDataAnonymiseIDColumn.Click + dlgAnonymiseIDColumn.ShowDialog() + End Sub + + Private Sub mnuClimaticFileOpenandTidyShapefile_Click(sender As Object, e As EventArgs) Handles mnuClimaticFileOpenandTidyShapefile.Click + dlgImportShapeFiles.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineTidyDailyData_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineTidyDailyData.Click + dlgTidyDailyData.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineMerge_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineMerge.Click + dlgMerge.ShowDialog() + End Sub + + Private Sub mnuTbLastGraph_Click(sender As Object, e As EventArgs) Handles mnuTbLastGraph.Click + clsRLink.ViewLastGraph() + End Sub + + Private Sub mnuClimaticCMSAFExporttoCMSAFRToolbox_Click(sender As Object, e As EventArgs) Handles mnuClimaticCMSAFExporttoCMSAFRToolbox.Click + dlgExportToCMSAF.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareConversions_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareConversions.Click + dlgConversions.ShowDialog() + End Sub + + Private Sub mnuOptionsByContextGeneralFitModel_Click(sender As Object, e As EventArgs) Handles mnuOptionsByContextGeneralFitModel.Click + dlgFitModel.ShowDialog() + End Sub + + Private Sub mnuHelpAcknowledgments_Click(sender As Object, e As EventArgs) Handles mnuHelpAcknowledgments.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "151") + End Sub + + Private Sub mnuDescribeSpecificMosaic_Click(sender As Object, e As EventArgs) Handles mnuDescribeSpecificMosaic.Click + dlgMosaicPlot.ShowDialog() + End Sub + + Private Sub BarChartsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeCategoricalBarCharts.Click + dlgBarAndPieChart.ShowDialog() + End Sub + + Private Sub MosaicPlotToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeCategoricalMosaic.Click + dlgMosaicPlot.ShowDialog() + End Sub + + Private Sub BoxplotToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementDescribeNumericBoxplot.Click + dlgBoxplot.ShowDialog() + End Sub + + Private Sub HistogramToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistogramToolStripMenuItem.Click + dlgHistogram.ShowDialog() + End Sub + + Private Sub OpenFromLibraryToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuProcurementOpenFromLibrary.Click + dlgImportDataset.strFileToOpenOn = "" + dlgImportDataset.bStartOpenDialog = True + dlgImportDataset.bFromLibrary = True + dlgImportDataset.ShowDialog() + End Sub + + Private Sub MnuClimaticTidyandExamineUnstack_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineUnstack.Click + dlgUnstack.ShowDialog() + + End Sub + + Private Sub mnuClimaticTidyandExamineStack_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineStack.Click + dlgStack.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineAppend_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineAppend.Click + dlgAppend.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareClimdex_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareClimdex.Click + dlgClimdexIndices.ShowDialog() + End Sub + + Private Sub mnuClimaticPrepareSPI_Click(sender As Object, e As EventArgs) Handles mnuClimaticPrepareSPI.Click + dlgSPI.ShowDialog() + End Sub + + Private Sub mnuClimaticMapping_Click(sender As Object, e As EventArgs) Handles mnuClimaticMapping.Click + dlgClimaticStationMaps.ShowDialog() + End Sub + + Private Sub mnuModelModel_Click(sender As Object, e As EventArgs) Handles mnuModelModel.Click + dlgModelling.ShowDialog() + End Sub + + Private Sub mnuHelpWindows_Click(sender As Object, e As EventArgs) Handles mnuHelpWindows.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "539") + End Sub + + Private Sub mnuHelpDataViewSpreadsheet_Click(sender As Object, e As EventArgs) Handles mnuHelpDataViewSpreadsheet.Click + Help.ShowHelp(Me, strStaticPath & "\" & strHelpFilePath, HelpNavigator.TopicId, "134") + End Sub + + Private Sub mnuClimaticTidyandExamineOneVariableGraph_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineOneVariableGraph.Click + dlgOneVariableGraph.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineOneVariableFrequencies_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineOneVariableFrequencies.Click + dlgOneWayFrequencies.ShowDialog() + End Sub + + Private Sub mnuClimaticTidyandExamineDuplicates_Click(sender As Object, e As EventArgs) Handles mnuClimaticTidyandExamineDuplicates.Click + dlgDuplicates.ShowDialog() + End Sub + + Private Sub UseModelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnuModelUseModel.Click + dlgUseModel.ShowDialog() + End Sub + + Private Sub mnuCumExeedenceGraph_Click(sender As Object, e As EventArgs) Handles mnuClimaticPICSACumExeedenceGraph.Click + dlgCumulativeDistribution.ShowDialog() + End Sub End Class \ No newline at end of file diff --git a/instat/ucrGeom.vb b/instat/ucrGeom.vb index f659b10a1fe..16955dfaf3f 100644 --- a/instat/ucrGeom.vb +++ b/instat/ucrGeom.vb @@ -405,26 +405,35 @@ Public Class ucrGeom lstAllGeoms.Add(clsgeom_col) - 'clsgeom_contour.SetGeomName("geom_contour") + clsgeom_contour.SetGeomName("geom_contour") ''Mandatory - 'clsgeom_contour.AddAesParameter("x", bIsMandatory:=TRUE) - 'clsgeom_contour.AddAesParameter("y", bIsMandatory:=TRUE) + clsgeom_contour.AddAesParameter("x", bIsMandatory:=True) + clsgeom_contour.AddAesParameter("y", bIsMandatory:=True) + clsgeom_contour.AddAesParameter("z", bIsMandatory:=True) + ''optional - 'clsgeom_contour.AddAesParameter("alpha") - 'clsgeom_contour.AddAesParameter("colour") - 'clsgeom_contour.AddAesParameter("linetype") - 'clsgeom_contour.AddAesParameter("size") - 'clsgeom_contour.AddAesParameter("weight") + clsgeom_contour.AddAesParameter("alpha") + clsgeom_contour.AddAesParameter("colour") + clsgeom_contour.AddAesParameter("group") + clsgeom_contour.AddAesParameter("linetype") + clsgeom_contour.AddAesParameter("size") + clsgeom_contour.AddAesParameter("weight") ''add layer parameters - 'clsgeom_contour.AddLayerParameter("stat", "list", Chr(34) & "contour" & Chr(34)) - 'clsgeom_contour.AddLayerParameter("position", "list", Chr(34) & "identity" & Chr(34)) - 'clsgeom_contour.AddLayerParameter("lineend", "list", Chr(34) & "butt" & Chr(34), lstParameterStrings:={Chr(34) & "round" & Chr(34), Chr(34) & "butt" & Chr(34), Chr(34) & "square" & Chr(34)}) - 'clsgeom_contour.AddLayerParameter("linejoin", "list", Chr(34) & "round" & Chr(34), lstParameterStrings:={Chr(34) & "round" & Chr(34), Chr(34) & "mitre" & Chr(34), Chr(34) & "bevel" & Chr(34)}) + clsgeom_contour.AddLayerParameter("stat", "list", Chr(34) & "contour" & Chr(34), lstParameterStrings:={Chr(34) & "contour" & Chr(34)}) + clsgeom_contour.AddLayerParameter("position", "list", Chr(34) & "identity" & Chr(34), lstParameterStrings:={Chr(34) & "identity" & Chr(34)}) + clsgeom_contour.AddLayerParameter("lineend", "list", Chr(34) & "butt" & Chr(34), lstParameterStrings:={Chr(34) & "round" & Chr(34), Chr(34) & "butt" & Chr(34), Chr(34) & "square" & Chr(34)}) + clsgeom_contour.AddLayerParameter("linejoin", "list", Chr(34) & "round" & Chr(34), lstParameterStrings:={Chr(34) & "round" & Chr(34), Chr(34) & "mitre" & Chr(34), Chr(34) & "bevel" & Chr(34)}) ''linemitre should 1 or a number >1 - 'clsgeom_contour.AddLayerParameter("linemitre", "numeric", "1") + clsgeom_contour.AddLayerParameter("linemitre", "numeric", "10", lstParameterStrings:={1, 1}) + clsgeom_contour.AddLayerParameter("na.rm", "boolean", "FALSE") + clsgeom_contour.AddLayerParameter("show.legend", "list", "NA", lstParameterStrings:={"NA", "TRUE", "FALSE"}) + clsgeom_contour.AddLayerParameter("inherit.aes", "boolean", "TRUE") + clsgeom_contour.AddLayerParameter("bins", "numeric", "1", lstParameterStrings:={0, 1}) + clsgeom_contour.AddLayerParameter("binwidth", "numeric", "0.01", lstParameterStrings:={3, 0}) + clsgeom_contour.AddLayerParameter("colour", "colour", Chr(34) & "black" & Chr(34)) ''bin and binwidth could be added here as well. I am not sure if they are needed.... - 'lstAllGeoms.Add(clsgeom_contour) + lstAllGeoms.Add(clsgeom_contour) clsgeom_count.SetGeomName("geom_count") 'Mandatory Aesthetics