Base.2014 <- read.delim("~/Dropbox/Research/Gem 2/Base 2014.txt")
View(Base.2014)
attach(Base.2014)
summary(age)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   -2.00   24.00   32.00   34.42   43.00   64.00       2