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
|
\name{wood}
\alias{wood}
\docType{data}
\title{Modified Data on Wood Specific Gravity}
\description{
The original data are from Draper and Smith (1966) and
were used to determine the influence of anatomical factors on wood
specific gravity, with five explanatory variables and an
intercept. These data were contaminated by replacing a few
observations with outliers.
}
\usage{data(wood, package="robustbase")}
\format{
A data frame with 20 observations on the following 6 variables.
\describe{
\item{x1, x2, x3, x4, x5}{explanatory \dQuote{anatomical} wood
variables.}
\item{y}{wood specific gravity, the target variable.}
}
}
\source{
Draper and Smith (1966, p.227)
Peter J. Rousseeuw and Annick M. Leroy (1987)
\emph{Robust Regression and Outlier Detection} Wiley, p.243, table 8.
}
\examples{
data(wood)
plot(wood)
summary( lm.wood <- lm(y ~ ., data = wood))
summary(rlm.wood <- MASS::rlm(y ~ ., data = wood))
summary(lts.wood <- ltsReg(y ~ ., data = wood))
wood.x <- as.matrix(wood)[,1:5]
c_wood <- covMcd(wood.x)
c_wood
}
\keyword{datasets}
|
