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
|
\name{los}
\alias{los}
\docType{data}
\title{ Length of Stay Data }
\description{
Length of stay for 201 patients that stayed at the University Hospital
of Lausanne during the year 2000.
}
\usage{data(los)}
\format{
Vector of integer values giving the length of stay (days):
int [1:201] 16 13 17 4 15 24 59 18 33 8 ...
}
\details{
These data may be used to estimate and predict the total resource
consumption of this group of patients.
Cf. Ruffieux, Paccaud and Marazzi (2000).
}
\source{
The data were kindly provided by A. Marazzi.
Cf. Hubert, M. and Vandervieren, E. (2006), p. 13--15.
}
\references{
Ruffieux, C., Paccaud, F. and A. Marazzi (2000)
Comparing rules for truncating hospital length of stay;
\emph{Casemix Quarterly} \bold{2}, n. 1.
% identical in ./adjbox.Rd :
Hubert, M. and Vandervieren, E. (2006)
\emph{An Adjusted Boxplot for Skewed Distributions},
Technical Report TR-06-11, KU Leuven, Section of Statistics, Leuven.
\cr
\url{http://wis.kuleuven.be/stat/robust/Papers/TR0611.pdf}
}
\examples{
summary(los) # quite skewed, with median(.) = 8
plot(table(los))
boxplot(los, horizontal=TRUE, add=TRUE, col = "red", axes=FALSE)
##-> "outliers" instead of "just skewed"
hist(log(los))
boxplot(log(los), add=TRUE, col=2, border=2, horizontal = TRUE, at = -1)
if(R.version$arch == "x86_64") { ## FIXME -- bug in C code
## Hubert and Vandervieren (2006), p. 15, Fig. 11.
adjbox(los, col = "gray", outcol = "red")
boxplot(los, add = TRUE, staplewex = 0.2, outcex = 0.5, outpch = 4)
title("adjbox(los) and boxplot(los) superimposed")
}
}
\keyword{datasets}
|
