Create counter.R