Update count.R