# # TODO Should this file not be under a special # folder named package/lattice? # x <- seq(-1, 1, by=0.1) y <- x options(width = 300) z <- outer(x, y, FUN = function(x, y) { sin(x) * cos(y)}) x11() library(lattice) plot.new() wireframe(z) z <- locator(1) # wait for mouse click or enter pressed