updated R script with more ideas. Remember these will need modification