Speed improvements; fix .Rbuildignore

Author: baddstats

.Rbuildignore

@@ -1,7 +1,8 @@
 README.md
 ChangeLog.txt
-.git
-.gitignore
+\.git$
+\.github$
+\.gitignore$
 ^.*\.Rproj$
 ^\.Rproj\.user$
 ^\.travis\.yml$

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.sparse
-Version: 3.0-3
-Date: 2023-10-24
+Version: 3.0-3.001
+Date: 2024-06-15
 Title: Sparse Three-Dimensional Arrays and Linear Algebra Utilities
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),

NEWS

@@ -1,4 +1,11 @@
 
+        CHANGES IN spatstat.sparse VERSION 3.0-3.001
+
+OVERVIEW
+
+    o Minor improvements.
+
+
         CHANGES IN spatstat.sparse VERSION 3.0-3
 
 OVERVIEW

R/matrixpower.R

@@ -4,7 +4,7 @@
 #'   Copyright (c) Adrian Baddeley, Ege Rubak and Rolf Turner 2016-2022
 #'   GNU Public Licence >= 2.0
 #'
-#'   $Revision: 1.8 $  $Date: 2022/04/18 03:17:30 $
+#'   $Revision: 1.9 $  $Date: 2024/06/09 00:01:09 $
 #' 
 
 matrixsqrt <- function(x, complexOK=TRUE) {
@@ -13,7 +13,7 @@ matrixsqrt <- function(x, complexOK=TRUE) {
     stop("x must be a matrix")
   if(!is.matrix(x))
     x <- as.matrix(x)
-  check.nmatrix(x) ## requires square matrix
+  check.nmatrix(x, mname="x") ## requires square matrix
   if(missing(complexOK) && is.complex(x)) complexOK <- TRUE
   if(!complexOK) stopifnot(is.numeric(x)) else
                  stopifnot(is.numeric(x) || is.complex(x))
@@ -45,7 +45,7 @@ matrixinvsqrt <- function(x, complexOK=TRUE) {
     stop("x must be a matrix")
   if(!is.matrix(x))
     x <- as.matrix(x)
-  check.nmatrix(x) ## requires square matrix
+  check.nmatrix(x, mname="x") ## requires square matrix
   if(missing(complexOK) && is.complex(x)) complexOK <- TRUE
   if(!complexOK) stopifnot(is.numeric(x)) else
                  stopifnot(is.numeric(x) || is.complex(x))
@@ -79,7 +79,7 @@ matrixpower <- function(x, power, complexOK=TRUE) {
     stop("x must be a matrix")
   if(!is.matrix(x))
     x <- as.matrix(x)
-  check.nmatrix(x) ## requires square matrix
+  check.nmatrix(x, mname="x") ## requires square matrix
   if(power == 0) {
     ## power = 0 yields identity matrix even if x is singular
     y <- diag(nrow(x))

inst/doc/packagesizes.txt

@@ -18,3 +18,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2022-10-19" "3.0-0" 15 48 0 2092 740
 "2023-03-12" "3.0-1" 15 48 0 2092 740
 "2023-10-24" "3.0-3" 15 48 0 2092 740
+"2024-06-15" "3.0-3.001" 15 48 0 2092 740