generating response curves

Hello 
does anyone know how to visualize a response curve based on a
regression model with lines rather than dots. Having a large number of
parameters the following formula is to time consuming. Perhaps a built
in function exists to speed up the process.

Model1<-a~b
#Setting the scale extent
min(area)
max(area)
avals<-seq(0,10,.1)
# generating the plot
plot(area,incidence, las=1)
lines(avals,predict(model4,list(area=avals),type="response"))

Thanks in advance
Christian