Relative Index of Inequality (RII) calculation with brm model

How can i get the the relative index of inequality (RII) and thé SII of an brm Bernoulli model ?

Or is there others fuctions who return the values of RII ans SII for an brm Bernoulli model ?