Compute probability of finding a point within given radius of an existing point - NearestNeighborG is the CDF of the nearest neighbor distribution:
In[6]:=
Out[6]=
In[7]:=
Out[7]=
In[8]:=
Out[8]=
NearestNeighborG as the CDF of nearest neighbor distribution can be used to compute the mean distance between a typical point and its nearest neighbor - the mean of a positive support distribution can be approximated via a Riemann sum of 1- CDF. To use Riemann approximation create the partition of the support interval from 0 to maxR into 100 parts and compute the value of the NearestNeighborG at the middle of each subinterval:
In[9]:=
Now compute the Riemann sum to find the mean distance between a typical point and its nearest neighbor:
In[10]:=
Out[10]=
Account for scale and units:
In[11]:=
Out[11]=
Test for complete spatial randomness:
In[12]:=
Out[12]=
Fit a Poisson point process to data:
In[13]:=
Out[14]=
Bibliographic Citation
Gosia Konwerska,
"Sample Data: Waterstriders 2"
from the Wolfram Data Repository
(2022)
Data Resource History
Date Created:
Source Metadata
Citation:
Penttinen, A. (1984) Modelling interaction in spatial point patterns: parameter estimation by the maximum likelihood method. Jyvaskyla Studies in Computer Science, Economics and Statistics 7, University of Jyvaskyla, Finland.
Publisher Information
Prepared for the Wolfram Data Repository By:
Gosia Konwerska (Wolfram Research, Inc.)
![ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/737d8b5e4f2adbcd.png){kind=small}
![ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"]["Summary"]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/2633c6c51adbd906.png){kind=small}
![ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"], AspectRatio -> 1]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/571c3878fe30ce36.png){kind=small}
![density = SmoothPointDensity[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"]]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/300e1e69d56dfe80.png){kind=small}
![Show[ContourPlot[density[{x, y}], {x, y} \[Element] ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "ObservationRegion"], ColorFunction -> "Rainbow"], ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"], PlotStyle -> Black]]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/614ac15687dae4de.png)
![nnG = NearestNeighborG[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"]]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/1e4367742b2cf98d.png){kind=small}
![maxR = nnG["MaxRadius"]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/2a760c58bb9a1979.png){kind=small}
![DiscretePlot[nnG[r], {r, maxR/100, maxR, maxR/100}, AxesLabel -> {"radius", "probability"}]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/28803d13dbdf8a1b.png){kind=small}
![step = maxR/100;
middles = Subdivide[step/2, maxR - step/2, 99];
values = nnG[middles];](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/3a25b63f2ace2772.png)
![Total[(1 - values)*step]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/3dc12b7da63d7021.png){kind=small}
![%*ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "RegionScale"]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/2b1e542b2f2f7373.png){kind=small}
![SpatialRandomnessTest[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"], {"PValue", "TestConclusion"}] // Column](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/76f1a604b565a945.png){kind=small}
![Clear[\[Mu]];
EstimatedPointProcess[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Waterstriders 2\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Waterstriders 2-Input",
AutoDelete->True]\), "Data"], PoissonPointProcess[\[Mu], 2]]](https://www.wolframcloud.com/obj/resourcesystem/images/508/5081a797-1f06-4246-84ac-08b1271ff381/2aeb2187a7ed567b.png)
