getwd()
setwd("C:/Documents and Settings/hz68/Desktop")
fv <- read.table("florida-election-data.txt")
gore <- fv[,2]
bush <- fv[,3]
buchanan <- fv[,4]


summary(gore)
summary(bush)
summary(buchanan)

plot(bush,buchanan)
temp <- lm(buchanan ~ bush)
abline(temp,lwd=3)
summary(temp)

r <- temp$residuals
plot(bush,r)
abline(0,0)


loggore <- log(gore)
logbush <- log(bush)
logbuchanan <- log(buchanan)

plot(logbush,logbuchanan)
temp <- lm(logbuchanan ~ logbush)
abline(temp)
summary(temp)

r <- temp$residuals
plot(logbush,r)
abline(0,0)