Merge pull request #5 from africanmathsinitiative/master

updating my repo

instat/My Project/Resources.resx

@@ -1126,4 +1126,13 @@
   <data name="View_data" xml:space="preserve">
     <value>View data</value>
   </data>
+  <data name="Kappa" xml:space="preserve">
+    <value>Kappa</value>
+  </data>
+  <data name="vonmises" xml:space="preserve">
+    <value>vonmises</value>
+  </data>
+  <data name="von_mises" xml:space="preserve">
+    <value>von mises</value>
+  </data>
 </root>

instat/clsDistribution.vb

@@ -28,12 +28,12 @@ Public Class Distribution
         strNameTag = strTemp
     End Sub
 
-    Public Sub AddParameter(strArgumentName As String, strNameTag As String, Optional DefaultValue As Decimal = 9999)
+    Public Sub AddParameter(strArgumentName As String, strNameTag As String, Optional strDefaultValue As String = "")
         Dim NewParameter As New DistributionParameter
         NewParameter.strArgumentName = strArgumentName
         NewParameter.strNameTag = strNameTag
-        If Not DefaultValue = 9999 Then
-            NewParameter.SetDefaultValue(DefaultValue)
+        If Not strDefaultValue = "" Then
+            NewParameter.SetDefaultValue(strDefaultValue)
         End If
         clsParameters.Add(NewParameter)
     End Sub
@@ -42,11 +42,11 @@ End Class
 Public Class DistributionParameter
     Public strArgumentName As String
     Public strNameTag As String
-    Public dcmDefaultValue As Decimal
+    Public strDefaultValue As String
     Public bHasDefault As Boolean = False
 
-    Public Sub SetDefaultValue(Val As Decimal)
-        dcmDefaultValue = Val
+    Public Sub SetDefaultValue(Val As String)
+        strDefaultValue = Val
         bHasDefault = True
     End Sub
 End Class