r decrease