Ready for CRAN

Author: baddstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.sparse
-Version: 3.1-0.011
-Date: 2026-04-27
+Version: 3.2-0
+Date: 2026-05-21
 Title: Sparse Three-Dimensional Arrays and Linear Algebra Utilities
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),
@@ -16,7 +16,7 @@ Authors@R: c(person("Adrian", "Baddeley",
 		    comment=c(ORCID="0000-0002-6675-533X")))
 Maintainer: Adrian Baddeley <Adrian.Baddeley@curtin.edu.au>
 Depends: R (>= 3.5.0), stats, utils, methods, Matrix, abind, tensor
-Imports: spatstat.utils (>= 3.0-5)
+Imports: spatstat.utils (>= 3.2-3)
 Description: Defines sparse three-dimensional arrays
 	     and supports standard operations on them.
 	     The package also includes utility functions for

NEWS

@@ -1,5 +1,5 @@
 
-        CHANGES IN spatstat.sparse VERSION 3.1-0.011
+        CHANGES IN spatstat.sparse VERSION 3.2-0
 
 OVERVIEW
 

inst/doc/packagesizes.txt

@@ -19,4 +19,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2023-03-12" "3.0-1" 15 48 0 2092 740
 "2023-10-24" "3.0-3" 15 48 0 2092 740
 "2024-06-21" "3.1-0" 15 48 0 2092 740
-"2026-04-27" "3.1-0.011" 18 54 0 2344 943
+"2026-05-21" "3.2-0" 18 54 0 2344 943

inst/info/packagesizes.txt

@@ -19,4 +19,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2023-03-12" "3.0-1" 15 48 0 2092 740
 "2023-10-24" "3.0-3" 15 48 0 2092 740
 "2024-06-21" "3.1-0" 15 48 0 2092 740
-"2026-04-27" "3.1-0.011" 18 54 0 2344 943
+"2026-05-21" "3.2-0" 18 54 0 2344 943

tests/sparse3Darrays.R

@@ -5,7 +5,7 @@ require(spatstat.sparse)
 ALWAYS <- FULLTEST <- TRUE
 #'    tests/sparse3Darrays.R
 #'  Basic tests of code in sparse3Darray.R and sparsecommon.R
-#'  $Revision: 1.33 $ $Date: 2026/04/27 06:49:58 $
+#'  $Revision: 1.34 $ $Date: 2026/05/06 03:38:51 $
 
 if(!exists("ALWAYS")) ALWAYS <- TRUE
 if(!exists("FULLTEST")) FULLTEST <- ALWAYS
@@ -376,6 +376,18 @@ local({
   A <- array(runif(75) * (runif(75) < 0.7), dim=c(3,5,5))
   M <- as.sparse3Darray(A)
   M[rep(1,3), c(1,1,2), rep(2, 3)]
+
+  ## and again using a fixed mwe
+  Afull <- array(1:50, dim=c(2,5,5))
+  Asparse <- as.sparse3Darray(Afull)
+  Mfull <- abs(.col(c(5,5)) - .row(c(5,5)))
+  Msparse  <- as(as(Mfull, "symmetricMatrix"), "sparseMatrix")
+  Rfull <- sumsymouter(Afull, Mfull)
+  Rsparse <- sumsymouterSparse(Asparse, Msparse)
+  if(!all(Rsparse==Rfull))
+    stop(paste("sumsymouter(x, w): sparse and non-sparse algorithms disagree",
+               "when w is symmetric"))
+
 })
 
 }