Wolfram Research

Sample Data: Bovine Tuberculosis

Source Notebook

Locations of cattle herds in Cornwall, UK, that have tested positive for bovine tuberculosis, annotated with marks including the year of testing, and spoligotype (a qualitative genetic marker)

Details

Locations of cattle herds in Cornwall, UK, that have tested positive for bovine tuberculosis in the observation region, which is the polygon of Cornwall, annotated with marks including the year of testing, and spoligotype (a qualitative genetic marker).

Examples

Basic Examples (1) 

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

Summary of the spatial point data:

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

Visualizations (1) 

Plot the spatial point data:

In[3]:=
pplot = ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bovine Tuberculosis\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bovine Tuberculosis-Input",
AutoDelete->True]\), "Data"], AspectRatio -> 1, PlotStyle -> Black, AxesLabel -> {"Eastings", "Northings"}]
Out[3]=

Analysis (3) 

Test for complete spacial randomness:

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

Compute the smooth point density:

In[5]:=
density = SmoothPointDensity[ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bovine Tuberculosis\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bovine Tuberculosis-Input",
AutoDelete->True]\), "Data"]]
Out[5]=

Plot the density function together with the observation points:

In[6]:=
Show[ContourPlot[density[{x, y}], {x, y} \[Element] ResourceData[\!\(\*
TagBox["\"\<Sample Data: Bovine Tuberculosis\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: Bovine Tuberculosis-Input",
AutoDelete->True]\), "Data"]["ObservationRegion"], PlotLegends -> Automatic], pplot, FrameLabel -> {"Eastings", "Northings"}]
Out[6]=

Gosia Konwerska, "Sample Data: Bovine Tuberculosis" from the Wolfram Data Repository (2021)  

Data Resource History

Source Metadata

Publisher Information