Added more tests

Author: baddstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.model
-Version: 3.3-2.003
-Date: 2024-09-30
+Version: 3.3-2.004
+Date: 2024-10-01
 Title: Parametric Statistical Modelling and Inference for the 'spatstat' Family
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),

NEWS

@@ -1,5 +1,5 @@
 
-        CHANGES IN spatstat.model VERSION 3.3-2.003
+        CHANGES IN spatstat.model VERSION 3.3-2.004
 
 OVERVIEW
 

inst/doc/packagesizes.txt

@@ -15,4 +15,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2024-02-02" "3.2-10" 269 724 0 39028 1155
 "2024-03-22" "3.2-11" 269 724 0 39028 1155
 "2024-07-09" "3.3-1" 269 726 0 39051 1155
-"2024-09-30" "3.3-2.003" 269 726 0 39063 1155
+"2024-10-01" "3.3-2.004" 269 726 0 39063 1155

inst/info/packagesizes.txt

@@ -15,4 +15,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2024-02-02" "3.2-10" 269 724 0 39028 1155
 "2024-03-22" "3.2-11" 269 724 0 39028 1155
 "2024-07-09" "3.3-1" 269 726 0 39051 1155
-"2024-09-30" "3.3-2.003" 269 726 0 39063 1155
+"2024-10-01" "3.3-2.004" 269 726 0 39063 1155

tests/testsNtoO.R

@@ -17,7 +17,7 @@ cat(paste("--------- Executing",
 #
 # Testing the response to the presence of NA's in covariates
 #
-# $Revision: 1.9 $ $Date: 2023/11/05 01:45:36 $
+# $Revision: 1.10 $ $Date: 2024/09/30 23:13:54 $
 
 if(FULLTEST) {
 local({
@@ -29,13 +29,16 @@ local({
   misfit <- ppm(X ~ Y)
   ## prediction 
   Z <- predict(misfit, type="trend", se=TRUE)
+  ## canonical covariates
+  M <- model.images(misfit)
   ## covariance matrix: all should be silent
   v <- vcov(misfit)
   ss <- vcov(misfit, what="internals")
   ## ..... kppm ......................................
   ## should produce warnings but no failures
   misfit <- kppm(X ~Y)
   V <- predict(misfit, type="trend", se=TRUE)
+  M <- model.images(misfit)
   refit <- improve.kppm(misfit, dimyx=20)
 })
 }