Ciao a tutti,
sto cercando di far fare una regressione lineare a una serie di dati per trovare i parametri che meglio approssimano una funzione.
In particolare ciò mi serve perchè devo analizzare i dati che arrivano da una macchina di prova e vorrei avere delle statistiche.
Mi sembra di aver definito tutto in amniera corretta, ma ottengo in continuazione un errore di cui non riesco a venire a capo.

Ringrazio fin da ora chi mi desse una mano.

Fabio

codice:
Sub Macro1()
Start = 909
maxi = 2641

For i = Start To maxi+1
defRange1 = "S" & i & ":S" & maxi
defRange2 = "T" & i & ":T" & maxi
R = Application.WorksheetFunction.RSq(defRange1, defRange2)
If R >= 0.995 Then
    i = maxi
End If
Next i

ActiveSheet.Cells(59, 31) = R
End Sub