Create count.r