The R Project SVN R

Rev

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

Rev 25118 Rev 27541
Line 53... Line 53...
53 
  Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
 53 
  Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
54 
  \emph{The New S Language}.
 54 
  \emph{The New S Language}.
55 
  Wadsworth \& Brooks/Cole.
 55 
  Wadsworth \& Brooks/Cole.
56 
}
 56 
}
57 
\examples{
 57 
\examples{
- 
 
 58 
require(stats)
58 
n <- 10; nn <- 100
 59 
n <- 10; nn <- 100
59 
g <- factor(round(n * runif(n * nn)))
 60 
g <- factor(round(n * runif(n * nn)))
60 
x <- rnorm(n * nn) + sqrt(as.numeric(g))
 61 
x <- rnorm(n * nn) + sqrt(as.numeric(g))
61 
xg <- split(x, g)
 62 
xg <- split(x, g)
62 
boxplot(xg, col = "lavender", notch = TRUE, varwidth = TRUE)
 63 
boxplot(xg, col = "lavender", notch = TRUE, varwidth = TRUE)