Bug fix in inradius.owin

spatstat · Feb 16, 2021 · aa8f265 · aa8f265
1 parent 3a5af85
commit aa8f265
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 4 deletions.
diff --git a/NEWS b/NEWS
@@ -1,4 +1,20 @@
 
+        CHANGES IN spatstat.geom VERSION 1.65-6
+
+OVERVIEW
+
+    o We thank Jean-Francois Coeurjolly for contributions.
+
+    o Bug fix in 'inradius'
+
+BUG FIXES
+
+    o inradius
+    Coded incorrectly for rectangular windows.
+    [Spotted by Jean-Francois Coeurjolly]
+    Fixed.
+
+
         CHANGES IN spatstat.geom VERSION 1.65-5
 
 OVERVIEW

diff --git a/R/wingeom.R b/R/wingeom.R
@@ -1,7 +1,7 @@
 #
 #	wingeom.R	Various geometrical computations in windows
 #
-#	$Revision: 4.137 $	$Date: 2021/01/07 01:15:08 $
+#	$Revision: 4.138 $	$Date: 2021/02/16 02:25:19 $
 #
 
 volume.owin <- function(x) { area.owin(x) }
@@ -929,7 +929,7 @@ diameter.owin <- function(x) {
 
 inradius <- function(W) {
   stopifnot(is.owin(W))
-  if(W$type == "rectangle") diameter(W)/2 else max(distmap(W, invert=TRUE))
+  if(W$type == "rectangle") { shortside(W)/2 } else max(distmap(W, invert=TRUE))
 }
 
 

diff --git a/inst/CITATION b/inst/CITATION
@@ -8,12 +8,12 @@ citEntry(entry = "Book",
   year         = "2015",
   publisher    = "Chapman and Hall/CRC Press",
   address      = "London",
-  url="http://www.crcpress.com/Spatial-Point-Patterns-Methodology-and-Applications-with-R/Baddeley-Rubak-Turner/9781482210200/",
+  url="https://www.routledge.com/Spatial-Point-Patterns-Methodology-and-Applications-with-R/Baddeley-Rubak-Turner/9781482210200/",
   textVersion  =
   paste("Adrian Baddeley, Ege Rubak, Rolf Turner (2015).",
         "Spatial Point Patterns: Methodology and Applications with R.",
         "London: Chapman and Hall/CRC Press, 2015.",
-        "URL http://www.crcpress.com/Spatial-Point-Patterns-Methodology-and-Applications-with-R/Baddeley-Rubak-Turner/9781482210200/")
+        "URL https://www.routledge.com/Spatial-Point-Patterns-Methodology-and-Applications-with-R/Baddeley-Rubak-Turner/9781482210200/")
 )
 
 citEntry(entry = "Article",