Вычисление процентного коэффициента из данных опроса потребителей финансов

Question

Я знаю, что есть пакет под названием survey, который делает подобные вещи. Я не знаю, есть ли какой-либо код или способ вычисления отношения процентилей в R.

То, что я хотел бы получить, - это относительная чистая стоимость, удерживаемая топ-х% домохозяйств. Так будет соотношение:

• (Общее богатство домохозяйства с верхним x процентилем (от 0,99 до максимума) / (общее богатство в экономике) *

Я нашел svrqsr в пакете survey, но это дает мне относительную долю по сравнению с домохозяйствами с более низкими 20 процентилями.

Любое предложение или код ссылки, которые я могу использовать?

Answer 1

следуйте инструкциям на http://asdfree.com/survey-of-consumer-finances-scf.html, пока не доберетесь до

library(convey)
scf_design$designs <- lapply( scf_design$designs , convey_prep )

затем используйте

scf_MIcombine( with( scf_design , svyqsr( ~ networth , alpha1 = 0.01 ) ) )

Answer 2

Как сказал @camille, quantile может дать вам ваш порог (в вашем случае, собственный капитал 99-процентного домохозяйства). После этого нужно просто суммировать значения, превышающие пороговое значение.

amt<-10^rnorm(1e5,4,1) # Assuming a log normal distribution
amt_99<-amt[amt>quantile(amt,0.99)]  #Top 1%
sum(amt_99)/sum(amt)  # Relative net worth
#Output : [1] 0.4521971