Create countsOverDuration.R