Vector Count Function In Rstudio