Fix spelling error.
R source and PNG output for plot 4