stuff<-function(x){x^2}
plot(stuff, -pi, 2*pi)
plot(stuff, -2*pi, 2*pi, ylim=c(-10, 10))