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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
\name{cushny}
\encoding{utf8}
\alias{cushny}
\docType{data}
\title{Cushny and Peebles Prolongation of Sleep Data}
\description{
The original data set was bivariate and recorded for ten subjects the
prolongation of sleep caused by two different drugs. These data were
used by Student as the first illustration of the paired t-test which
only needs the \emph{differences} of the two measurements. These
differences are the values of \code{cushny}.
}
\usage{data(cushny, package="robustbase")}
\format{
numeric vector, sorted increasingly:\cr
0 0.8 1 1.2 1.3 1.3 1.4 1.8 2.4 4.6
}
\source{
Cushny, A.R. and Peebles, A.R. (1905)
The action of optical isomers. II. Hyoscines.
\emph{J. Physiol.} \bold{32}, 501--510.
These data were used by Student(1908) as the first illustration of the
paired t-test, see also \code{\link[datasets]{sleep}}; then cited by
Fisher (1925) and thereforth copied in numerous books as an example of
a normally distributed sample, see, e.g., Anderson (1958).
}
\references{
Student (1908)
The probable error of a mean.
\emph{Biometrika} \bold{6}, 1--25.
Fisher, R.A. (1925)
\emph{Statistical Methods for Research Workers};
Oliver & Boyd, Edinburgh.
Anderson, T.W. (1958)
\emph{An Introduction to Multivariate Statistical Analysis};
Wiley, N.Y.
Hampel, F., Ronchetti, E., Rousseeuw, P. and Stahel, W. (1986)
\emph{Robust Statistics: The Approach Based on Influence Functions};
Wiley, N.Y.
}
\examples{
data(cushny)
plot(cushny, rep(0, 10), pch = 3, cex = 3,
ylab = "", yaxt = "n")
plot(jitter(cushny), rep(0, 10), pch = 3, cex = 2,
main = "'cushny' data (n= 10)", ylab = "", yaxt = "n")
abline(h=0, col="gray", lty=3)
myPt <- function(m, lwd = 2, ..., e = 1.5*par("cxy")[2])
segments(m, +e, m, -e, lwd = lwd, ...)
myPt( mean(cushny), col = "pink3")
myPt(median(cushny), col = "light blue")
legend("topright", c("mean", "median"), lwd = 2,
col = c("pink3", "light blue"), inset = .01)
## The 'sleep' data from the standard 'datasets' package:
d.sleep <- local({ gr <- with(datasets::sleep, split(extra, group))
gr[[2]] - gr[[1]] })
stopifnot(all.equal(cushny,
sort(d.sleep), tolerance=1e-15))
}
\keyword{datasets}
|
