Streamlined to satosfy CRAN

Author: baddstats

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: spatstat.model
-Version: 3.4-1
+Version: 3.4-2
 Date: 2025-09-28
 Title: Parametric Statistical Modelling and Inference for the 'spatstat' Family
 Authors@R: c(person("Adrian", "Baddeley", 

NEWS

@@ -1,4 +1,10 @@
 
+        CHANGES IN spatstat.model VERSION 3.4-2
+
+OVERVIEW
+
+    o Internal changes to satisfy CRAN.
+
         CHANGES IN spatstat.model VERSION 3.4-1
 
 OVERVIEW

R/rmhmodel.ppm.R

@@ -3,7 +3,7 @@
 #
 #   convert ppm object into format palatable to rmh.default
 #
-#  $Revision: 2.67 $   $Date: 2025/09/19 04:44:21 $
+#  $Revision: 2.68 $   $Date: 2025/09/28 04:01:23 $
 #
 #   .Spatstat.rmhinfo
 #   rmhmodel.ppm()
@@ -382,23 +382,25 @@ rmhmodel.ppm <- function(model, w, ...,
       else 
         predict(model, window=wsim, type="trend",
                 covariates=newcovariates)
-    ## check for substantial fraction of NA's
-    if(!Y$marked) {
-      Atrend <- area(as.owin(Z$trend))
-    } else {
-      Atrend <- mean(sapply(lapply(Z$trend, as.owin), area))
-    }
-    okfrac <- Atrend/area(wsim)
-    if(okfrac < 0.95) {
-      gripe <- paste("The model trend is undefined (NA) at",
-                     percentage(1 - okfrac),
-                     "of locations in the simulation window")
-      if(okfrac < 0.5) 
-        stop(gripe, call.=FALSE)
-      warning(paste(paste0(gripe, ";"),
-                    "simulations will be generated in a sub-window",
-                    "covering only", percentage(okfrac), "of the area"),
-              call.=FALSE)
+    if(newdata.given) {
+      ## check for substantial fraction of NA's
+      if(!Y$marked) {
+        Atrend <- area(as.owin(Z$trend))
+      } else {
+        Atrend <- mean(sapply(lapply(Z$trend, as.owin), area))
+      }
+      okfrac <- Atrend/area(wsim)
+      if(okfrac < 0.95) {
+        gripe <- paste("The model trend is undefined (NA) at",
+                       percentage(1 - okfrac),
+                       "of locations in the simulation window")
+        if(okfrac < 0.5) 
+          stop(gripe, call.=FALSE)
+        warning(paste(paste0(gripe, ";"),
+                      "simulations will be generated in a sub-window",
+                      "covering only", percentage(okfrac), "of the area"),
+                call.=FALSE)
+      }
     }
   }
 

inst/doc/packagesizes.txt

@@ -22,3 +22,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-04-22" "3.3-6" 269 730 0 39071 1155
 "2025-07-23" "3.4-0" 273 735 0 39424 1155
 "2025-09-28" "3.4-1" 273 735 0 39633 1155
+"2025-09-28" "3.4-2" 273 735 0 39635 1155

inst/info/packagesizes.txt

@@ -22,3 +22,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2025-04-22" "3.3-6" 269 730 0 39071 1155
 "2025-07-23" "3.4-0" 273 735 0 39424 1155
 "2025-09-28" "3.4-1" 273 735 0 39633 1155
+"2025-09-28" "3.4-2" 273 735 0 39635 1155