The R Project SVN R

Rev

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

Rev 59039 Rev 61150
Line 25... Line 25...
25 
\examples{
 25 
\examples{
26 
require(graphics); require(stats)
 26 
require(graphics); require(stats)
27 
 
 27 
 
28 
## Answering a question on R-help (14 Oct 1999):
 28 
## Answering a question on R-help (14 Oct 1999):
29 
col3 <- 750+ 100*rt(1500, df = 3)
 29 
col3 <- 750+ 100*rt(1500, df = 3)
30 
breaks <- factor(cut(col3,breaks=360+5*(0:155)))
 30 
breaks <- factor(cut(col3, breaks = 360+5*(0:155)))
31 
z <- table(breaks)
 31 
z <- table(breaks)
32 
z[1:5] # The names are larger than the data ...
 32 
z[1:5] # The names are larger than the data ...
33 
barplot(unname(z), axes= FALSE)
 33 
barplot(unname(z), axes = FALSE)
34 
}
 34 
}
35 
\keyword{utilities}
 35 
\keyword{utilities}