Update R file and add image