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
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 sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats"
DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range
oRange = fnAskDataRange (ThisComponent)

2
2PTTest.vb
View File

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

2
3ITTest.vb
View File

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

2
4ANOVA.vb
View File

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

2
5Chi2GoF.vb
View File

@@ -24,7 +24,7 @@ Sub subRunChi2GoodnessOfFit As Object
Dim oSheet As Object, mRanges As Object
Dim sExisted As String, nResult As Integer
DialogLibraries.loadLibrary "Stats"
DialogLibraries.loadLibrary "StatTool"
' Asks the user for the data range
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
' Runs the dialog
oDialog = CreateUnoDialog (DialogLibraries.Stats.Dlg2SpecData)
oDialog = CreateUnoDialog (DialogLibraries.StatTool.Dlg2SpecData)
oTextModel = oDialog.getControl ("txtPrompt1").getModel
oTextModel.setPropertyValue ("Label", sPrompt1)
oListModel1 = oDialog.getControl ("lstData1").getModel
@@ -143,7 +143,7 @@ Function fnAskDataRange (oDoc As Object) As Object
' Loop until we finds good data
Do While sPrompt <> ""
' Runs the dialog
oDialog = CreateUnoDialog (DialogLibraries.Stats.Dlg1AskRange)
oDialog = CreateUnoDialog (DialogLibraries.StatTool.Dlg1AskRange)
oTextModel = oDialog.getControl ("txtPrompt").getModel
oTextModel.setPropertyValue ("Label", sPrompt)
oEditModel = oDialog.getControl ("edtCellsData").getModel