# read in data file

# assume the file is in root directory of R

griz2010 <- read.table("grizfootball.txt")

griz2010        # prints out what is read in

# give griz.2010 table column names
colnames(griz2010) <- c("name","jersey", "year", "position", 
         "height", "weight", "state")
griz2010

# create variable vectors
vecstate <- griz2010[,7]
vecyear <- griz2010[,3]
vecposition <- griz2010[,4]
vecheight <- griz2010[,5]
vecweight <- griz2010[,6]
vecstate