Displaying 1 result from an estimated 1 matches for "optcs39".
Did you mean:
opt39
2006 Sep 26
1
warning message in nlm
...)}
loglikcs39<-function(theta,len){
sum(mcs39[1:len]*fredcs39(theta[1],theta[2],c(8:(7+len))) - pcs39[1:len] *
log(fredcs39(theta[1],theta[2],c(8:(7+len)))))
}
theta.start<-c(0.1,0.1)
1. The output from using optim is as follow
--------------------------------------------------------------
optcs39<-optim(theta.start,loglikcs39,len=120,method="BFGS")
> optcs39
$par
[1] -1.27795226 -0.03626846
$value
[1] 7470.551
$counts
function gradient
133 23
$convergence
[1] 0
$message
NULL
2. The output from using nlm is as follow
-------------------------------------------...