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