R Under development (unstable) (2024-07-18 r86905 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.

> #'
> #'   undocumented functions in spatstat.gui
> #'
> 
> require(spatstat.gui)
Loading required package: spatstat.gui
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: spatstat.explore
Loading required package: nlme
spatstat.explore 3.3-1
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' 

Loading required package: rpanel
Loading required package: tcltk
Package `rpanel', version 1.1-5: type help(rpanel) for summary information
> local({
+ 
+   ## infrastructure of iplot, istat
+   fakepanel <- list(x=redwood,
+                     xname="redwood",
+                     envel="none",
+                     stat="data",
+                     sigma=0.08,
+                     pcfbw=0.01,
+                     simx=rpoispp(ex=redwood, nsim=39))
+ 
+   a <- do.istat(fakepanel)
+   for(envel in c("none", "pointwise", "simultaneous")) {
+     fakepanel$envel <- envel
+     for(stat in c("density",
+                   "Kest", "Lest", "pcf",
+                   "Kinhom", "Linhom", "Fest", "Gest", "Jest")) {
+       fakepanel$stat <- stat
+       a <- do.istat(fakepanel)
+     }
+   }
+ 
+ })
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 39 point patterns from list  ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 
39.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
Extracting 38 point patterns from list (19 to estimate the mean and 19 to 
calculate envelopes) ...
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 
38.

Done.
> 
> 
> 
> proc.time()
   user  system elapsed 
   5.42    0.48    5.89