Added comparison R script and new images