# create some random data
x <- rpoilog(S=1000, mu=-2.0, sig=2.0, keep0=FALSE)
# fit that data
res <- poilogMLE(x, 2.0, -2.0)
# the results should be fairly robust to the starting parameters
res2 <- poilogMLE(x, 1.0, 0.5)
Run the code above in your browser using DataLab