[R] graphs

[Mary A. Marion]

Hello,

I am plotting two distributions and want to draw a vertical line at the 
critical point 149.
How can I stop it from going further up than the norm(140,15) curve?

x<-seq(75,225,0.1)
plot(x,dnorm(x,mean=140, sd=15), type='l', col='navy')
abline(v = 149, col = "black")
curve(dnorm(x,mean=150, sd=15),from=75, to=225, col='orange', add=TRUE)

Thank you.

Sincerely,
Mary A. Marion