fourfoldplot (PR#769)

Two bugs:

1() a single 2x2 matrix without dimnames won't plot

b<-matrix(c(1,1,1,1),2) 
fourfoldplot(b)

Error in array(x, dim = c(dim(x), 1), dimnames = c(dimnames(x),
list(Strata = NULL))) : 
        length of dimnames must match that of dims

dimnames(b)<-list(c("a","b"),c("c","d"))
fourfoldplot(b)

(2) conf.level breaks if there are zeroes (unless conf.level=0)

b[1,1]<-0
fourfoldplot(b)

Error in if (any(f == 0)) f <- f + 10^(-6) : 
        missing value where logical needed

fourfoldplot(b,conf.level=0)

version

_                           
platform i686-pc-linux-gnu           
arch     i686                        
os       linux-gnu                   
system   i686, linux-gnu             
status   Under development (unstable)
major    1                           
minor    3.0                         
year     2000                        
month    12                          
day      15                          
language R                           


	-thomas


Thomas Lumley			Asst. Professor, Biostatistics
tlumley@u.washington.edu	University of Washington, Seattle


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