How To Count In R