exportPattern("^[[:alpha:]]+")
importFrom(stringr,str_count)
