### simulate observations
set.seed(200)
n <- rpoilog(S=80,mu=1,sig=2)
### obtain estimates of parameters
est <- poilogMLE(n)
### similar, but now with bootstrapping ###
est <- poilogMLE(n,nboot=10)
### change start values and request tracing information
### from optimization procedure
est <- poilogMLE(n,startVals=c(2,3),
control=list(maxit=1000,trace=1, REPORT=1))
Run the code above in your browser using DataLab