Hi folks

Run;
> ToothGrowth
> attach(ToothGrowth)
> toothgrowth=lm(len~dose)

adding abline:
> abline(toothgrowth)

I got it done adding single abline.


How to add more ablines on the same diagram?

I found following thread, applying "mapply" command;

Plotting multiple ablines
http://www.mail-archive.com/r-help@r-project.org/msg51543.html

mapply(abline,
    (converge$kY + tan((90-converge$kT) * pi / 180)*(-converge$kX)),
    tan((90-converge$kT) * pi / 180))

But couldn't resolve it.  Substituting "converge" with toothgrowth" didn't work? 
I also look at ?mapply.  Pls help.

I don't have parameter of other ablines to be added.  This is only a learning 
example.  Any data can fit to them.

TIA

B.R.
Stephen L


	[[alternative HTML version deleted]]

