edits with robin
edits to R script for images