Reduce computation time in examples

Author: baddstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.linnet
-Version: 3.3-2.025
-Date: 2025-11-25
+Version: 3.3-2.026
+Date: 2025-11-26
 Title: Linear Networks Functionality of the 'spatstat' Family
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),
@@ -25,7 +25,7 @@ Authors@R: c(person("Adrian", "Baddeley",
 	     person("Ottmar", "Cronie",
 	            role = "ctb"))
 Maintainer: Adrian Baddeley <[email protected]>
-Depends: R (>= 3.5.0), stats, graphics, grDevices, methods, utils, spatstat.data (>= 3.1-9), spatstat.univar (>= 3.1-5), spatstat.geom (>= 3.6-1), spatstat.random (>= 3.4-3), spatstat.explore (>= 3.6-0), spatstat.model (>= 3.4-2.023)
+Depends: R (>= 3.5.0), stats, graphics, grDevices, methods, utils, spatstat.data (>= 3.1-9), spatstat.univar (>= 3.1-5), spatstat.geom (>= 3.6-1), spatstat.random (>= 3.4-3), spatstat.explore (>= 3.6-0), spatstat.model (>= 3.4-2.026)
 Imports: Matrix, spatstat.utils (>= 3.1-5), spatstat.sparse (>= 3.1)
 Suggests: goftest, locfit, spatstat (>= 3.4)
 Description: Defines types of spatial data on a linear network

NEWS

@@ -1,5 +1,5 @@
 
-        CHANGES IN spatstat.linnet VERSION 3.3-2.025
+        CHANGES IN spatstat.linnet VERSION 3.3-2.026
 
 OVERVIEW
 

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-25" "3.3-2.025" 158 363 0 14737 3270
+"2025-11-26" "3.3-2.026" 158 363 0 14737 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-25" "3.3-2.025" 158 363 0 14737 3270
+"2025-11-26" "3.3-2.026" 158 363 0 14737 3270

man/qqplot.lppm.Rd

@@ -252,12 +252,16 @@
  \code{\link{lppm}}
 }
 \examples{
-    X <- unmark(chicago)
-    if(interactive()) X <- X[c(FALSE,TRUE)]
-
-    fit <- lppm(X ~ x + y)
+    if(online <- interactive()) {
+      X <- unmark(chicago)
+      fit <- lppm(X ~ x + y)
+      ns <- 100
+    } else {
+      X <- runiflpp(20, simplenet)
+      fit <- lppm(X ~ y)
+      ns <- 4
+    }
 
-    ns <- if(interactive()) 100 else 4
     qqplot.lppm(fit, nsim=ns)
     qqplot.lppm(fit, nsim=ns, type="pearson")