Improving Model> Fit model>Two variable & One variable dialogs

instat/clsRegressionDefaults.vb

@@ -57,6 +57,18 @@ Public Class clsRegressionDefaults
             Return clsMultinomFunction
         End Get
     End Property
+
+    Public Shared ReadOnly Property clsDefaultGLmBayesFunction As RFunction
+        Get
+
+            Dim clsBayesFunction As New RFunction
+
+            clsBayesFunction.SetRCommand("bas.lm")
+            clsBayesFunction.SetPackageName("BAS")
+            Return clsBayesFunction
+        End Get
+    End Property
+
     Public Shared ReadOnly Property clsDefaultGlmFunction As RFunction
         Get
 
@@ -105,6 +117,14 @@ Public Class clsRegressionDefaults
         End Get
     End Property
 
+    Public Shared ReadOnly Property clsDefaultConfintBas As RFunction
+        Get
+            Dim clsDefaultRConfint As New RFunction
+            clsDefaultRConfint.SetRCommand("confint")
+            Return clsDefaultRConfint
+        End Get
+    End Property
+
     Public Shared ReadOnly Property clsDefaultRaovPValueFunction As RFunction
         Get
             Dim clsDefaultRaovpvalFunction As New RFunction