R- Optimx für Exponentialfunktion mit 2 Parametern - Funktion kann nicht bei ersten Parameterwerten ausgewertet werden

Question

Ich habe das Gefühl, dass ich etwas sehr Offensichtliches verpasst habe, aber nach einer Stunde des Fidelns/Googelns kann ich das nicht zum Laufen bringen. Code:

#Generate data from exponential model 

xdata<-seq_len(100) 
ydata<-2*exp(-2*(xdata+rnorm(100))) 

#Fit exponential model to data 
firstorder<-function(C0,k){ 
ynew<-C0*exp(-k*xdata) 
RMSE<-sum((ynew-ydata)^2,na.rm=TRUE) 
return(RMSE) 
} 

#Initial parameter values 
params<-c(1,1) 

#Optimize 
optimx(params,firstorder) 

Fehler in optimx.check (par, optcfg $ UFN, optcfg $ ugr, optcfg $ uhess, niedriger,: nicht funktionieren kann bei Anfangsparameter bewerten

ich eine Vielzahl von Möglichkeiten versucht, die Parameter-Eingang.

Answer 1

Versuchen

optimx(params, function(x) firstorder(x[1], x[2]))