Documentation improvements

Author: baddstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.model
-Version: 3.3-5
-Date: 2025-03-22
+Version: 3.3-5.001
+Date: 2025-04-18
 Title: Parametric Statistical Modelling and Inference for the 'spatstat' Family
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),

NEWS

@@ -1,4 +1,11 @@
 
+        CHANGES IN spatstat.model VERSION 3.3-5.001
+
+OVERVIEW
+
+    o Documentation improvements.
+    
+
         CHANGES IN spatstat.model VERSION 3.3-5
 
 OVERVIEW

inst/doc/packagesizes.txt

@@ -19,3 +19,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2024-11-19" "3.3-3" 269 726 0 39066 1155
 "2025-01-20" "3.3-4" 269 726 0 39070 1155
 "2025-03-22" "3.3-5" 269 726 0 39076 1155
+"2025-04-18" "3.3-5.001" 269 726 0 39076 1155

inst/info/packagesizes.txt

@@ -19,3 +19,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2024-11-19" "3.3-3" 269 726 0 39066 1155
 "2025-01-20" "3.3-4" 269 726 0 39070 1155
 "2025-03-22" "3.3-5" 269 726 0 39076 1155
+"2025-04-18" "3.3-5.001" 269 726 0 39076 1155

man/profilepl.Rd

@@ -177,18 +177,21 @@ profilepl(s, f, \dots, aic=FALSE, rbord=NULL, verbose = TRUE, fast=TRUE)
   \code{\link{plot.profilepl}}
 }
 \examples{
+    human <- interactive()
     # one irregular parameter
-    rr <- data.frame(r=seq(0.05,0.15, by=0.01))
-    \testonly{
+    if(human) {
+       rr <- data.frame(r=seq(0.05,0.15, by=0.01))
+    } else {
       rr <- data.frame(r=c(0.05,0.1,0.15))
     }
     ps <- profilepl(rr, Strauss, cells)
     ps
     plot(ps)
 
     # two irregular parameters
-    rs <- expand.grid(r=seq(0.05,0.15, by=0.01),sat=1:3)
-    \testonly{
+    if(human) {
+       rs <- expand.grid(r=seq(0.05,0.15, by=0.01),sat=1:3)
+    } else {
       rs <- expand.grid(r=c(0.07,0.12),sat=1:2)
     }
     pg <- profilepl(rs, Geyer, cells)