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]]
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.