R Under development (unstable) (2024-09-04 r87094 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.

> #' tests/alltests.R
> #' Tests for the spatstat.Knet package
> 
> require(spatstat.Knet)
Loading required package: spatstat.Knet
Loading required package: spatstat.data
Loading required package: spatstat.sparse
Loading required package: Matrix
Loading required package: abind
Loading required package: tensor
Loading required package: spatstat.univar
spatstat.univar 3.0-1
Loading required package: spatstat.geom
spatstat.geom 3.3-2
Loading required package: spatstat.random
spatstat.random 3.3-1
Loading required package: spatstat.explore
Loading required package: nlme
spatstat.explore 3.3-2
Loading required package: spatstat.model
Loading required package: rpart
spatstat.model 3.3-1
Loading required package: spatstat.linnet
spatstat.linnet 3.2-1
Loading required package: spatstat

spatstat 3.1-1 
For an introduction to spatstat, type 'beginner' 

spatstat.Knet 3.1-2
> local({
+   #' network data not ordered (from < to)
+   L <- simplenet
+   a <- L$from[c(FALSE,TRUE)]
+   L$from[c(FALSE,TRUE)] <- L$to[c(FALSE,TRUE)]
+   L$to[c(FALSE,TRUE)] <- a
+   X <- runiflpp(20, L)
+   K <- Knet(X)
+   if(all(K$est == 0)) stop("Knet failed, when network data are not in order")
+ })
Warning message:
Edge indices did not agree with segment endpoints; lines were rebuilt from edge indices 
> 
> proc.time()
   user  system elapsed 
   1.82    0.46    2.31