1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
\name{sleepstudy}
\alias{sleepstudy}
\docType{data}
\title{Reaction times in a sleep deprivation study}
\description{
The average reaction time per day for subjects in a sleep deprivation
study. On day 0 the subjects had their normal amount of sleep.
Starting that night they were restricted to 3 hours of sleep per
night. The observations represent the average reaction time on a
series of tests given each day to each subject.
}
\usage{data(sleepstudy)}
\format{
A data frame with 180 observations on the following 3 variables.
\describe{
\item{\code{Reaction}}{Average reaction time (ms)}
\item{\code{Days}}{Number of days of sleep deprivation}
\item{\code{Subject}}{Subject number on which the observation was made.}
}
}
\details{
These data are from the study described in Belenky et al. (2003), for
the sleep-deprived group and for the first 10 days of the study, up to
the recovery period.
}
\references{
Gregory Belenky, Nancy J. Wesensten, David R. Thorne, Maria
L. Thomas, Helen C. Sing, Daniel P. Redmond, Michael B. Russo and
Thomas J. Balkin (2003)
Patterns of performance degradation and restoration during sleep
restriction and subsequent recovery: a sleep dose-response study.
\emph{Journal of Sleep Research} \bold{12}, 1--12.
}
\examples{
str(sleepstudy)
xyplot(Reaction ~ Days | Subject, sleepstudy, type = c("g","p","r"),
index = function(x,y) coef(lm(y ~ x))[1],
xlab = "Days of sleep deprivation",
ylab = "Average reaction time (ms)", aspect = "xy")
(fm1 <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy))
(fm2 <- lmer(Reaction ~ Days + (1|Subject) + (0+Days|Subject), sleepstudy))
}
\keyword{datasets}
|
