Wolfram Research

Sample Data: North Derbyshire Asthma

Source Notebook

Locations of the residence of asthmatic (cases) and non-asthmatic (controls) children, annotated with marks including number of household smokers, subject type (case or control), hay fever occurrence, age, distance to the nearest road, distance to pollution sources 1, 2, and 3

Details

Locations of the residence of asthmatic (cases) and non-asthmatic (controls) children in North Derbyshire (United Kingdom) in 1992, annotated with marks including number of household smokers, subject type (case or control), hay fever occurrence, age, distance to the nearest road, distance to pollution sources 1, 2, and 3.

Examples

Basic Examples (3) 

Retrieve the data:

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

Summary of the spatial point data:

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

List annotations keys:

In[3]:=
ResourceData[\!\(\*
TagBox["\"\<Sample Data: North Derbyshire Asthma\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: North Derbyshire Asthma-Input",
AutoDelete->True]\), "AnnotationsKeys"]
Out[3]=

Visualizations (3) 

Plot the spatial point data:

In[4]:=
Show[Graphics[{Opacity[.1], ResourceData[\!\(\*
TagBox["\"\<Sample Data: North Derbyshire Asthma\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: North Derbyshire Asthma-Input",
AutoDelete->True]\), "ObservationRegion"]}], ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: North Derbyshire Asthma\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: North Derbyshire Asthma-Input",
AutoDelete->True]\), "Data"], AspectRatio -> Full], Axes -> True]
Out[4]=

Plot the smooth point density:

In[5]:=
density = SmoothPointDensity[ResourceData[\!\(\*
TagBox["\"\<Sample Data: North Derbyshire Asthma\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: North Derbyshire Asthma-Input",
AutoDelete->True]\), "Data"]]
Out[5]=
In[6]:=
Show[ContourPlot[density[{x, y}], {x, y} \[Element] ResourceData[\!\(\*
TagBox["\"\<Sample Data: North Derbyshire Asthma\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: North Derbyshire Asthma-Input",
AutoDelete->True]\), "ObservationRegion"], ColorFunction -> "Rainbow"], ListPlot[ResourceData[\!\(\*
TagBox["\"\<Sample Data: North Derbyshire Asthma\>\"",
#& ,
BoxID -> "ResourceTag-Sample Data: North Derbyshire Asthma-Input",
AutoDelete->True]\), "Data"], PlotStyle -> Black]]
Out[6]=

Visualize data points annotated with number of household smokers:

In[7]:=
PointValuePlot[spd, {1 -> "DiscreteColor", 2 -> None, 3 -> None, 4 -> None, 5 -> None, 6 -> None, 7 -> None, 8 -> None}, PlotStyle -> PointSize[Medium], PlotLegends -> Automatic, PlotLabel -> "Number of Household Smokers"]
Out[7]=

Analysis (1) 

Test for complete spacial randomness:

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

Gosia Konwerska, "Sample Data: North Derbyshire Asthma" from the Wolfram Data Repository (2021) 

Data Resource History

Source Metadata

Publisher Information