imacat/stattool
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Renamed the project from Stats to StatTool.

Browse Source
This commit is contained in:
依瑪貓 2016-09-09 15:06:01 +08:00
parent a3975c9267
commit 342135d728
6 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
1CorRel.vb
View File

@ -24,7 +24,7 @@ Sub subRunCorrelation As Object
Dim oSheet As Object, mRanges As Object Dim oSheet As Object, mRanges As Object
Dim sExisted As String, nResult As Integer Dim sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats" DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range ' Asks the user for the data range
oRange = fnAskDataRange (ThisComponent) oRange = fnAskDataRange (ThisComponent)

2
2PTTest.vb
View File

@ -24,7 +24,7 @@ Sub subRunPairedTTest As Object
Dim oSheet As Object, mRanges As Object Dim oSheet As Object, mRanges As Object
Dim sExisted As String, nResult As Integer Dim sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats" DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range ' Asks the user for the data range
oRange = fnAskDataRange (ThisComponent) oRange = fnAskDataRange (ThisComponent)

2
3ITTest.vb
View File

@ -24,7 +24,7 @@ Sub subRunIndependentTTest As Object
Dim oSheet As Object, mRanges As Object Dim oSheet As Object, mRanges As Object
Dim sExisted As String, nResult As Integer Dim sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats" DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range ' Asks the user for the data range
oRange = fnAskDataRange (ThisComponent) oRange = fnAskDataRange (ThisComponent)

2
4ANOVA.vb
View File

@ -24,7 +24,7 @@ Sub subRunANOVA As Object
Dim oSheet As Object, mRanges As Object Dim oSheet As Object, mRanges As Object
Dim sExisted As String, nResult As Integer Dim sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats" DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range ' Asks the user for the data range
oRange = fnAskDataRange (ThisComponent) oRange = fnAskDataRange (ThisComponent)

2
5Chi2GoF.vb
View File

@ -24,7 +24,7 @@ Sub subRunChi2GoodnessOfFit As Object
Dim oSheet As Object, mRanges As Object Dim oSheet As Object, mRanges As Object
Dim sExisted As String, nResult As Integer Dim sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats" DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range ' Asks the user for the data range
oRange = fnAskDataRange (ThisComponent) oRange = fnAskDataRange (ThisComponent)

4
9Utils.vb
View File

@ -93,7 +93,7 @@ Function fnSpecifyData (oRange As Object, sPrompt1 As String, sPrompt2 As String
Next nI Next nI
' Runs the dialog ' Runs the dialog
oDialog = CreateUnoDialog (DialogLibraries.Stats.Dlg2SpecData) oDialog = CreateUnoDialog (DialogLibraries.StatTool.Dlg2SpecData)
oTextModel = oDialog.getControl ("txtPrompt1").getModel oTextModel = oDialog.getControl ("txtPrompt1").getModel
oTextModel.setPropertyValue ("Label", sPrompt1) oTextModel.setPropertyValue ("Label", sPrompt1)
oListModel1 = oDialog.getControl ("lstData1").getModel oListModel1 = oDialog.getControl ("lstData1").getModel
@ -143,7 +143,7 @@ Function fnAskDataRange (oDoc As Object) As Object
' Loop until we finds good data ' Loop until we finds good data
Do While sPrompt <> "" Do While sPrompt <> ""
' Runs the dialog ' Runs the dialog
oDialog = CreateUnoDialog (DialogLibraries.Stats.Dlg1AskRange) oDialog = CreateUnoDialog (DialogLibraries.StatTool.Dlg1AskRange)
oTextModel = oDialog.getControl ("txtPrompt").getModel oTextModel = oDialog.getControl ("txtPrompt").getModel
oTextModel.setPropertyValue ("Label", sPrompt) oTextModel.setPropertyValue ("Label", sPrompt)
oEditModel = oDialog.getControl ("edtCellsData").getModel oEditModel = oDialog.getControl ("edtCellsData").getModel