Renamed an argument

Author: baddstats

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: spatstat.linnet
-Version: 3.3-2.029
+Version: 3.3-2.030
 Date: 2025-11-27
 Title: Linear Networks Functionality of the 'spatstat' Family
 Authors@R: c(person("Adrian", "Baddeley", 

NEWS

@@ -1,5 +1,5 @@
 
-        CHANGES IN spatstat.linnet VERSION 3.3-2.029
+        CHANGES IN spatstat.linnet VERSION 3.3-2.030
 
 OVERVIEW
 

R/lintessmakers.R

@@ -4,7 +4,7 @@
 #'   Creation of linear tessellations
 #'   and intersections between lintess objects
 #'
-#'   $Revision: 1.12 $  $Date: 2025/11/27 06:32:02 $
+#'   $Revision: 1.13 $  $Date: 2025/11/27 07:50:47 $
 #' 
 
 divide.linnet <- local({
@@ -148,12 +148,12 @@ intersect.lintess <- function(X, Y) {
   return(out)
 }
 
-traceTessLinnet <- function(A, L, reltol) {
+traceTessLinnet <- function(A, L, epsfrac) {
   ## linear tessellation on network L induced by 2D tessellation A
   stopifnot(is.tess(A))
   stopifnot(is.linnet(L))
-  ## relative tolerance for close points
-  if(missing(reltol)) reltol <- .Machine$double.eps
+  ## relative threshold defining whether two points are different
+  if(missing(epsfrac)) epsfrac <- .Machine$double.eps
   ## extract tiles as polygons
   til <- solapply(tiles(A), as.polygonal)
   ntil <- length(til)
@@ -175,10 +175,10 @@ traceTessLinnet <- function(A, L, reltol) {
   ## determine crossing points
   xing2D <- unique(crossing.psp(edg, lin))
   xingL <- as.lpp(xing2D, L=L)
-  if(reltol > 0 && npoints(xingL) >= 2) {
+  if(epsfrac > 0 && npoints(xingL) >= 2) {
     ## remove very close pairs of points that lie on the same segment
     ## (which usually arise from numerical error)
-    thresh <- reltol * diameter(Frame(A))
+    thresh <- epsfrac * diameter(Frame(A))
     if(minnndist(xing2D) <= thresh) {
       ## find close pairs in 2D
       cl <- closepairs(xing2D, thresh, twice=FALSE)

inst/doc/packagesizes.txt

@@ -41,4 +41,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-07-24" "3.3-0" 150 328 0 13326 3270
 "2025-07-24" "3.3-1" 150 328 0 13326 3270
 "2025-09-24" "3.3-2" 150 328 0 13356 3270
-"2025-11-27" "3.3-2.029" 158 366 0 14805 3270
+"2025-11-27" "3.3-2.030" 158 366 0 14805 3270

inst/info/packagesizes.txt

@@ -41,4 +41,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-07-24" "3.3-0" 150 328 0 13326 3270
 "2025-07-24" "3.3-1" 150 328 0 13326 3270
 "2025-09-24" "3.3-2" 150 328 0 13356 3270
-"2025-11-27" "3.3-2.029" 158 366 0 14805 3270
+"2025-11-27" "3.3-2.030" 158 366 0 14805 3270

man/spatstat.linnet-internal.Rd

@@ -226,7 +226,7 @@ qkdeEngine(x, sigma, \dots, at, what,
 %NAMESPACE S3method("Summary", "linimlist")
 LinimOp(e1, e2, op)
 LinimListOp(e1, e2, op)
-traceTessLinnet(A, L, reltol)
+traceTessLinnet(A, L, epsfrac)
 
 }
 \details{