More support for class interpolatedCDF

Author: baddstats

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatstat.univar
-Version: 3.1-2
-Date: 2025-03-05
+Version: 3.1-2.001
+Date: 2025-04-01
 Title: One-Dimensional Probability Distribution Support for the 'spatstat' Family 
 Authors@R: c(person("Adrian", "Baddeley", 
                     role = c("aut", "cre", "cph"),
@@ -26,7 +26,7 @@ Authors@R: c(person("Adrian", "Baddeley",
 	            role = c("ctb", "cph")))
 Maintainer: Adrian Baddeley <Adrian.Baddeley@curtin.edu.au>
 Depends: R (>= 3.5.0), stats
-Imports: spatstat.utils (>= 3.1-2)
+Imports: spatstat.utils (>= 3.1-2), graphics
 Description: Estimation of one-dimensional probability distributions
 	     including kernel density estimation, weighted empirical cumulative
 	     distribution functions, Kaplan-Meier and reduced-sample estimators

NAMESPACE

@@ -2,6 +2,7 @@
 
 ## ................  Import packages ..................
 
+importFrom(graphics, "plot.function")
 import(stats)
 import(spatstat.utils)
 
@@ -61,7 +62,9 @@ export("mean.ewcdf")
 export("ndigits")
 export("pkernel")
 export("plot.adaptivedensity")
+export("plot.interpolatedCDF")
 export("print.ewcdf")
+export("print.interpolatedCDF")
 export("qkernel")
 export("quantile.density")
 export("quantile.ewcdf")
@@ -102,7 +105,9 @@ S3method("knots", "ecdf")
 S3method("mean", "ecdf")
 S3method("mean", "ewcdf")
 S3method("plot", "adaptivedensity")
+S3method("plot", "interpolatedCDF")
 S3method("print", "ewcdf")
+S3method("print", "interpolatedCDF")
 S3method("quantile", "density")
   S3method("quantile", "ewcdf")
   S3method("quantilefun", "ecdf")

NEWS

@@ -1,3 +1,17 @@
+        CHANGES IN spatstat.univar VERSION 3.1-2.001
+
+OVERVIEW
+
+    o More support for 'interpolatedCDF' objects.
+    
+NEW FUNCTIONS
+
+    o plot.interpolatedCDF
+    Plot method for interpolatedCDF objects.
+
+    o print.interpolatedCDF
+    Print method for interpolatedCDF objects.
+
         CHANGES IN spatstat.univar VERSION 3.1-2
 
 OVERVIEW

R/quantiledensity.R

@@ -5,7 +5,7 @@
 #'
 #'  Also a CDF from a 'density'
 #' 
-#'  $Revision: 1.4 $ $Date: 2023/09/18 06:34:53 $
+#'  $Revision: 1.5 $ $Date: 2025/04/01 02:43:51 $
 
 quantile.density <- local({
 
@@ -95,3 +95,21 @@ CDF.density <- function(f, ..., warn=TRUE) {
   return(FF)
 }
 
+print.interpolatedCDF <- function(x, ...)  {
+  splat("Smooth estimate of cumulative distribution function")
+  xrange <- range(get("x", envir=environment(x)))
+  splat("Domain of x values:", prange(signif(xrange, 6)))
+  NextMethod("print")
+}
+
+plot.interpolatedCDF <- function(x, ...)  {
+  xname <- short.deparse(substitute(x))
+  xrange <- range(get("x", envir=environment(x)))
+  do.call(plot.function,
+          resolve.defaults(x=quote(x),
+                           list(...),
+                           list(xlim=xrange,
+                                xlab=expression(x),
+                                ylab=expression(F(x)),
+                                main=xname)))
+}

inst/doc/packagesizes.txt

@@ -6,3 +6,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2024-11-05" "3.1-0" 36 68 0 2571 2233
 "2024-11-05" "3.1-1" 36 68 0 2571 2235
 "2025-03-05" "3.1-2" 36 68 0 2577 2235
+"2025-04-01" "3.1-2.001" 36 70 0 2595 2235

inst/info/packagesizes.txt

@@ -6,3 +6,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2024-11-05" "3.1-0" 36 68 0 2571 2233
 "2024-11-05" "3.1-1" 36 68 0 2571 2235
 "2025-03-05" "3.1-2" 36 68 0 2577 2235
+"2025-04-01" "3.1-2.001" 36 70 0 2595 2235

man/macros/defns.Rd

@@ -43,6 +43,8 @@
 %% Frequent references
 \newcommand{\baddrubaturnbook}{Baddeley, A., Rubak, E. and Turner, R. (2015) \emph{Spatial Point Patterns: Methodology and Applications with R}. Chapman and Hall/CRC Press. }
 %% Citations of recent articles that will change rapidly
-\newcommand{\baddchangclustersim}{Baddeley, A. and Chang, Y.-M. (2023) Robust algorithms for simulating cluster point processes. \emph{Journal of Statistical Computation and Simulation}. In Press. DOI \code{10.1080/00949655.2023.2166045}.}
+\newcommand{\baddchangclustersim}{Baddeley, A. and Chang, Y.-M. (2023) Robust algorithms for simulating cluster point processes. \emph{Journal of Statistical Computation and Simulation} \bold{93}, 1950--1975.}
+\newcommand{\smoothpcfpaper}{Baddeley, A., Davies, T.M. and Hazelton, M.L. (2025) An improved estimator of the pair correlation function of a spatial point process. \emph{Biometrika}, to appear.}
+\newcommand{\smoothpcfpapercite}{Baddeley, Davies and Hazelton (2025)}
 
 

man/spatstat.univar-internal.Rd

@@ -11,6 +11,8 @@
 \alias{make.even.breaks}
 \alias{match.kernel}
 \alias{plot.adaptivedensity}
+\alias{plot.interpolatedCDF}
+\alias{print.interpolatedCDF}
 \alias{print.ewcdf}
 \alias{quantilefun.interpolatedCDF}
 \alias{IdenticalRowPair}
@@ -32,6 +34,8 @@ km.rs.opt(o, cc, d, breaks, KM, RS)
 make.even.breaks(bmax, npos, bstep)
 match.kernel(kernel)
 \method{plot}{adaptivedensity}(x, \dots, xlab)
+\method{plot}{interpolatedCDF}(x, \dots)
+\method{print}{interpolatedCDF}(x, \dots)
 \method{print}{ewcdf}(x, digits, \dots)
 \method{quantilefun}{interpolatedCDF}(x, \dots, type)
 IdenticalRowPair(i,j,a,b)