home *** CD-ROM | disk | FTP | other *** search
/ Big Green CD 8 / BGCD_8_Dev.iso / NEXTSTEP / UNIX / Educational / R-0.49-MI / R-0.49-I / demos / graphics / image < prev   
Encoding:
Text File  |  1997-04-13  |  885 b   |  32 lines
  1. data(volcano)
  2. x <- 10*(1:nrow(volcano))
  3. y <- 10*(1:ncol(volcano))
  4.  
  5. # Using Terrain Colors
  6.  
  7. image(x, y, volcano, col=terrain.colors(100),axes=FALSE)
  8. contour(x, y, volcano, levels=seq(90, 200, by=5), add=TRUE, col="brown")
  9. axis(1, at=seq(100, 800, by=100))
  10. axis(2, at=seq(100, 600, by=100))
  11. box()
  12. title(main="Maunga Whau Volcano", font.main=4)
  13.  
  14. # Using Heat Colors
  15.  
  16. image(x, y, volcano, col=heat.colors(100), axes=FALSE)
  17. contour(x, y, volcano, levels=seq(90, 200, by=5), add=TRUE, col="brown")
  18. axis(1, at=seq(100, 800, by=100))
  19. axis(2, at=seq(100, 600, by=100))
  20. box()
  21. title(main="Maunga Whau Volcano", font.main=4)
  22.  
  23. # Using Gray Scale
  24.  
  25. image(x, y, volcano, col=gray(100:200/200), axes=FALSE)
  26. contour(x, y, volcano, levels=seq(90, 200, by=5), add=TRUE, col="black")
  27. axis(1, at=seq(100, 800, by=100))
  28. axis(2, at=seq(100, 600, by=100))
  29. box()
  30. title(main="Maunga Whau Volcano", font.main=4)
  31.  
  32.