Displaying 1 result from an estimated 1 matches for "szenn".
Did you mean:
stenn
2006 Mar 27
1
Missing Argument in optim()
...already searched the archieves, but i still don't know what is wrong
in my implementation, mybe anybody coud give me some advice
ll1<-function(rho,theta,beta1,beta2,beta3,beta4,t,Szenariosw5,Testfaellew5,X1,X2)
{
n<-length(t)
t<-cumsum(t)
tn<-t[length(t)]
Szenn<-Szenariosw5[length(Szenariosw5)]
Testn<-Testfaellew5[length(Testfaellew5)]
X1n<-X1[length(X1)]
X2n<-X2[length(X2)]
n/rho-(tn^theta)*(beta1*Szenn+beta2*Testn+beta3*X1n+beta4*X2n)
}
p0<-c(rho=1,theta=1,beta1=1,beta2=1,beta3=1,beta4=1)
optim(p0,fn=ll1,t=t,Szenario...