Merge pull request #5 from africanmathsinitiative/master

updating my repo

instat/clsGridLink.vb

@@ -210,8 +210,6 @@ Public Class clsGridLink
                             fillWorkSheet.ColumnHeaders(k).Text = dfTemp.ColumnNames(k) & " (c)"
                         Case "Date"
                             fillWorkSheet.ColumnHeaders(k).Text = dfTemp.ColumnNames(k) & " (D)"
-                        Case "logical"
-                            fillWorkSheet.ColumnHeaders(k).Text = dfTemp.ColumnNames(k) & " (l)"
                         Case Else
                             fillWorkSheet.ColumnHeaders(k).Text = dfTemp.ColumnNames(k)
                     End Select

instat/clsRLink.vb

@@ -396,7 +396,7 @@ Public Class RLink
     Public Function GetDataFrameLength(strDataFrameName As String) As Integer
         Dim intLength As Integer
         If clsEngine IsNot Nothing Then
-            intLength = clsEngine.Evaluate(frmMain.clsRLink.strInstatDataObject & "$get_dataframe_length(" & Chr(34) & strDataFrameName & Chr(34) & ")").AsInteger(0)
+            intLength = clsEngine.Evaluate(frmMain.clsRLink.strInstatDataObject & "$get_data_frame_length(" & Chr(34) & strDataFrameName & Chr(34) & ")").AsInteger(0)
         End If
         Return intLength
     End Function

instat/dlgPolynomials.vb

@@ -45,8 +45,7 @@ Public Class dlgPolynomials
     Private Sub SetDefaults()
         ucrInputPolynomial.SetPrefix("Poly")
         rdoSimple.Checked = True
-        rdoCentered.Checked = False
-        rdoOrthogonal.Checked = False
+        XParameter()
         nudDegree.Value = 2
         ucrSelectorForPolynomial.Reset()
         ucrSelectorForPolynomial.Focus()
@@ -91,6 +90,10 @@ Public Class dlgPolynomials
     End Sub
 
     Private Sub grpType_CheckedChanged(sender As Object, e As EventArgs) Handles rdoSimple.CheckedChanged, rdoCentered.CheckedChanged, rdoOrthogonal.CheckedChanged
+        XParameter()
+    End Sub
+
+    Private Sub XParameter()
         If rdoSimple.Checked Then
             ucrBase.clsRsyntax.AddParameter("x", clsRFunctionParameter:=ucrReceiverPolynomial.GetVariables())
             ucrBase.clsRsyntax.AddParameter("raw", "TRUE")
@@ -105,10 +108,8 @@ Public Class dlgPolynomials
 
         Else
             ucrBase.clsRsyntax.RemoveParameter("raw")
-
         End If
     End Sub
-
     Private Sub nudDegree_TextChanged(sender As Object, e As EventArgs) Handles nudDegree.TextChanged
         ucrBase.clsRsyntax.AddParameter("degree", nudDegree.Value)
         TestOKEnabled()