Bivariate ANOVA dialog

instat/dlgBivariateANOVA.vb

@@ -1,3 +1,66 @@
-Public Class dlgBivariateANOVA
-
+' Instat-R
+' Copyright (C) 2015
+'
+' 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 k
+' along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+Imports instat.Translations
+Public Class dlgBivariateANOVA
+    Private Sub dlgBivariateANOVA_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ucrBase.clsRsyntax.SetFunction("manova")
+        ucrBase.clsRsyntax.iCallType = 2
+        ucrReceiver1stResponseVariable.Selector = ucrAddRemove
+        ucrReceiver1stResponseVariable.SetMeAsReceiver()
+        autoTranslate(Me)
+        ucrReceiver2ndResponseVariable.Selector = ucrAddRemove
+        ucrReceiverTreatmentFactor.Selector = ucrAddRemove
+        ucrReceiverBlockingFactor.Selector = ucrAddRemove
+    End Sub
+
+    Private Sub ucrReceiver1stResponseVariable_Leave(sender As Object, e As EventArgs) Handles ucrReceiver1stResponseVariable.Leave
+        FillFormula()
+
+    End Sub
+
+    Private Sub ucrReceiver2ndResponseVariable_Leave(sender As Object, e As EventArgs) Handles ucrReceiver2ndResponseVariable.Leave
+        FillFormula()
+    End Sub
+
+    Private Sub ucrReceiverTreatmentFactor_Leave(sender As Object, e As EventArgs) Handles ucrReceiverTreatmentFactor.Leave
+        FillFormula()
+
+    End Sub
+
+    Private Sub ucrReceiverBlockingFactor_Load(sender As Object, e As EventArgs) Handles ucrReceiverBlockingFactor.Leave
+        FillFormula()
+    End Sub
+    Private Sub FillFormula()
+        Dim str1stResponseVariable As String
+        Dim str2ndResponseVariable As String
+        Dim strTreatmentFactor As String
+        Dim strBlockingFactor As String
+        str1stResponseVariable = ucrReceiver1stResponseVariable.GetVariables()
+        str2ndResponseVariable = ucrReceiver2ndResponseVariable.GetVariables()
+        strTreatmentFactor = ucrReceiverBlockingFactor.GetVariables()
+        strBlockingFactor = ucrReceiverBlockingFactor.GetVariables()
+        If ((Not IsNothing(str1stResponseVariable)) Or (Not IsNothing(str2ndResponseVariable)) Or (Not IsNothing(strTreatmentFactor)) Or (Not IsNothing(strBlockingFactor))) Then
+            'ucrBase.clsRsyntax.AddParameter("formula", cbind(str1stResponseVariable,str2ndResponseVariable) & "~" & strTreatmentFactor & "*" & strBlockingFactor)
+            ucrBase.OKEnabled(True)
+        Else
+            ucrBase.OKEnabled(False)
+
+
+
+        End If
+    End Sub
 End Class