Small changes to R script used to test volume calcs