R Under development (unstable) (2023-10-23 r85401 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 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.geom
spatstat.geom 3.2-7
Loading required package: spatstat.random
spatstat.random 3.2-1
Loading required package: spatstat.explore
Loading required package: nlme
spatstat.explore 3.2-5
Loading required package: spatstat.model
Loading required package: rpart
spatstat.model 3.2-8
spatstat.linnet 3.1-2
> 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)
+   })
+ }
> 
> #
> #  tests/undoc.R
> #
> #   $Revision: 1.16 $   $Date: 2020/11/02 07:06:49 $
> #
> #  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.8 $ $Date: 2022/10/23 01:19:19 $
> 
> 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.26    0.25    1.50