Add thinning API

Author: juliohm

src/PointPatterns.jl

@@ -14,6 +14,7 @@ import GeoStatsBase: npoints, coordinates, coordinates!
 
 include("pattern.jl")
 include("processes.jl")
+include("thinning.jl")
 
 # plot recipes
 include("plotrecipes/pattern.jl")
@@ -30,6 +31,11 @@ export
   BinomialProcess,
   PoissonProcess,
   UnionProcess,
-  ishomogeneous
+  ishomogeneous,
+
+  # thinning methods
+  AbstractThinning,
+  RandomThinning,
+  thin
 
 end # module

src/thinning.jl

@@ -0,0 +1,22 @@
+# ------------------------------------------------------------------
+# Licensed under the ISC License. See LICENSE in the project root.
+# ------------------------------------------------------------------
+
+"""
+    AbstractThinning
+
+A method for thinning spatial point processes and patterns.
+"""
+abstract type AbstractThinning end
+
+"""
+    thin(p, t)
+
+Thin spatial point process `p` with thinning method `t`.
+"""
+thin(p::PointProcess, t::AbstractThinning) = @error "not implemented"
+
+#-----------------
+# IMPLEMENTATIONS
+#-----------------
+include("thinning/random.jl")

src/thinning/random.jl

@@ -0,0 +1,16 @@
+# ------------------------------------------------------------------
+# Licensed under the ISC License. See LICENSE in the project root.
+# ------------------------------------------------------------------
+
+"""
+    RandomThinning(p)
+
+Random thining with retention probability `p`.
+"""
+struct RandomThinning{T<:Real} <: AbstractThinning
+  p::T
+end
+
+function thin(p::PointProcess, t::RandomThinning)
+  # TODO
+end