Added R script for wrangling Americans for the Arts data