Running 'testsAtoC.R' [2s]
  Running 'testsD.R' [9s]
  Running 'testsEtoF.R' [8s]
  Running 'testsGtoJ.R' [159s]
  Running 'testsK.R' [2s]
  Running 'testsL.R' [139s]
  Running 'testsM.R' [1s]
  Running 'testsNtoO.R' [117s]
  Running 'testsP1.R' [82s]
  Running 'testsP2.R' [112s]
  Running 'testsQ.R' [1s]
  Running 'testsR1.R' [106s]
  Running 'testsR2.R' [1s]
  Running 'testsS.R' [5s]
  Running 'testsT.R' [1s]
  Running 'testsUtoZ.R' [1s]
Running the tests in 'tests/testsGtoJ.R' failed.
Complete output:
  > #'
  > #'   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.geom
  spatstat.geom 3.2-9
  Loading required package: spatstat.random
  spatstat.random 3.2-3
  Loading required package: nlme
  spatstat.explore 3.2-7
  > 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/gcc323.R
  > ##
  > ##    $Revision: 1.3 $  $Date: 2020/04/28 12:58:26 $
  > ##
  > if(ALWAYS) { # depends on hardware
  + local({
  +   # critical R values that provoke GCC bug #323
  +   a <- marktable(lansing, R=0.25)
  +   a <- marktable(lansing, R=0.21)
  +   a <- marktable(lansing, R=0.20)
  +   a <- marktable(lansing, R=0.10)
  + })
  + }
  > #'     tests/hypotests.R
  > #'     Hypothesis tests
  > #' 
  > #'  $Revision: 1.10 $ $Date: 2023/07/17 07:30:48 $
  > 
  > if(FULLTEST) {
  + local({
  + 
  +   hopskel.test(redwood, method="MonteCarlo", nsim=5)
  +   
  +   #' quadrat test - spatial methods
  +   a <- quadrat.test(redwood, 3)
  +   domain(a)
  +   shift(a, c(1,1))
  + 
  +   #' quadrat test - correctness of mapping from table to quadrats
  +   Q2 <- quadratcount(humberside, 2, 3)
  +   T2 <- suppressWarnings(quadrat.test(Q2))
  +   R2 <- cbind(as.numeric(t(Q2)), round(10 * residuals(T2)))
  +   R2correct <- cbind(c(2, 20, 13, 11, 34, 123),
  +                      c(-46, -12, -62, -41, 50, 134))
  +   if(!all(R2 == R2correct))
  +     stop("Incorrect count-residual map for quadrat.test(2,3)")
  + 
  +   Q5 <- quadratcount(humberside, 5, 3)
  +   T5 <- suppressWarnings(quadrat.test(Q5))
  +   R5 <- cbind(as.numeric(t(Q5)), round(10 * residuals(T5)))
  +   R5correct <- cbind(
  +     c(  0,   0,   3, 19,   3,   2,  14,   5,  0,   2, 117, 35,   3),
  +     c(-19, -33, -42, 16, -37, -49, -28, -35, -5, -21, 295, 40, -32))
  +   if(!all(R5 == R5correct))
  +     stop("Incorrect count-residual map for quadrat.test(5,3)")
  +     
  +   #' cases of studpermu.test
  +   #' X is a hyperframe
  +   b <- studpermu.test(pyramidal, nperm=9)
  +   b <- studpermu.test(pyramidal, nperm=9, use.Tbar=TRUE)
  +   #' X is a list of lists of ppp
  +   ZZ <- split(pyramidal$Neurons, pyramidal$group)
  +   bb <- studpermu.test(ZZ, nperm=9)
  + 
  +   #' Issue #115
  +   X <- runifpoint(50, nsim = 3)
  +   Y <- runifpoint(3000, nsim = 3)
  +   h <- hyperframe(ppp = c(X, Y), group = rep(1:2, 3))
  +   studpermu.test(h, ppp ~ group)
  + 
  +   #' scan test
  +   Z <- scanmeasure(cells, 0.1, method="fft")
  +   rr <- c(0.05, 1)
  +   scan.test(amacrine, rr, nsim=5,
  +             method="binomial", alternative="less")
  + })
  + }
  > #
  > #  tests/imageops.R
  > #
  > #   $Revision: 1.43 $   $Date: 2023/08/29 01:03:59 $
  > #
  > 
  > 
  > if(FULLTEST) {
  +   local({
  +     #' case of "[.im" and "[<-.im" where index is an ssf
  +     d <- distmap(cells, dimyx=32)
  +     Empty <- cells[FALSE]
  +     EmptyFun <- ssf(Empty, numeric(0))
  +     ff <- d[EmptyFun]
  +     d[EmptyFun] <- 42
  + 
  +     #' Smooth.im -> blur.im with sigma=NULL
  +     Z <- as.im(function(x,y) { x - y }, letterR, dimyx=32)
  +     ZS <- Smooth(Z)
  + 
  +     #' deprecated -> im.apply(DA, which.max)
  +     Z <- which.max.im(bei.extra) 
  + 
  +     #' rotmean
  +     U <- rotmean(Z, origin="midpoint", result="im", padzero=FALSE)
  +     
  +     #' cases of distcdf
  +     distcdf(cells[1:5])
  +     distcdf(W=cells[1:5], dW=1:5)
  +     distcdf(W=Window(cells), V=cells[1:5])
  +     distcdf(W=Window(cells), V=cells[1:5], dV=1:5)
  +   })
  + }
  > 
  > 
  > proc.time()
     user  system elapsed 
     2.28    0.23    2.51 
Running the tests in 'tests/testsL.R' failed.
Complete output:
  > #'
  > #'   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.geom
  spatstat.geom 3.2-9
  Loading required package: spatstat.random
  spatstat.random 3.2-3
  Loading required package: nlme
  spatstat.explore 3.2-7
  > 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/localpcf.R
  > ##
  > ## temporary test file for localpcfmatrix
  > ##  $Revision: 1.2 $  $Date: 2015/12/29 08:54:49 $
  > 
  > local({
  +   a <- localpcfmatrix(redwood)
  +   if(FULLTEST) {
  +     a
  +     plot(a)
  +     a[, 3:5]
  +   }
  + })
  > 
  > proc.time()
     user  system elapsed 
     1.46    0.12    1.57 
Running the tests in 'tests/testsNtoO.R' failed.
Complete output:
  > #'
  > #'   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.geom
  spatstat.geom 3.2-9
  Loading required package: spatstat.random
  spatstat.random 3.2-3
  Loading required package: nlme
  spatstat.explore 3.2-7
  > 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/NAinCov.R
  > #
  > # Testing the response to the presence of NA's in covariates
  > #
  > # $Revision: 1.9 $ $Date: 2023/11/05 01:45:36 $
  > 
  > if(FULLTEST) {
  + local({
  +   #' quantile.ewcdf
  +   f <- ewcdf(runif(100), runif(100))
  +   qf <- quantile(f, probs=c(0.1, NA, 0.8))
  +   #' quantile.density
  +   f <- density(runif(100))
  +   qf <- quantile(f, probs=c(0.1, NA, 0.8))
  + })
  + }
  > #
  > #    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.26    0.12    1.37 
Running the tests in 'tests/testsP1.R' failed.
Complete output:
  > #'
  > #'   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.geom
  spatstat.geom 3.2-9
  Loading required package: spatstat.random
  spatstat.random 3.2-3
  Loading required package: nlme
  spatstat.explore 3.2-7
  > 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/pixelgripes.R
  > ##     Problems related to pixellation of windows
  > ##
  > ## $Revision: 1.8 $ $Date: 2022/10/23 06:21:10 $
  > 
  > if(FULLTEST) {
  +   local({
  +     
  + 
  + })
  + }
  > 
  > proc.time()
     user  system elapsed 
     1.03    0.12    1.14 
Running the tests in 'tests/testsP2.R' failed.
Complete output:
  > #'
  > #'   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.geom
  spatstat.geom 3.2-9
  Loading required package: spatstat.random
  spatstat.random 3.2-3
  Loading required package: nlme
  spatstat.explore 3.2-7
  > 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 -----------
  > 
  > proc.time()
     user  system elapsed 
     0.96    0.15    1.12 
Running the tests in 'tests/testsR1.R' failed.
Complete output:
  > #'
  > #'   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.geom
  spatstat.geom 3.2-9
  Loading required package: spatstat.random
  spatstat.random 3.2-3
  Loading required package: nlme
  spatstat.explore 3.2-7
  > 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/rhohat.R
  > ##
  > ## Test all combinations of options for rhohatCalc
  > ##
  > ## $Revision: 1.6 $ $Date: 2022/05/22 08:03:48 $
  > 
  > local({
  +   if(FULLTEST) {
  +     X <-  rpoispp(function(x,y){exp(3+3*x)})
  +     Z <- as.im(function(x,y) { x }, Window(X))
  +     f <- funxy(function(x,y) { y + 1 }, Window(X))
  +     
  +     ## rhohat.ppp
  +     ## done in example(rhohat):
  +     ## rhoA <- rhohat(X, "x")
  +     ## rhoB <- rhohat(X, "x", method="reweight")
  +     ## rhoC <- rhohat(X, "x", method="transform")
  +     ## alternative smoother (if package locfit available)
  +     rhoA <- rhohat(X, "x", smoother="local")
  +     rhoB <- rhohat(X, "x", smoother="local", method="reweight")
  +     rhoC <- rhohat(X, "x", smoother="local", method="transform")
  + 
  +     #' code blocks
  +     rhoD <- rhohat(X, "y", positiveCI=TRUE)
  +     rhoE <- rhohat(X, Z,   positiveCI=TRUE)
  +     #' weights 
  +     rhoF <- rhohat(X, Z,   weights=f(X))
  +     rhoG <- rhohat(X, Z,   weights=f)
  +     rhoH <- rhohat(X, Z,   weights=as.im(f))
  +     
  +     lam <- as.im(function(x,y) {exp(3+2*x)}, W=Window(Z))
  + 
  +     ## Baseline
  +     rhoAb <- rhohat(X, "x", baseline=lam)
  +     rhoBb <- rhohat(X, "x", method="reweight", baseline=lam)
  +     rhoCb <- rhohat(X, "x", method="transform", baseline=lam)
  + 
  +     ## Horvitz-Thompson
  +     rhoAH <- rhohat(X, "x", horvitz=TRUE) 
  +     rhoBH <- rhohat(X, "x", method="reweight", horvitz=TRUE)
  +     rhoCH <- rhohat(X, "x", method="transform", horvitz=TRUE)
  + 
  +     ## class support
  +     plot(rhoA)
  +     plot(rhoA, rho ~ x, shade=NULL)
  +     plot(rhoA, log(rho) ~ x, shade=NULL)
  +     plot(rhoA, log(.) ~ x)
  + 
  +     ## rho2hat
  +     r2xy <- rho2hat(X, "x", "y")
  +     r2xyw <- rho2hat(X, "x", "y", method="reweight")
  +     print(r2xyw)
  +     plot(r2xy, do.points=TRUE)
  +     xcoord <- function(x,y) x
  +     ycoord <- function(x,y) y
  +     xim <- as.im(xcoord, W=Window(X))
  +     r2fi <- rho2hat(X, ycoord, xim)
  +     r2if <- rho2hat(X, xim, ycoord)
  +   }
  + })
  > 
  > proc.time()
     user  system elapsed 
     1.35    0.20    1.54