Fastest way to plot a function in R

Sometimes you need to see a curve to understand a function better.

eq = function(x) {x*x}; x = (1:1000); y=eq(x); plot(x,y)