From Kurt.Hornik@ci.tuwien.ac.at  Thu Apr 17 10:05:11 1997
From: Kurt.Hornik@ci.tuwien.ac.at (Kurt Hornik)
Date: Thu, 17 Apr 1997 11:05:11 +0200
Subject: R-alpha: R-0.50.b6:  bug in graphics demo
Message-ID: <199704170905.LAA14424@aragorn.ci.tuwien.ac.at>

The line
  contour(volcano, x, y, l, col = "yellow", lty = "solid", add = TRUE)
needs to be changed to
  contour(x, y, volcano, col = "yellow", lty = "solid", add = TRUE)

A patch is appended below.

-k

*** demos/graphics/graphics.orig	Thu Apr 17 11:02:39 1997
--- demos/graphics/graphics	Thu Apr 17 11:03:08 1997
*************** plot(numeric(0), numeric(0), NULL,
*** 129,135 ****
  	type="n", ann=FALSE)
  usr <- par("usr")
  rect(usr[1], usr[3], usr[2], usr[4], col="green3")
! contour(volcano, x, y, l, col="yellow", lty="solid", add=TRUE)
  box()
  title("A Topographic Map of Maunga Whau",font=4)
  title(xlab="Meters North", ylab="Meters West", font=3)
--- 129,135 ----
  	type="n", ann=FALSE)
  usr <- par("usr")
  rect(usr[1], usr[3], usr[2], usr[4], col="green3")
! contour(x, y, volcano, col="yellow", lty="solid", add=TRUE)
  box()
  title("A Topographic Map of Maunga Whau",font=4)
  title(xlab="Meters North", ylab="Meters West", font=3)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


R-alpha: R-0.50.b6: bug in graphics demo
Kurt Hornik