I have this function:
我有这个功能:
> λ.est <- function(x){
mle.optim <- mle2(paretoNLL,start=list(λ=-0.7),data=list(x=x),trace=TRUE)
return(summary(mle.optim)@coef[1,1:4])
}
> λ.est <- fuI have this function:
我有这个功能:
> λ.est <- function(x){
mle.optim <- mle2(paretoNLL,start=list(λ=-0.7),data=list(x=x),trace=TRUE)
return(summary(mle.optim)@coef[1,1:4])
}
> λ.est <- fu