rawy = rexp(n <- 10000, rate=exp(1))
# Keep only the records
delete = c(FALSE, rep(TRUE, len=n-1))
for(i in 2:length(rawy))
if(rawy[i] > max(rawy[1:(i-1)])) delete[i] = FALSE
(y = rawy[!delete])
length(y) / y[length(y)] # MLE of rate
fit = vglm(y ~ 1, recexp1, trace=TRUE)
coef(fit, matrix=TRUE)
Coef(fit)
Run the code above in your browser using DataLab