A explicação do script a seguir está no artigo R na Prática – Parte 29.

require(grDevices); require(graphics)
#setwd("C:\\geoStats\\figuras\\chap3")
#jpeg("Fig3_19.jpeg",width=5,height=5,
#units="in",res=300)
filled.contour(volcano, 
color.palette = terrain.colors, asp = 1)
#dev.off()