Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

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

  • Date Created:

Source Metadata

  • Citation: Bailey and Gatrell (1995) Interactive Spatial Data Analysis. Prentice Hall.

Publisher Information

  • Prepared for the Wolfram Data Repository By: Gosia Konwerska (Wolfram Research, inc.)
  • Publisher of Record: Gosia Konwerska