data(eusilc)
# equivalized disposable income is equal for each household
# member, therefore only one household member is taken
eusilc <- eusilc[!duplicated(eusilc$db030),]
# estimate threshold
ts <- paretoScale(eusilc$eqIncome, w = eusilc$db090)
# using number of observations in tail
thetaQQ(eusilc$eqIncome, k = ts$k)
# using threshold
thetaQQ(eusilc$eqIncome, x0 = ts$x0)
Run the code above in your browser using DataLab