Remove & rename count.R script