rawy <- rexp(n <- 10000, rate = exp(1))
y <- unique(cummax(rawy)) # Keep only the records
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