R scripts and images for Assignment final