Assignment # 13

shelf_data=read.delim("exer5_8.dat",header=TRUE)

str(data)

## function (..., list = character(), package = NULL, lib.loc = NULL, 
##     verbose = getOption("verbose"), envir = .GlobalEnv)

 boxplot(SUGAR~factor(SHELF),data=shelf_data,horizontal=TRUE,
         names=c("Shelf 1","Shelf 2","Shelf 3"),
         col=c("red","blue","violetred"),
         xlab="Sugar Content",
         ylab="Shelf Level",
         main="Sugar Levels in Cereal")