##########
##
# Reading the data into R:

my.datafile <- tempfile()
cat(file=my.datafile, "
 71 15 
 74 19 
 70 11 
 71 15 
 69 12 
 73 17 
 72 15 
 75 19 
 72 16 
 74 18 
 71 13 
 72 15 
 73 17 
 72 16 
 71 15 
 75 20 
 71 15 
 75 19 
 78 22 
 79 23 
 72 16 
 75 20 
 76 21 
 74 19 
 70 13 
", sep=" ")

options(scipen=999) # suppressing scientific notation

simpbasketball <- read.table(my.datafile, header=FALSE, col.names=c("height", "goals")) 
 
# Note we could also save the data columns into a file and use a command such as:
# simpbasketball <- read.table(file = "z:/stat_516/filename.txt", header=FALSE, col.names = c("height","goals"))

attach(simpbasketball)

# The data frame called simpbasketball is now created.
#########