search for: newline2

...notice.) plot(density(gdp), main="Probability Distribution\n of 2002 US GDP Forecast",lwd=3, xlim=c(-9,9), ylim=c(0,.3),xlab="Percent Real GDP Growth") par(new=T) newline _ cbind(c(gdp[5000/2],gdp[5000/2]),c(0,.25)) newline1 _ cbind(c(gdp[.05*5000],gdp[.05*5000]),c(0,.15)) newline2 _ cbind(c(gdp[.95*5000],gdp[.95*5000]),c(0,.15)) newline3 _ cbind(c(gdp[.99*5000],gdp[.99*5000]),c(0,.1)) newline4 _ cbind(c(gdp[.01*5000],gdp[.01*5000]),c(0,.1)) lines(newline, lwd=2) lines(newline1) lines(newline2) lines(newline3) lines(newline4) text(gdp[5000/2],.29,"Median\nForecast&quo...