Added files

Added .R and an image file