# case0201: Bumpus's Data on Natural Selection (Humerus) In Sleuth2: Data Sets from Ramsey and Schafer's "Statistical Sleuth (2nd Ed)"

## Description

As evidence in support of natural selection, Bumpus presented measurements on house sparrows brought to the Anatomical Laboratory of Brown University after an uncommonly severe winter storm. Some of these birds had survived and some had perished. Bumpus asked whether those that perished did so because they lacked physical characteristics enabling them to withstand the intensity of that particular instance of selective elimination. The data are on the humerus (arm bone) lengths for the 24 adult male sparrows that perished and for the 35 adult males that survived.

## Usage

 `1` ```case0201 ```

## Format

A data frame with 59 observations on the following 2 variables.

`Humerus`

Humerus length of adult male sparrows (in inches)

`Status`

factor variable indicating whether the sparrow perished or survived in a winter storm

## Source

Ramsey, F.L. and Schafer, D.W. (2002). The Statistical Sleuth: A Course in Methods of Data Analysis (2nd ed), Duxbury.

`ex0221`, `ex2016`

## Examples

 ```1 2 3``` ```str(case0201) with(subset(case0201, Status=="Perished"), stem(Humerus, scale=10)) with(subset(case0201, Status=="Survived"), stem(Humerus)) ```

### Example output

```'data.frame':	59 obs. of  2 variables:
\$ Humerus: num  659 689 703 702 709 713 720 729 726 726 ...
\$ Status : Factor w/ 2 levels "Perished","Survived": 1 1 1 1 1 1 1 1 1 1 ...

The decimal point is 1 digit(s) to the right of the |

65 | 9
66 |
66 |
67 |
67 |
68 |
68 | 9
69 |
69 |
70 | 23
70 | 9
71 | 3
71 |
72 | 00
72 | 669
73 | 1
73 | 67889
74 | 34
74 | 5
75 | 224
75 |
76 |
76 | 5

The decimal point is 1 digit(s) to the right of the |

68 | 7
69 |
70 | 39
71 | 5
72 | 13368889
73 | 0033569
74 | 111139
75 | 12256
76 | 679
77 | 0
78 | 0
```

Sleuth2 documentation built on Jan. 24, 2019, 9:04 a.m.