R Under development (unstable) (2025-08-21 r88668 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 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.

> library(lgcp)

 Welcome to 'lgcp': Log-Gaussian Cox Process
 B. M. Taylor & T. M. Davies & B. S. Rowlingson & P. J. Diggle.

Type '?lgcp' for details.

Type 'lgcpvignette()' to view the basic package vignette.

Type 'lgcpbayes()' to view the Bayesian package vignette.

Type 'citation("lgcp")' to view the citation for this package.

Please see the lgcp package NEWS file for latest additions, changes and bug fixes.

Note, RandomFields covariance functions are currently unavailable.
> 
> tfuncs <- function(n,f,s=10){
+   x = 1:s; y = x + 2
+ 
+   for(i in 1:n){
+     g = list(x=x,y=y,z=matrix(runif(s*s),s,s))
+     f(g,i)
+   }
+ 
+   return(f)
+   
+ }
> 
> tstt <- function(n,s,seed=1){
+   set.seed(seed)
+ 
+   testList = list(sumsumsq(),keepall(),exceed(c(0.1,0.2,0.3)),minmax())
+ 
+   for(t in testList){
+     cat("testing...\n")
+     print(t)
+     t1 = tfuncs(n,t,s=s)
+     print(getResults(t1))
+   }
+ }
> 
> proc.time()
   user  system elapsed 
   9.07    0.78    9.82