# NOT RUN {
n <- 101
x <- y <- seq(-2, 2, len=n)
z <- matrix(ncol=n, nrow=n)
for(i in seq(along=x))
for(j in seq(along=y))
z[i,j] <- x[i]*y[j]*exp(-x[i]^2 - y[j]^2)
# }
# NOT RUN {
iheatmap(z, x, y)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab