Skip to content

Commit

Permalink
Changes
Browse files Browse the repository at this point in the history
  • Loading branch information
anastasia-mbithe committed Aug 9, 2023
1 parent 4b652d6 commit 6bf04c5
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 9 deletions.
12 changes: 6 additions & 6 deletions instat/dlgDescribeTwoVariable.vb
Original file line number Diff line number Diff line change
Expand Up @@ -480,23 +480,23 @@ Public Class dlgDescribeTwoVariable
clsDummyFunction.AddParameter("checked", "customize", iPosition:=0)
If IsNumericByNumeric() Then
ucrBase.clsRsyntax.SetBaseRFunction(clsRCorrelationFunction)
'ucrSaveTable.Visible = False
ucrSaveTable.Visible = False
ElseIf IsFactorByNumeric() Then
ucrBase.clsRsyntax.SetBaseRFunction(clsRAnovaFunction)
'ucrSaveTable.Visible = False
ucrSaveTable.Visible = False
ElseIf IsNumericByFactor() Then
'ucrSaveTable.Visible = True
ucrSaveTable.Visible = True
clsDummyFunction.AddParameter("factor_cols", "Sum", iPosition:=1)
ucrBase.clsRsyntax.SetBaseROperator(clsJoiningPipeOperator)
' ucrSaveTable.SetPrefix("summary_table")
ucrSaveTable.SetPrefix("summary_table")
ucrSaveTable.SetSaveType(RObjectTypeLabel.Table, strRObjectFormat:=RObjectFormat.Html)
ucrSaveTable.SetAssignToIfUncheckedValue("last_table")
ucrSaveTable.SetCheckBoxText("Save Table")
ElseIf IsFactorByFactor() Then
'ucrSaveTable.Visible = True
ucrSaveTable.Visible = True
clsDummyFunction.AddParameter("factor_cols", "FactorVar", iPosition:=1)
ucrBase.clsRsyntax.SetBaseROperator(clsJoiningPipeOperator)
' ucrSaveTable.SetPrefix("frequency_table")
ucrSaveTable.SetPrefix("frequency_table")
ucrSaveTable.SetSaveType(RObjectTypeLabel.Table, strRObjectFormat:=RObjectFormat.Html)
ucrSaveTable.SetAssignToIfUncheckedValue("last_table")
ucrSaveTable.SetCheckBoxText("Save Table")
Expand Down
6 changes: 3 additions & 3 deletions instat/dlgLinePlot.vb
Original file line number Diff line number Diff line change
Expand Up @@ -746,15 +746,15 @@ Public Class dlgLinePlot
Private Sub PeakOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PeakOptionsToolStripMenuItem.Click
openSdgLayerOptions(clsPeakFunction)
End Sub

Private Sub DumbbellOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DumbbellOptionsToolStripMenuItem.Click
openSdgLayerOptions(clsGeomDumbbellFunction)
End Sub

Private Sub LineOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LineOptionsToolStripMenuItem.Click
openSdgLayerOptions(clsGeomLineFunction)
End Sub

Private Sub SmoothOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SmoothOptionsToolStripMenuItem.Click
openSdgLayerOptions(clsGeomSmoothFunction)
End Sub
Expand All @@ -766,7 +766,7 @@ Public Class dlgLinePlot
Private Sub PathOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PathOptionsToolStripMenuItem.Click
openSdgLayerOptions(clsPathFunction)
End Sub

Private Sub StepOptionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StepOptionsToolStripMenuItem.Click
openSdgLayerOptions(clsGeomStepFunction)
End Sub
Expand Down

0 comments on commit 6bf04c5

Please sign in to comment.