#Getting Started
3 + 5
8 * 2
5 / 4
sqrt(35)

#Functions and Objects
c(1,3,5)
x<-c(1,3,5)
x
mean(x)
sum(x)
x*5

#Getting Data
#Using the 2000flor.dta file...
library(foreign)
mydata<-read.dta(file.choose())
names(mydata)

#Data Frames
mydata$County
mydata$lnBuchanan<-log(mydata$Buchanan)
names(mydata)
mydata$Buchanan
mydata$lnBuchanan
sum(mydata$Buchanan)

#A Basic Regression
mod1<-lm(Buchanan~Bush, data=mydata)
summary(mod1)
coef(mod1)

mod2<-lm(Buchanan~Bush + Gore, data=mydata)
summary(mod2)

#Plotting
plot(mydata$Bush,mydata$Buchanan)
abline(mod1)
plot(mydata$Bush,mydata$Buchanan,  main="Bush vs. Buchanan - Florida 2000", xlab="Bush Votes", ylab="Buchanan Votes")
abline(mod1)