The R Project SVN R

Rev

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

Rev 59811 Rev 61153
Line 51... Line 51...
51 
## The sleep *prolongations*
 51 
## The sleep *prolongations*
52 
sleep1 <- with(sleep, extra[group == 2] - extra[group == 1])
 52 
sleep1 <- with(sleep, extra[group == 2] - extra[group == 1])
53 
summary(sleep1)
 53 
summary(sleep1)
54 
stripchart(sleep1, method = "stack", xlab = "hours",
 54 
stripchart(sleep1, method = "stack", xlab = "hours",
55 
           main = "Sleep prolongation (n = 10)")
 55 
           main = "Sleep prolongation (n = 10)")
56 
boxplot(sleep1, horizontal=TRUE, add=TRUE,
 56 
boxplot(sleep1, horizontal = TRUE, add = TRUE,
57 
        at = .6, pars=list(boxwex = .5, staplewex = .25))
 57 
        at = .6, pars = list(boxwex = 0.5, staplewex = 0.25))
58 
}
 58 
}
59 
\keyword{datasets}
 59 
\keyword{datasets}