simplify
formating R