Added the Chi-square goodness of fit report.
This commit is contained in:
parent
66aaf665cb
commit
897a4a11ae
@ -29,13 +29,13 @@ Sub subReportCorrelation (oDoc As Object, oDataRange As Object)
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object
|
||||
Dim nN As Integer, sFormula As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
Dim nFormatN As Integer, nFormatF As Integer, nFormatP As Integer
|
||||
Dim aBorderSingle As New com.sun.star.table.BorderLine
|
||||
Dim aBorderDouble As New com.sun.star.table.BorderLine
|
||||
Dim sCellXLabel As String, sCellsXData As String
|
||||
Dim sCellYLabel As String, sCellsYData As String
|
||||
Dim sCellN As String, sCellR As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
|
||||
@ -28,6 +28,7 @@ Sub subReportPairedTTest (oDoc As Object, oDataRange As Object)
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object
|
||||
Dim nN As Integer, sFormula As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
Dim nFormatN As Integer, nFormatF As Integer, nFormatP As Integer
|
||||
Dim aBorderSingle As New com.sun.star.table.BorderLine
|
||||
Dim aBorderDouble As New com.sun.star.table.BorderLine
|
||||
@ -36,7 +37,6 @@ Sub subReportPairedTTest (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellYLabel As String, sCellsYData As String
|
||||
Dim sCellYN As String, sCellYMean As String, sCellYS As String
|
||||
Dim sCellN As String, sCellXYS As String, sCellR As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
|
||||
@ -31,6 +31,7 @@ Sub subReportIndependentTTest (oDoc As Object, oDataRange As Object)
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object, oTempDataRange As Object
|
||||
Dim nN As Integer, sFormula As String, sSP2 As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
Dim nFormatN As Integer, nFormatF As Integer, nFormatP As Integer
|
||||
Dim aBorderSingle As New com.sun.star.table.BorderLine
|
||||
Dim aBorderDouble As New com.sun.star.table.BorderLine
|
||||
@ -39,7 +40,6 @@ Sub subReportIndependentTTest (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellYLabel As String, sCellsYData As String
|
||||
Dim sCellYN As String, sCellYMean As String, sCellYS As String
|
||||
Dim sCellF As String, sCellsN As String, sCellN As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
|
||||
@ -32,6 +32,7 @@ Sub subReportANOVA (oDoc As Object, oDataRange As Object)
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer, nStartRow As Integer
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object, oTempDataRange As Object
|
||||
Dim nN As Integer, sFormula As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
Dim nFormatN As Integer, nFormatF As Integer, nFormatP As Integer
|
||||
Dim aBorderSingle As New com.sun.star.table.BorderLine
|
||||
Dim aBorderDouble As New com.sun.star.table.BorderLine
|
||||
@ -45,7 +46,6 @@ Sub subReportANOVA (oDoc As Object, oDataRange As Object)
|
||||
Dim sCellSSB As String, sCellSSW As String, sCellSST As String
|
||||
Dim sCellMSB As String, sCellMSW As String
|
||||
Dim sCellMeanDiff As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
|
||||
818
_5Chi2GoF.vb
Normal file
818
_5Chi2GoF.vb
Normal file
@ -0,0 +1,818 @@
|
||||
' _5Chi2GoF: The macros to for generating the report of Chi-square goodness of fit
|
||||
' by imacat <imacat@mail.imacat.idv.tw>, 2016-09-05
|
||||
Option Explicit
|
||||
|
||||
' subTestChi2GoodnessOfFit: Tests the chi-square goodness of fit report
|
||||
Sub subTestChi2GoodnessOfFit
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim oSheet As Object, oRange As Object
|
||||
|
||||
sSheetName = "chi2"
|
||||
oSheets = ThisComponent.getSheets
|
||||
If Not oSheets.hasByName (sSheetName) Then
|
||||
MsgBox "Data sheet """ & sSheetName & """ not found"
|
||||
Exit Sub
|
||||
End If
|
||||
If oSheets.hasByName (sSheetName & "_chi2") Then
|
||||
oSheets.removeByName (sSheetName & "_chi2")
|
||||
End If
|
||||
oSheet = ThisComponent.getSheets.getByName (sSheetName)
|
||||
'oRange = oSheet.getCellRangeByName ("A7:B192")
|
||||
oRange = oSheet.getCellRangeByName ("A7:B167")
|
||||
subReportChi2GoodnessOfFit (ThisComponent, oRange)
|
||||
End Sub
|
||||
|
||||
' subReportChi2GoodnessOfFit: Reports the chi-square goodness of fit
|
||||
Sub subReportChi2GoodnessOfFit (oDoc As Object, oDataRange As Object)
|
||||
Dim oSheets As Object, sSheetName As String
|
||||
Dim nI As Integer, nJ As Integer, nJ1 As Integer, nJ2 As Integer
|
||||
Dim mNames () As String, nSheetIndex As Integer
|
||||
Dim oSheet As Object, oColumns As Object, nRow As Integer, nStartRow As Integer
|
||||
Dim oCell As Object, oCells As Object, oCursor As Object
|
||||
Dim nN As Integer, sFormula As String
|
||||
Dim sNotes As String, nPos As Integer
|
||||
Dim nFormatN As Integer, nFormatF As Integer, nFormatP As Integer, nFormatPct As Integer
|
||||
Dim aBorderSingle As New com.sun.star.table.BorderLine
|
||||
Dim aBorderDouble As New com.sun.star.table.BorderLine
|
||||
|
||||
Dim sCellsJData As String, sCellsIData As String
|
||||
Dim sLabel As String, sLabelsColumn As String, sLabelsRow As String
|
||||
Dim nGroups As Integer, nEvents As Integer
|
||||
Dim mCellLabelColomn () As String, mCellLabelRow () As String
|
||||
Dim mCellNJ () As String, mCellNI () As String, mCellPI () As String
|
||||
Dim mCellFrequency (0, 0) As String, mCellProportion (0, 0) As String
|
||||
Dim sCellN As String
|
||||
|
||||
Dim sCell As String, sCells As String
|
||||
Dim sCellsRow As String, sCellsColumn As String
|
||||
Dim sCellChi2 As String, sCellDF As String
|
||||
Dim sSE2 AS String, nTotalColumns As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
sSheetName = oDataRange.getSpreadsheet.getName
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sSheetName Then
|
||||
nSheetIndex = nI
|
||||
End If
|
||||
Next nI
|
||||
oSheets.insertNewByName (sSheetName & "_chi2", nSheetIndex + 1)
|
||||
oSheet = oSheets.getByName (sSheetName & "_chi2")
|
||||
|
||||
sCellsJData = fnGetRangeName (oDataRange.getCellRangeByPosition (0, 1, 0, oDataRange.getRows.getCount - 1))
|
||||
sCellsIData = fnGetRangeName (oDataRange.getCellRangeByPosition (1, 1, 1, oDataRange.getRows.getCount - 1))
|
||||
|
||||
' Counts the number of groups and events
|
||||
sLabelsColumn = " "
|
||||
sLabelsRow = " "
|
||||
nGroups = 0
|
||||
nEvents = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
sLabel = oDataRange.getCellByPosition (0, nRow).getString
|
||||
If InStr (sLabelsColumn, " " & sLabel & " ") = 0 Then
|
||||
sLabelsColumn = sLabelsColumn & sLabel & " "
|
||||
nGroups = nGroups + 1
|
||||
End If
|
||||
sLabel = oDataRange.getCellByPosition (1, nRow).getString
|
||||
If InStr (sLabelsRow, " " & sLabel & " ") = 0 Then
|
||||
sLabelsRow = sLabelsRow & sLabel & " "
|
||||
nEvents = nEvents + 1
|
||||
End If
|
||||
Next nRow
|
||||
|
||||
ReDim mCellLabelColomn (nGroups - 1) As String, mCellLabelRow (nEvents - 1) As String
|
||||
ReDim mCellNJ (nGroups - 1) As String, mCellNI (nEvents - 1) As String
|
||||
ReDim mCellPI (nEvents - 1) As String
|
||||
ReDim mCellFrequency (nGroups - 1, nEvents - 1) As String
|
||||
ReDim mCellProportion (nGroups - 1, nEvents - 1) As String
|
||||
|
||||
' Collects the group and event labels
|
||||
sLabelsColumn = " "
|
||||
sLabelsRow = " "
|
||||
nJ = 0
|
||||
nI = 0
|
||||
For nRow = 1 To oDataRange.getRows.getCount - 1
|
||||
oCell = oDataRange.getCellByPosition (0, nRow)
|
||||
sLabel = oCell.getString
|
||||
If InStr (sLabelsColumn, " " & sLabel & " ") = 0 Then
|
||||
sLabelsColumn = sLabelsColumn & sLabel & " "
|
||||
mCellLabelColomn (nJ) = fnGetRangeName (oCell)
|
||||
nJ = nJ + 1
|
||||
End If
|
||||
oCell = oDataRange.getCellByPosition (1, nRow)
|
||||
sLabel = oCell.getString
|
||||
If InStr (sLabelsRow, " " & sLabel & " ") = 0 Then
|
||||
sLabelsRow = sLabelsRow & sLabel & " "
|
||||
mCellLabelRow (nI) = fnGetRangeName (oCell)
|
||||
nI = nI + 1
|
||||
End If
|
||||
Next nRow
|
||||
|
||||
' Obtains the format parameters for the report.
|
||||
nFormatN = fnQueryFormat (oDoc, "#,##0")
|
||||
nFormatF = fnQueryFormat (oDoc, "#,###.000")
|
||||
nFormatP = fnQueryFormat (oDoc, "[<0.01]#.000""**"";[<0.05]#.000""*"";#.000")
|
||||
nFormatPct = fnQueryFormat (oDoc, "0.0%")
|
||||
|
||||
aBorderSingle.OuterLineWidth = 2
|
||||
aBorderDouble.OuterLineWidth = 2
|
||||
aBorderDouble.InnerLineWidth = 2
|
||||
aBorderDouble.LineDistance = 2
|
||||
|
||||
' Sets the column widths of the report.
|
||||
nTotalColumns = nGroups + 2
|
||||
If nEvents = 2 Then
|
||||
If nTotalColumns < 5 Then
|
||||
nTotalColumns = 5
|
||||
End If
|
||||
Else
|
||||
If nTotalColumns < 6 Then
|
||||
nTotalColumns = 6
|
||||
End If
|
||||
End If
|
||||
oColumns = oSheet.getColumns
|
||||
For nJ = 0 To nTotalColumns - 1
|
||||
oColumns.getByIndex (nJ).setPropertyValue ("Width", 3060)
|
||||
Next nJ
|
||||
|
||||
nRow = -2
|
||||
|
||||
' Group description
|
||||
nRow = nRow + 2
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Crosstabulation")
|
||||
oCell.setPropertyValue ("CellStyle", "Result2")
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, nGroups + 1, nRow)
|
||||
oCells.merge (True)
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Event")
|
||||
For nJ = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (nJ + 1, nRow)
|
||||
sFormula = "=" & mCellLabelColomn (nJ)
|
||||
oCell.setFormula (sFormula)
|
||||
mCellLabelColomn (nJ) = fnGetLocalRangeName (oCell)
|
||||
Next nJ
|
||||
oCell = oSheet.getCellByPosition (nGroups + 1, nRow)
|
||||
oCell.setString ("Total")
|
||||
|
||||
' Shows each event
|
||||
nRow = nRow - 1
|
||||
For nI = 0 To nEvents - 1
|
||||
nRow = nRow + 2
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
sFormula = "=" & mCellLabelRow (nI)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("VertJustify", com.sun.star.table.CellVertJustify.TOP)
|
||||
mCellLabelRow (nI) = fnGetLocalRangeName (oCell)
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 0, nRow + 1)
|
||||
oCells.merge (True)
|
||||
For nJ = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (1 + nJ, nRow)
|
||||
sFormula = "=COUNTIFS(" & sCellsJData & ";" & mCellLabelColomn (nJ) & ";" & sCellsIData & ";" & mCellLabelRow (nI) & ")"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatN)
|
||||
mCellFrequency (nJ, nI) = fnGetLocalRangeName (oCell)
|
||||
Next nJ
|
||||
oCell = oSheet.getCellByPosition (1 + nGroups, nRow)
|
||||
sCells = fnGetLocalRangeName (oSheet.getCellRangeByPosition (1, nRow, nGroups, nRow))
|
||||
sFormula = "=SUM(" & sCells & ")"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatN)
|
||||
mCellNI (nI) = fnGetLocalRangeName (oCell)
|
||||
Next nI
|
||||
' Shows the total
|
||||
nRow = nRow + 2
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Total")
|
||||
oCell.setPropertyValue ("VertJustify", com.sun.star.table.CellVertJustify.TOP)
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 0, nRow + 1)
|
||||
oCells.merge (True)
|
||||
For nJ = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (1 + nJ, nRow)
|
||||
sFormula = ""
|
||||
For nI = 0 To nEvents - 1
|
||||
sFormula = sFormula & "+" & mCellFrequency (nJ, nI)
|
||||
Next nI
|
||||
sFormula = "=" & Right (sFormula, Len (sFormula) - 1)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatN)
|
||||
mCellNJ (nJ) = fnGetLocalRangeName (oCell)
|
||||
Next nJ
|
||||
oCell = oSheet.getCellByPosition (1 + nGroups, nRow)
|
||||
sCells = fnGetLocalRangeName (oSheet.getCellRangeByPosition (1, nRow, nGroups, nRow))
|
||||
sFormula = ""
|
||||
For nI = 0 To nEvents - 1
|
||||
sFormula = sFormula & "+" & mCellNI (nI)
|
||||
Next nI
|
||||
sFormula = "=" & Right (sFormula, Len (sFormula) - 1)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatN)
|
||||
sCellN = fnGetLocalRangeName (oCell)
|
||||
' Shows the proportions
|
||||
nRow = nRow - nEvents * 2 - 1
|
||||
For nI = 0 To nEvents - 1
|
||||
nRow = nRow + 2
|
||||
For nJ = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (1 + nJ, nRow)
|
||||
sFormula = "=" & mCellFrequency (nJ, nI) & "/" & mCellNJ (nJ)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatPct)
|
||||
mCellProportion (nJ, nI) = fnGetLocalRangeName (oCell)
|
||||
Next nJ
|
||||
oCell = oSheet.getCellByPosition (1 + nGroups, nRow)
|
||||
sFormula = "=" & mCellNI (nI) & "/" & sCellN
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatPct)
|
||||
Next nI
|
||||
' Shows the total
|
||||
nRow = nRow + 2
|
||||
For nJ = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (1 + nJ, nRow)
|
||||
sFormula = ""
|
||||
For nI = 0 To nEvents - 1
|
||||
sFormula = sFormula & "+" & mCellProportion (nJ, nI)
|
||||
Next nI
|
||||
sFormula = "=" & Right (sFormula, Len (sFormula) - 1)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatPct)
|
||||
Next nJ
|
||||
oCell = oSheet.getCellByPosition (1 + nGroups, nRow)
|
||||
sCells = fnGetLocalRangeName (oSheet.getCellRangeByPosition (1, nRow, nGroups, nRow))
|
||||
sFormula = "=" & sCellN & "/" & sCellN
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatPct)
|
||||
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow - nEvents * 2 - 1, nGroups, nRow - nEvents * 2 - 1)
|
||||
sCellsRow = fnGetLocalRangeName (oCells)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow - nEvents * 2 - 1, 1, nRow - 2)
|
||||
sCellsColumn = fnGetLocalRangeName (oCells)
|
||||
|
||||
' Draws the table borders.
|
||||
oCells = oSheet.getCellByPosition (0, nRow - nEvents * 2 - 2)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow - nEvents * 2 - 2, nGroups + 1, nRow - nEvents * 2 - 2)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow - nEvents * 2 - 1, 0, nRow - 2)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellByPosition (0, nRow - 1)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow - 1, nGroups + 1, nRow - 1)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow, nGroups + 1, nRow)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
|
||||
' The Chi-square test
|
||||
nRow = nRow + 2
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Chi-Square Test")
|
||||
oCell.setPropertyValue ("CellStyle", "Result2")
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 3, nRow)
|
||||
oCells.merge (True)
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Test")
|
||||
oCell = oSheet.getCellByPosition (1, nRow)
|
||||
oCell.setString ("χ2")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharEscapement", 33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (2, nRow)
|
||||
oCell.setString ("df")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCell = oSheet.getCellByPosition (3, nRow)
|
||||
oCell.setString ("p")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
|
||||
' The test result.
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Pearson’s Chi-Square")
|
||||
oCell = oSheet.getCellByPosition (1, nRow)
|
||||
sFormula = ""
|
||||
For nI = 0 To nEvents - 1
|
||||
For nJ = 0 To nGroups - 1
|
||||
sFormula = sFormula & "+POWER(" & mCellFrequency (nJ, nI) & ";2)/(" & mCellNI (nI) & "*" & mCellNJ (nJ) & ")"
|
||||
Next nJ
|
||||
Next nI
|
||||
sFormula = "=" & sCellN & "*(" & Right (sFormula, Len (sFormula) - 1) & "-1)"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatF)
|
||||
sCellChi2 = fnGetLocalRangeName (oCell)
|
||||
oCell = oSheet.getCellByPosition (2, nRow)
|
||||
sFormula = "=(COUNT(" & sCellsRow & ")-1)*(COUNT(" & sCellsColumn & ")/2-1)"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatN)
|
||||
sCellDF = fnGetLocalRangeName (oCell)
|
||||
oCell = oSheet.getCellByPosition (3, nRow)
|
||||
sFormula = "=CHIDIST(" & sCellChi2 & ";" & sCellDF & ")"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatP)
|
||||
|
||||
' The foot notes of the test.
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Note: *: p<.05, **: p<.01" & Chr (10) & _
|
||||
"H0: P1=P2=…PN=P (the proportions of the events in each group are the same)." & Chr (10) & _
|
||||
"H1: The above is false (the proportions of the events in each group are different) if the probability (p) is small enough.")
|
||||
oCell.setPropertyValue ("IsTextWrapped", True)
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 3, nRow)
|
||||
oCells.merge (True)
|
||||
sNotes = oCell.getString
|
||||
oCursor = oCell.createTextCursor
|
||||
nPos = InStr (sNotes, "p<")
|
||||
Do While nPos <> 0
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
nPos = InStr (nPos + 1, sNotes, "p<")
|
||||
Loop
|
||||
nPos = InStr (sNotes, "(p)")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
nPos = InStr (1, sNotes, "P", 0)
|
||||
Do While nPos <> 0
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
If oCursor.getString <> " " Then
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
End If
|
||||
nPos = InStr (nPos + 1, sNotes, "P", 0)
|
||||
Loop
|
||||
nPos = InStr (sNotes, "PN")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
nPos = InStr (sNotes, "H0")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
nPos = InStr (sNotes, "H1")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
|
||||
' Draws the table borders.
|
||||
oCells = oSheet.getCellByPosition (0, nRow - 2)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow - 2, 3, nRow - 2)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellByPosition (0, nRow - 1)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow - 1, 3, nRow - 1)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
|
||||
' The posteriori comparison
|
||||
nRow = nRow + 2
|
||||
If nEvents = 2 Then
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Posteriori Comparison")
|
||||
oCell.setPropertyValue ("CellStyle", "Result2")
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 4, nRow)
|
||||
oCells.merge (True)
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("j1")
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (1, nRow)
|
||||
oCell.setString ("j2")
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (2, nRow)
|
||||
oCell.setString ("Pj1-Pj2")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -52)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 34)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -52)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 34)
|
||||
oCell = oSheet.getCellByPosition (3, nRow)
|
||||
oCell.setString ("χ2")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharEscapement", 33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (4, nRow)
|
||||
oCell.setString ("p")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
Else
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Posteriori Comparison")
|
||||
oCell.setPropertyValue ("CellStyle", "Result2")
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 5, nRow)
|
||||
oCells.merge (True)
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Event")
|
||||
oCell = oSheet.getCellByPosition (1, nRow)
|
||||
oCell.setString ("j1")
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (2, nRow)
|
||||
oCell.setString ("j2")
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (3, nRow)
|
||||
oCell.setString ("Pj1-Pj2")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -52)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 34)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -52)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 34)
|
||||
oCell = oSheet.getCellByPosition (4, nRow)
|
||||
oCell.setString ("χ2")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharEscapement", 33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCell = oSheet.getCellByPosition (5, nRow)
|
||||
oCell.setString ("p")
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
oCursor = oCell.createTextCursor
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.gotoEnd (True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
End If
|
||||
|
||||
' The comparison between groups
|
||||
nRow = nRow + 1
|
||||
If nEvents = 2 Then
|
||||
For nJ1 = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
sFormula = "=" & mCellLabelColomn (nJ1)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("VertJustify", com.sun.star.table.CellVertJustify.TOP)
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 0, nRow + (nGroups - 1) - 1)
|
||||
oCells.merge (True)
|
||||
For nJ2 = 0 To nGroups - 1
|
||||
If nJ1 <> nJ2 Then
|
||||
oCell = oSheet.getCellByPosition (1, nRow)
|
||||
sFormula = "=" & mCellLabelColomn (nJ2)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell = oSheet.getCellByPosition (2, nRow)
|
||||
sFormula = "=" & mCellProportion (nJ1, 0) & "-" & mCellProportion (nJ2, 0)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatPct)
|
||||
sCell = fnGetLocalRangeName (oCell)
|
||||
sSE2 = "(" & mCellProportion (nJ1, 0) & "*(1-" & mCellProportion (nJ1, 0) & "))/" & mCellNJ (nJ1) & _
|
||||
"+(" & mCellProportion (nJ2, 0) & "*(1-" & mCellProportion (nJ2, 0) & "))/" & mCellNJ (nJ2)
|
||||
oCell = oSheet.getCellByPosition (3, nRow)
|
||||
sFormula = "=IF(" & sSE2 & "=0;""(N/A)"";POWER(" & sCell & ";2)/(" & sSE2 & "))"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatF)
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
sCellChi2 = fnGetLocalRangeName (oCell)
|
||||
oCell = oSheet.getCellByPosition (4, nRow)
|
||||
sFormula = "=IF(" & sSE2 & "=0;""(N/A)"";CHIDIST(" & sCellChi2 & ";" & sCellDF & "))"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatP)
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
nRow = nRow + 1
|
||||
End If
|
||||
Next nJ2
|
||||
Next nJ1
|
||||
Else
|
||||
For nI = 0 To nEvents - 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
sFormula = "=" & mCellLabelRow (nI)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("VertJustify", com.sun.star.table.CellVertJustify.TOP)
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 0, nRow + nGroups * (nGroups - 1) - 1)
|
||||
oCells.merge (True)
|
||||
For nJ1 = 0 To nGroups - 1
|
||||
oCell = oSheet.getCellByPosition (1, nRow)
|
||||
sFormula = "=" & mCellLabelColomn (nJ1)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("VertJustify", com.sun.star.table.CellVertJustify.TOP)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nRow, 1, nRow + (nGroups - 1) - 1)
|
||||
oCells.merge (True)
|
||||
For nJ2 = 0 To nGroups - 1
|
||||
If nJ1 <> nJ2 Then
|
||||
oCell = oSheet.getCellByPosition (2, nRow)
|
||||
sFormula = "=" & mCellLabelColomn (nJ2)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell = oSheet.getCellByPosition (3, nRow)
|
||||
sFormula = "=" & mCellProportion (nJ1, nI) & "-" & mCellProportion (nJ2, nI)
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatPct)
|
||||
sCell = fnGetLocalRangeName (oCell)
|
||||
sSE2 = "(" & mCellProportion (nJ1, nI) & "*(1-" & mCellProportion (nJ1, nI) & "))/" & mCellNJ (nJ1) & _
|
||||
"+(" & mCellProportion (nJ2, nI) & "*(1-" & mCellProportion (nJ2, nI) & "))/" & mCellNJ (nJ2)
|
||||
oCell = oSheet.getCellByPosition (4, nRow)
|
||||
sFormula = "=IF(" & sSE2 & "=0;""(N/A)"";POWER(" & sCell & ";2)/(" & sSE2 & "))"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatF)
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
sCellChi2 = fnGetLocalRangeName (oCell)
|
||||
oCell = oSheet.getCellByPosition (5, nRow)
|
||||
sFormula = "=IF(" & sSE2 & "=0;""(N/A)"";CHIDIST(" & sCellChi2 & ";" & sCellDF & "))"
|
||||
oCell.setFormula (sFormula)
|
||||
oCell.setPropertyValue ("NumberFormat", nFormatP)
|
||||
oCell.setPropertyValue ("ParaAdjust", com.sun.star.style.ParagraphAdjust.RIGHT)
|
||||
nRow = nRow + 1
|
||||
End If
|
||||
Next nJ2
|
||||
Next nJ1
|
||||
Next nI
|
||||
End If
|
||||
nRow = nRow - 1
|
||||
|
||||
' The foot notes of the test.
|
||||
nRow = nRow + 1
|
||||
oCell = oSheet.getCellByPosition (0, nRow)
|
||||
oCell.setString ("Note: *: p<.05, **: p<.01" & Chr (10) & _
|
||||
"H0: Pj1=Pj2 (the proportions of the event in the two groups are the same)." & Chr (10) & _
|
||||
"H1: Pj1≠Pj2 (the proportions of the event in the two groups are different) if the probability (p) is small enough.")
|
||||
oCell.setPropertyValue ("IsTextWrapped", True)
|
||||
If nEvents = 2 Then
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 4, nRow)
|
||||
Else
|
||||
oCells = oSheet.getCellRangeByPosition (0, nRow, 5, nRow)
|
||||
End If
|
||||
oCells.merge (True)
|
||||
sNotes = oCell.getString
|
||||
oCursor = oCell.createTextCursor
|
||||
nPos = InStr (sNotes, "p<")
|
||||
Do While nPos <> 0
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
nPos = InStr (nPos + 1, sNotes, "p<")
|
||||
Loop
|
||||
nPos = InStr (sNotes, "(p)")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
nPos = InStr (sNotes, "Pj")
|
||||
Do While nPos <> 0
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -52)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 34)
|
||||
nPos = InStr (nPos + 1, sNotes, "Pj")
|
||||
Loop
|
||||
nPos = InStr (sNotes, "H0")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
nPos = InStr (sNotes, "H1")
|
||||
oCursor.gotoStart (False)
|
||||
oCursor.goRight (nPos - 1, False)
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharPosture", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureAsian", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.setPropertyValue ("CharPostureComplex", com.sun.star.awt.FontSlant.ITALIC)
|
||||
oCursor.collapseToEnd
|
||||
oCursor.goRight (1, True)
|
||||
oCursor.setPropertyValue ("CharEscapement", -33)
|
||||
oCursor.setPropertyValue ("CharEscapementHeight", 58)
|
||||
|
||||
' Draws the table borders.
|
||||
If nEvents = 2 Then
|
||||
nStartRow = nRow - nGroups * (nGroups - 1) - 1
|
||||
oCells = oSheet.getCellByPosition (0, nStartRow)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellByPosition (1, nStartRow)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (2, nStartRow, 4, nStartRow)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (1, nStartRow + 1, 1, nRow - 2)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellByPosition (0, nRow - 1 - (nGroups - 1) + 1)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellByPosition (1, nRow - 1)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellRangeByPosition (2, nRow - 1, 4, nRow - 1)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
Else
|
||||
nStartRow = nRow - nEvents * nGroups * (nGroups - 1) - 1
|
||||
oCells = oSheet.getCellRangeByPosition (0, nStartRow, 1, nStartRow)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellByPosition (2, nStartRow)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (3, nStartRow, 5, nStartRow)
|
||||
oCells.setPropertyValue ("TopBorder", aBorderDouble)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellRangeByPosition (2, nStartRow + 1, 2, nRow - 2)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells = oSheet.getCellByPosition (0, nRow - 1 - nGroups * (nGroups - 1) + 1)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellByPosition (1, nRow - 1 - (nGroups - 1) + 1)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellByPosition (2, nRow - 1)
|
||||
oCells.setPropertyValue ("RightBorder", aBorderSingle)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
oCells = oSheet.getCellRangeByPosition (3, nRow - 1, 5, nRow - 1)
|
||||
oCells.setPropertyValue ("BottomBorder", aBorderDouble)
|
||||
End If
|
||||
End Sub
|
||||
Loading…
Reference in New Issue
Block a user