Update audit.R

Simply adding a crosstab in the script to inspect the data