Just by re-examining my question I found the answer !

 
segments(3, template[3], 3,slope*subSeries[3],  col= "orange",lwd=2)I corrected the subSeries Points as they appear on the graph withslope*subSeries[3].thank youLloyd L
	[[alternative HTML version deleted]]

