combined the different calcuation options and drawing options into one R script
updated text