R Under development (unstable) (2026-01-30 r89357 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> #'
> #'   Header for all (concatenated) test files
> #'
> #'   Require spatstat.linnet
> #'   Obtain environment variable controlling tests.
> #'
> #'   $Revision: 1.5 $ $Date: 2020/04/30 05:31:37 $
> 
> require(spatstat.linnet)
Loading required package: spatstat.linnet
Loading required package: spatstat.data
Loading required package: spatstat.univar
spatstat.univar 3.1-6
Loading required package: spatstat.geom
spatstat.geom 3.7-0
Loading required package: spatstat.random
spatstat.random 3.4-4
Loading required package: spatstat.explore
Loading required package: nlme
spatstat.explore 3.7-0
Loading required package: spatstat.model
Loading required package: rpart
spatstat.model 3.6-1
spatstat.linnet 3.4-1
> FULLTEST <- (nchar(Sys.getenv("SPATSTAT_TEST", unset="")) > 0)
> ALWAYS   <- TRUE
> cat(paste("--------- Executing",
+           if(FULLTEST) "** ALL **" else "**RESTRICTED** subset of",
+           "test code -----------\n"))
--------- Executing **RESTRICTED** subset of test code -----------
> ##
> ##  tests/segments.R
> ##   Tests of psp class and related code
> ##                      [SEE ALSO: tests/xysegment.R]
> ##
> ##  $Revision: 1.33 $  $Date: 2022/05/22 08:39:47 $
> 
> 
> 
> 
> if(FULLTEST) {
+   local({
+     ## more tests of lppm code
+     fit <- lppm(unmark(chicago) ~ polynom(x,y,2))
+     Z <- predict(fit)
+   })
+ }
> 
> #'
> #'   spatstat.linnet/tests/sidefx.R
> #'
> #' Test whether plot(do.plot=FALSE) has no side effects on graphics system
> #'
> #'  $Revision: 1.6 $  $Date: 2025/12/23 00:24:24 $
> 
> local({
+   if(FULLTEST) {
+     ## test whether a graphics device has been started
+     deviceExists <- function() { length(dev.list()) != 0 }
+     ## check whether executing 'expr' causes creation of a graphics device
+     chk <- function(expr) {
+       ename <- sQuote(deparse(substitute(expr)))
+       if(deviceExists()) {
+         ## try switching off the graphics
+         graphics.off()
+         if(deviceExists()) {
+           ## Dang
+           warning(paste("Cannot check", ename, 
+                         "as a graphics device already exists"),
+                   call.=FALSE)
+           return(FALSE)
+         }
+       }
+       eval(expr)
+       if(deviceExists()) {
+         stop(paste("Evaluating", ename, 
+                    "caused a graphics device to be started"),
+              call.=FALSE)
+       }
+       return(TRUE)
+     }
+     
+ 
+ 
+ 
+ 
+     ## linnet
+     chk(plot(simplenet, do.plot=FALSE))
+     ## lpp
+     chk(plot(spiders, do.plot=FALSE))
+     chk(plot(chicago, do.plot=FALSE))
+     ## lintess
+     chk(plot(as.lintess(simplenet), do.plot=FALSE))
+     ## linfun, linim
+     f <- function(x,y,seg,tp) { x - y }
+     aLinfun <- Y <- linfun(f, simplenet)
+     aLinim  <- Z <- as.linim(Y)
+     chk(plot(aLinfun, do.plot=FALSE))    
+     chk(plot(aLinim, do.plot=FALSE))
+     ## linearquadratcount
+     chk(plot(quadratcount(spiders, nx=3), do.plot=FALSE))
+ 
+   }
+ })
> #
> #  tests/undoc.R
> #
> #   $Revision: 1.17 $   $Date: 2025/07/21 07:35:03 $
> #
> #  Test undocumented hacks, experimental code, etc
> 
> 
> if(FULLTEST) {
+   local({
+     ## linim helper functions
+     df <- pointsAlongNetwork(simplenet, 0.2)
+   })
+ }
>   
> ##
> ##  tests/updateppm.R
> ##
> ##  Check validity of update.ppm
> ##
> ##  $Revision: 1.9 $ $Date: 2025/12/19 00:37:21 $
> 
> local({
+   
+   if(ALWAYS) {
+     ## test update.lppm
+     X <- runiflpp(20, simplenet)
+     fit0 <- lppm(X ~ 1)
+     fit1 <- update(fit0, ~ x)
+     anova(fit0, fit1, test="LR")
+     cat("update.lppm(fit, ~trend) is OK\n")
+     fit2 <- update(fit0, . ~ x)
+     anova(fit0, fit2, test="LR")
+     cat("update.lppm(fit, . ~ trend) is OK\n")
+   }
+ })
update.lppm(fit, ~trend) is OK
update.lppm(fit, . ~ trend) is OK
> ##
> ## tests/xysegment.R
> ##                      [SEE ALSO tests/segments.R]
> ##
> ##    Test weird problems and boundary cases for line segment code
> ##
> ##    $Version$ $Date: 2022/10/23 01:21:09 $ 
> ##
> 
> 
> if(FULLTEST) local({ S <- as.psp(simplenet) })
> 
> 
> proc.time()
   user  system elapsed 
   1.82    0.35    2.17