Added first two plot R codes