Wolfram Research

Sample Data: Bunyaruguru Crater Field

Source Notebook

Locations of craters in Bunyaruguru volcanic field in Uganda

Details

Eastings and Northings for locations of craters in Bunyaruguru volcanic field in West Uganda.

Examples

Basic Examples (1) 

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bunyaruguru Crater Field\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bunyaruguru Crater Field-Input",
AutoDelete->True]\), "Data"]
Out[1]=

Summary of the spatial point data:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bunyaruguru Crater Field\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bunyaruguru Crater Field-Input",
AutoDelete->True]\), "Data"]["Summary"]
Out[2]=

Visualizations (1) 

Plot the spatial point data:

In[3]:=
ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bunyaruguru Crater Field\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bunyaruguru Crater Field-Input",
AutoDelete->True]\), "Data"], AspectRatio -> 1]
Out[3]=

Analysis (4) 

Compute probability of finding a point within given radius of an existing point - NearestNeighborG is the CDF of the nearest neighbor distribution:

In[4]:=
nnG = NearestNeighborG[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bunyaruguru Crater Field\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bunyaruguru Crater Field-Input",
AutoDelete->True]\), "Data"]]
Out[4]=
In[5]:=
maxR = nnG["MaxRadius"]
Out[5]=
In[6]:=
DiscretePlot[nnG[r], {r, maxR/100, maxR, maxR/100}, AxesLabel -> {"radius", "probability"}]
Out[6]=

Mean distance between a typical point and its nearest neighbor (for positive support distribution can be approximated via a Riemann sum of 1-CDF):

In[7]:=
step = maxR/100;
partition = Table[{k, k + step}, {k, 0, maxR, step}];
values = nnG[Mean /@ partition];
In[8]:=
Total[(1 - values)*step]
Out[8]=

Test for complete spacial randomness:

In[9]:=
SpatialRandomnessTest[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bunyaruguru Crater Field\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bunyaruguru Crater Field-Input",
AutoDelete->True]\), "Data"], {"PValue", "TestConclusion"}]
Out[9]=

Fit a hardcore point process to data:

In[10]:=
EstimatedPointProcess[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bunyaruguru Crater Field\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bunyaruguru Crater Field-Input",
AutoDelete->True]\), "Data"], HardcorePointProcess[\[Mu], r, 2]]
Out[10]=

Gosia Konwerska, "Sample Data: Bunyaruguru Crater Field" from the Wolfram Data Repository (2021)  

Data Resource History

Source Metadata

Publisher Information