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
67
68
69
70
71
|
\name{fruits}
\alias{fruits}
\docType{data}
\title{Pair of Tables}
\description{
28 batches of fruits -two types- are judged by two different ways.\cr
They are classified in order of preference, without ex aequo, by 16 individuals.\cr
15 quantitative variables described the batches of fruits.\cr
}
\usage{data(fruits)}
\format{
\code{fruits} is a list of 3 components:
\describe{
\item{typ}{is a vector returning the type of the 28 batches of fruits (peaches or nectarines).}
\item{jug}{is a data frame of 28 rows and 16 columns (judges).}
\item{var}{is a data frame of 28 rows and 16 measures (average of 2 judgements).}
}
}
\details{
\code{fruits$var} is a data frame of 15 variables:
\enumerate{
\item taches: quantity of cork blemishes (0=absent - maximum 5)
\item stries: quantity of stria (1/none - maximum 4)
\item abmucr: abundance of mucron (1/absent - 4)
\item irform: shape irregularity (0/none - 3)
\item allong: length of the fruit (1/round fruit - 4)
\item suroug: percentage of the red surface (minimum 40\% - maximum 90\%)
\item homlot: homogeneity of the intra-batch coloring (1/strong - 4)
\item homfru: homogeneity of the intra-fruit coloring (1/strong - 4)
\item pubesc: pubescence (0/none - 4)
\item verrou: intensity of green in red area (1/none - 4)
\item foncee: intensity of dark area (0/pink - 4)
\item comucr: intensity of the mucron color (1=no contrast - 4/dark)
\item impres: kind of impression (1/watched - 4/pointillé)
\item coldom: intensity of the predominating color (0/clear - 4)
\item calibr: grade (1/<90g - 5/>200g)
}
}
\source{ Kervella, J. (1991) Analyse de l'attrait d'un produit :
exemple d'une comparaison de lots de pêches. Agro-Industrie et
méthodes statistiques. Compte-rendu des secondes journées
européennes. Nantes 13-14 juin 1991. Association pour la
Statistique et ses Utilisations, Paris, 313--325.}
\examples{
data(fruits)
pcajug <- dudi.pca(fruits$jug, scann = FALSE)
pcavar <- dudi.pca(fruits$var, scann = FALSE)
if(adegraphicsLoaded()) {
g1 <- s.corcircle(pcajug$co, plot = FALSE)
g2 <- s.class(pcajug$li, fac = fruits$type, plot = FALSE)
g3 <- s.corcircle(pcavar$co, plot = FALSE)
g4 <- s.class(pcavar$li, fac = fruits$type, plot = FALSE)
G1 <- ADEgS(list(g1, g2, g3, g4), layout = c(2, 2))
G2 <- plot(coinertia(pcajug, pcavar, scan = FALSE))
} else {
par(mfrow = c(2,2))
s.corcircle(pcajug$co)
s.class(pcajug$li, fac = fruits$type)
s.corcircle(pcavar$co)
s.class(pcavar$li, fac = fruits$type)
par(mfrow = c(1,1))
plot(coinertia(pcajug, pcavar, scan = FALSE))
}
}
\keyword{datasets}
|
