initial R for plot 3