# 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