Added R script
Filter out non-us users without state