Revision 8718b3c4133e9eecaa99e6e95a040fcf22b80c30 authored by Adrian Baddeley on 01 February 2007, 16:09:56 UTC, committed by cran-robot on 01 February 2007, 16:09:56 UTC
1 parent 79b88fd
rescue.rectangle.R
#
# rescue.rectangle.R
#
# $Revision: 1.4 $ $Date: 2006/11/17 23:18:33 $
#
rescue.rectangle <- function(W) {
verifyclass(W, "owin")
if(W$type == "mask" && all(W$m))
return(owin(W$xrange, W$yrange, units=units(W)))
if(W$type == "polygonal" && length(W$bdry) == 1) {
x <- W$bdry[[1]]$x
y <- W$bdry[[1]]$y
if(length(x) == 4 && length(y) == 4) {
# could be a rectangle
veryunique <- function(z) {
uz <- sort(unique(z))
close <- (diff(uz) < 2 * .Machine$double.eps)
uz <- uz[c(TRUE, !close)]
return(uz)
}
ux <- veryunique(x)
uy <- veryunique(y)
if(length(ux) == 2 && length(uy) == 2)
return(owin(ux,uy, units=units(W)))
}
}
return(W)
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...