An easy way to RFM analysis by R