###################################################
# Load the data set and create distribution object#
###################################################
x = 1:10
m = displ$new(x)
###################################################
# Estimate xmin and pars #
###################################################
est = estimate_xmin(m)
m$setXmin(est)
###################################################
# Bootstrap examples #
###################################################
if (FALSE) {
bootstrap(m, no_of_sims=1, threads=1)
bootstrap_p(m, no_of_sims=1, threads=1)
}
Run the code above in your browser using DataLab