Create count.R