The R Project SVN R

Rev

Rev 61127 | Rev 64662 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61127 Rev 61153
Line 82... Line 82...
82 
# The Foley and Van Dam PhD Data.
 82 
# The Foley and Van Dam PhD Data.
83 
csd <- matrix(c( 4,2,4,6, 4,3,1,4, 4,7,7,1,
 83 
csd <- matrix(c( 4,2,4,6, 4,3,1,4, 4,7,7,1,
84 
                 0,7,3,2, 4,5,3,2, 5,4,2,2,
 84 
                 0,7,3,2, 4,5,3,2, 5,4,2,2,
85 
                 3,1,3,0, 4,4,6,7, 1,10,8,7,
 85 
                 3,1,3,0, 4,4,6,7, 1,10,8,7,
86 
                 1,5,3,2, 1,5,2,1, 4,1,4,3,
 86 
                 1,5,3,2, 1,5,2,1, 4,1,4,3,
87 
                 0,3,0,6, 2,1,5,5), nrow=4)
 87 
                 0,3,0,6, 2,1,5,5), nrow = 4)
88 
 
 88 
 
89 
csphd <- function(colors)
 89 
csphd <- function(colors)
90 
  barplot(csd, col = colors, ylim = c(0,30),
 90 
  barplot(csd, col = colors, ylim = c(0,30),
91 
          names = 72:85, xlab = "Year", ylab = "Students",
 91 
          names = 72:85, xlab = "Year", ylab = "Students",
92 
          legend = c("Winter", "Spring", "Summer", "Fall"),
 92 
          legend = c("Winter", "Spring", "Summer", "Fall"),