add simple R plot to the code