updated Rgraphics reproduction script