Added the read data function call to plot3.R and plot4.R