# case0502: The Spock Conspiracy Trial In Sleuth2: Data Sets from Ramsey and Schafer's "Statistical Sleuth (2nd Ed)"

## Description

In 1968, Dr. Benjamin Spock was tried in Boston on charges of conspiring to violate the Selective Service Act by encouraging young men to resist being drafted into military service for Vietnam. The defence in the case challenged the method of jury selection claiming that women were underrepresented. Boston juries are selected in three stages. First 300 names are selected at random from the City Directory, then a venire of 30 or more jurors is selected from the initial list of 300 and finally, an actual jury is selected from the venire in a nonrandom process allowing each side to exclude certain jurors. There was one woman on the venire and no women on the final list. The defence argued that the judge in the trial had a history of venires in which women were systematically underrepresented and compared the judge's recent venires with the venires of six other Boston area district judges.

## Usage

 `1` ```case0502 ```

## Format

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

`Percent`

is the percent of women on the venire's of the Spock trial judge and 6 other Boston area judges

`Judge`

a factor with levels `"Spock's"`, `"A"`, `"B"`, `"C"`, `"D"`, `"E"` and `"F"`

## Source

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

## References

Zeisel, H. and Kalven, H. Jr. (1972). Parking Tickets and Missing Women: Statistics and the Law in Tanur, J.M. et al. (eds.) Statistics: A Guide to the Unknown, Holden-Day.

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10``` ```str(case0502) boxplot(Percent~Judge, data=case0502, xlab="Judge",ylab="Percentage of Women") percent.spocks <- subset(case0502, Judge == "Spock's", Percent) percent.others <- subset(case0502, Judge != "Spock's", Percent) t.test( percent.spocks,percent.others) summary(aov(Percent~Judge, case0502, subset = Judge != "Spock's")) #as in Display 5.10 summary(aov(Percent~Judge, case0502)) ```

### Example output

```'data.frame':	46 obs. of  2 variables:
\$ Percent: num  6.4 8.7 13.3 13.6 15 ...
\$ Judge  : Factor w/ 7 levels "Spock's","A",..: 1 1 1 1 1 1 1 1 1 2 ...

Welch Two Sample t-test

data:  percent.spocks and percent.others
t = -7.1597, df = 17.608, p-value = 1.303e-06
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-19.23999 -10.49935
sample estimates:
mean of x mean of y
14.62222  29.49189

Df Sum Sq Mean Sq F value Pr(>F)
Judge        5  326.5   65.29   1.218  0.324
Residuals   31 1661.3   53.59
Df Sum Sq Mean Sq F value  Pr(>F)
Judge        6   1927   321.2   6.718 6.1e-05 ***
Residuals   39   1864    47.8
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
```

Sleuth2 documentation built on May 2, 2019, 7:01 a.m.