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
|
\name{starsCYG}
\alias{starsCYG}
\docType{data}
\title{Hertzsprung-Russell Diagram Data of Star Cluster CYG OB1}
\description{
Data for the Hertzsprung-Russell Diagram of the Star Cluster CYG OB1,
which contains 47 stars in the direction of Cygnus, from C.Doom. The
first variable is the logarithm of the effective temperature at the
surface of the star (Te) and the second one is the logarithm of its
light intencity (\eqn{L/L_0}).
In the Hertzsprung-Russell diagram, which is the scatterplot of these
data points, where the log temperature is plotted from left to right,
two groups of points are seen:\cr
the majority which tend to follow a steep band and four stars in the
upper corner. In the astronomy the 43 stars are said to lie on the
main sequence and the four remaining stars are called \dQuote{giants} (the
points 11, 20, 30, 34).
}
\usage{data(starsCYG, package="robustbase")}
\format{
A data frame with 47 observations on the following 2 variables
\describe{
\item{\code{log.Te}}{Logarithm of the effective temperature at the
surface of the star (Te).}
\item{\code{log.light}}{Logarithm of its light intencity (\eqn{L/L_0})}
}
}
\source{
P. J. Rousseeuw and A. M. Leroy (1987)
\emph{Robust Regression and Outlier Detection};
Wiley, p.27, table 3.
}
\examples{
data(starsCYG)
plot(starsCYG)
cst <- covMcd(starsCYG)
lm.stars <- lm(log.light ~ log.Te, data = starsCYG)
summary(lm.stars)
plot(lm.stars)
lts.stars <- ltsReg(log.light ~ log.Te, data = starsCYG)
plot(lts.stars)
}
\keyword{datasets}
|
