From kuensch@stat.math.ethz.ch  Fri Apr  6 15:21:29 2001
From: kuensch@stat.math.ethz.ch (kuensch@stat.math.ethz.ch)
Date: Fri, 6 Apr 2001 16:21:29 +0200 (MET DST)
Subject: [Rd] bug in contour() ? (PR#897)
Message-ID: <200104061421.QAA26081@pubhealth.ku.dk>

The following example just "hangs", i.e.
the final contour() does not terminate.

x <- pi*(0.5+((-13):12))/36
w <- 0.377*cos(2*x)*sqrt(abs(cos(2*x)))
v <- c(rep(-1.47,13),rep(1.722,13))*abs(sin(x))^1.5
cr  <- outer(w,w)+outer(v,v)
s <- sqrt(diag(cr))
cr <- cr/outer(s,s)
contour(cr[1:26,26:1],levels=seq(-1,1,0.1),axes=T)




--please do not edit the information below--

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = 
 major = 1
 minor = 2.2
 year = 2001
 month = 02
 day = 26
 language = R

Search Path:
 .GlobalEnv, package:ctest, package:SfS, Autoloads, package:base

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


[Rd] bug in contour() ? (PR#897)
kuensch@stat.math.ethz.ch