# Dr. R's favorite New Zealand Volcano!
data( volcano)
M<- nrow( volcano)
N<- ncol( volcano)
x<- seq( 0,1,,M)
y<- seq( 0,1,,N)
drape.plot( x,y,volcano, col=terrain.colors(128))-> pm
max( volcano)-> zsummit
xsummit<- x[ row( volcano)[volcano==zsummit]]
ysummit<- y[ col( volcano)[volcano==zsummit]]
pushpin( xsummit,ysummit,zsummit,pm, text="Summit")
Run the code above in your browser using DataLab