week one

There is no code in here.

This is a subtitle

mm.counts <- c(12,6,8,10,6,7)
names(mm.counts) <- c("blue","brown","green","orange",
"red","yellow")
mm.colors <- c("blue","brown","green","orange","red","yellow") # creates a vector of the palette of colors to be used in the bar chart (that match the m & m colors)
barplot(mm.counts,col=mm.colors)