Hello Bjoern,
Bjoern Milcke wrote:
> [...]
Thanks, fine - the following works for me:
Sub RegressionLineON()
Dim chartxy,diagram
Dim oCurves(0)
oChart=Thiscomponent.sheets(0).charts(0).embeddedobject
oSeries =
oChart.firstDiagram.CoordinateSystems(0).ChartTypes(0).DataSeries(0)
Set oCurves(0) = createUNOService(
"com.sun.star.chart2.LinearRegressionCurve" )
oSeries.setRegressionCurves( oCurves() )
Set oCalculator = oCurves(0).Calculator
aXValues = oSeries.DataSequences(0).Values.NumericalData
Dim aYValues(UBOUND(aXValues()))
For i = 0 To UBOUND(aYValues())
aYValues(i) = i+1
Next i
oCalculator.recalculateRegression( aYValues, aXValues )
Msgbox oCalculator.Representation
End Sub
> I know, this should be fixed, as this way the usage is quite
> tedious. I
> hope we will find time for this.
Please, so it is possible, have a look of the return of
oCalculator.CorrelationCoefficient - the notification in the status line
is R^2 and the return of oCalculator.CorrelationCoefficient is R - in
principle not a real problem (and yes, its documented in the
idl-reference ;-)), but imho this it is even so a little bit irritating
at first view.
greetings
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
