seriation (version 1.4.1)

SupremeCourt: Voting Patterns in the Second Rehnquist U.S. Supreme Court

Description

Contains a (a subset of the) decisions for the stable 8-yr period 1995-2002 of the second Rehnquist Supreme Court. Decisions are aggregated to the joint probability for disagreement between judges.

Format

A square, symmetric 9-by-9 matrix with the joint probability for disagreement.

Author

Michael Hahsler

References

Sirovich, L. (2003). A pattern analysis of the second Rehnquist
U.S. Supreme Court. \emph{Proceedings of the National Academy of Sciences of the United
States of America,} 100, 7432-7437. \doi{10.1073/pnas.1132164100}

Examples

data("SupremeCourt")

# joint probability of disagreement
SupremeCourt

d <- as.dist(SupremeCourt)
o <- seriate(d)
o

# judges in original alphabetical order
pimage(d, diag = TRUE, upper = TRUE)

# judges reordered by seriation based on similar decisions
pimage(d, o, diag = TRUE, upper = TRUE)

# Use optimal leaf ordering (hierarchical clustering with reordering)
# which uses a dendrogram
o <- seriate(d, method = "OLO")
o

plot(o[[1]])