Added audit.R script