A couple R scripts for survey data munging