Piketty in R