Reproduzierbares Beispiel, das jedes Mal den genannten Fehlercode ausgibt: (Beachten Sie, dass der Fehler auch ohne set.seed jedes Mal auftritt.)

library(MASS)
set.seed(seed = 1)
data<-rnorm(n = 10000,mean = 0.0002,sd = 0.001)
fitdistr(x = data,densfun = "t")

Die Fehlermeldung lautet:

Error in stats::optim(x = c(-0.000426453810742332,       0.000383643324222082,  : 
non-finite finite-difference value [2]
In addition: Warning message:
In log(s) : NaNs produced

Das Problem ist der "unendliche Wert der endlichen Differenz". Fitdistr gibt mir kein Ergebnis.

Mein Wissen: Ich habe nachgeforscht und anscheinend könnte dies bedeuten, dass ein Parameter während der Iteration negativ ist. Und dass die Lösung darin bestehen könnte, einen besseren oder zumindest anderen Startwert bereitzustellen. Aber ich konnte nicht herausfinden, wie das geht, und ich bin mir nicht sicher, ob dies das Problem ist.

Meine Frage: a) Warum erhalte ich diese Fehlermeldung und b) wie kann ich sie in R beheben, damit ich die student-t-Verteilung an meine normal verteilten Daten anpassen kann?