# READ DATA SET CALLED 'hs0' from Web:
hs0 <- read.table("http://www.ats.ucla.edu/stat/R/notes/hs0.csv", header=T, sep=",")
# Or if you have downloaded the data set to your desktop:
hs0 <- read.table("C:\\Documents and Settings\\wkuuser\\Desktop\\hs0.csv", header=T, sep=",")
# print summary of first 20 observations to see what the data looks like
# CREATE HISTOGRAM FOR VARIABLE 'write'