# READ DATA SET CALLED 'hs0' from Web:
hs0 <- read.table("http://www.ats.ucla.edu/stat/R/notes/hs0.csv", header=T, sep=",")
attach(hs0)
# 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=",")
attach(hs0)
# print summary of first 20 observations to see what the data looks like
hs0[1:20, ]
# CREATE HISTOGRAM FOR VARIABLE 'write'
library(lattice)
hist(write)