Count R Function