Added plot5.R and plot6.R
Fixed double <- typing mistake