R Under development (unstable) (2024-08-19 r87028 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.explore
> #'   Obtain environment variable controlling tests.
> #'
> #'   $Revision: 1.5 $ $Date: 2020/04/30 05:31:37 $
> 
> require(spatstat.explore)
Loading required package: spatstat.explore
Loading required package: spatstat.data
Loading required package: spatstat.univar
spatstat.univar 3.0-0
Loading required package: spatstat.geom
spatstat.geom 3.3-2
Loading required package: spatstat.random
spatstat.random 3.3-1
Loading required package: nlme
spatstat.explore 3.3-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/nnstat.R
> #
> # Check code that uses nndist/nnwhich
> #
> # nnorient()
> # stienen()
> #
> #   $Revision: 1.1 $  $Date: 2020/12/04 03:45:44 $
> #
> 
> 
> local({
+   if(FULLTEST) {
+     #' test nnorient
+     nnorient(cells, domain=erosion(Window(cells), 0.1))
+     #' degenerate case
+     X <- cells[nndist(cells) > bdist.points(cells)]
+     f <- nnorient(X)
+     #' nnclean
+     A <- nnclean(shapley, k=17, edge.correct=TRUE)
+     B <- nnclean(runifpoint3(300), 3)
+     #' stienen set
+     #' bug when disc radius is zero
+     Y <- unmark(humberside)[40:100] # contains duplicated points
+     stienen(Y)
+     Z <- stienenSet(Y)
+     #' other cases
+     U <- stienen(cells[1])
+     V <- stienenSet(cells, edge=FALSE)
+   }
+ })
> 
> 
>   
> 
> proc.time()
   user  system elapsed 
   1.56    0.26    1.81