pscl (version 0.5)

AustralianElections: elections to Australian House of Representatives, 1949-2004

Description

aggregate data on the 23 elections to Australia's House of Representatives, 1949 to 2004.

Usage

data(AustralianElections)

format

• date

{date of election, stored using the Date class} Seats{numeric, number of seats in the House of Representatives} Uncontested{numeric, number of uncontested seats} ALPSeats{numeric, number of seats won by the Australian Labor Party} LPSeats{numeric, number of seats won by the Liberal Party} CPSeats{numeric, number of seats won by the Country Party (later known as the National Party)} OtherSeats{numeric, number of seats won by other parties and/or independent candidates} ALP{numeric, percentage of first preference votes cast for Australian Labor Party candidates} ALP2PP{numeric, percentage of the two-party preferred vote won by Australian Labor Party candidates} LP{numeric, percent of first preference votes cast for Liberal Party candidates} NP{numeric, percent of first preference votes cast for National Party (Country Party) candidates} DLP{numeric, percent of first preference votes cast for Democratic Labor Party candidates} Dem{numeric, percent of first preference votes cast for Australian Democrat candidates} Green{numeric, percent of first preference votes cast for Green Party candidates} Hanson{numeric, percent of first preference votes cast for candidates from Pauline Hanson's One Nation party} Com{numeric, percent of first preference votes cast for Communist Party candidates} AP{numeric, percent of first preference votes cast for Australia Party candidates} Informal{numeric, percent of ballots cast that are spoiled, blank, or otherwise uncountable (usually because of errors in enumerating preferences)} Turnout{numeric, percent of enrolled voters recorded as having turned out to vote (Australia has compulsory voting)}

source

Australian Electoral Commission. http://www.aec.gov.au.

Examples

data(AustralianElections)
attach(AustralianElections)
alpSeatShare <- ALPSeats/Seats
alpVoteShare <- ALP2PP/100

## log-odds transforms
x <- log(alpVoteShare/(1-alpVoteShare))
y <- log(alpSeatShare/(1-alpSeatShare))

ols <- lm(y~x)   ## Tufte-style seats-votes regression

xseq <- seq(-4.5,4.5,length=500)
yhat <- coef(ols)[1] + coef(ols)[2]*xseq
yhat <- exp(yhat)/(1+exp(yhat))
xseq <- exp(xseq)/(1+exp(xseq))

## seats vote curve
plot(x=alpVoteShare,
     y=alpSeatShare,
     xlab="ALP Vote Share",
     ylab="ALP Seat Share")
lines(xseq,yhat,lwd=2)
abline(h=.5,lty=2)
abline(v=.5,lty=2)