[R] how do I plot a regression curve with the data?

[Ken Ervin]

I have a data set of 6 or so ordered pairs, and I've been able to graph 
them and have decided to use a high-order polynomial regression.  I've 
used the following piece of code:

regression <- function(x,y) {
    x <- c(insert_numbers_here)
    y <- c(insert_other_numbers_here)
    fit <- lm(y ~ x + I(x^2) + I(x^3) + I(x^4) + I(x^5) + I(x^6) + 
I(x^7) + I(x^8) + I(x^9))
    summary(fit)

This gives me the coefficients for the regression very nicely, but I 
would like to plot both the data and the regression curve together.  How 
do I plot that regression curve as a function, and can I put it on the 
same set of axes as my data scatter plot?

Thanks in advance for your help!

-KE