x11() x <- seq(-6, 10, by=0.25) # c(-6:10) y <- x*x*x/8 - 9*x -15 x11() plot(x, y, main="use main for title" , xlab="use xlab for the x label", ylab="use ylab for the x label", xlim=c(-8,12) , ylim=c(-45,15) , ) z <- locator(1) # wait for mouse click or enter pressed