# NOT RUN {
data(soa)
# Look at last 500 observations of SOA data
SOAdata <- sort(soa$size)[length(soa$size)-(0:499)]
# MOM estimator
M <- Moment(SOAdata)
# Large quantile
p <- 10^(-5)
QuantMOM(SOAdata, p=p, gamma=M$gamma, plot=TRUE)
# }
Run the code above in your browser using DataLab