Displaying 1 result from an estimated 1 matches for "parmss".
Did you mean:
parms
2011 Jul 11
3
fitdistr() Error
...x){
????????? y <- as.numeric(x$y)
?????????? fitdistr(y ,"gamma",list(shape=sh.mom, scale=sc),
#method = c("Nelder-Mead", "BFGS", "CG", "L-BFGS-B", "SANN"),
?????????? lower=0, method = c("CG"),control = list(maxit=10000))
})
parmss<-lapply(parm, function(x) x$estimate)
parmss<- t(as.data.frame(parmss))? #Estimates
parmsd<-lapply(parm, function(x) x$sd)????
parmsd<- t(as.data.frame(parmsd)) #Standard errors