Ich wollte eine relativ simple Aufgabe erledigen und komme leider einfach nicht weiter. Ich würde gerne eine Regression für einen Datensatz rechnen und zwar als negative Exponentialfunktion. Nachstehend mein bisheriger Code:
Code: Alles auswählen
rm(list = ls(all.names = TRUE))
data <- data.frame(cbind(c(2005.858,2006.323,2006.681,2006.855,2007.246,2007.852,2008.296,2008.658,2009.309,2009.598,2009.844,2010.329,2010.633,2010.880,2011.307),
c(-0.1587725,-0.1872080,-0.0097310,-0.1334250,-0.1415130,-0.3153405,-0.4836975,-0.6108542,-0.3429872,-0.4400377,-0.3948924,-0.4516956,-0.5317573,-0.5295940,-0.6489158)))
[img]
[attachment=0]Rplot01.png[/attachment][/img]
names(data) = c("Datum","Messwert")
model = nls(Messwert ~ a * exp((b*Datum-c)), data = data, start=list(a=-0.5,b=0.005, c=11))
Code: Alles auswählen
Error in nlsModel(formula, mf, start, wts) :
singuläre Gradientenmatrix bei der ersten Parameterschätzung
Kann mir diesbezüglich vielleicht jemand helfen?
Vielen Dank,LG