Javascript Count Function In R