Update Demo.R

Image added.