search for: tp15828255p15828255

...it(bif,stage) sabund<-split(abund,stage) points(sabund[[2]],sbif[[2]],pch=16, col="red") for(i in 1:2) abline(lm(sabund[[i]]~sbif[[i]])) Thanks in advance Yvonne Fabian -- View this message in context: http://www.nabble.com/Plot-with-two-different-coloured-regression-lines-and-legend-tp15828255p15828255.html Sent from the R help mailing list archive at Nabble.com.