curve
x11() f <- function(x) {x^2} curve (f , -2, 2) # wait for mouse click or enter pressed z <- locator(1)
Index