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
72
73
74
75
76
77
|
\name{foucart}
\alias{foucart}
\alias{plot.foucart}
\alias{print.foucart}
\title{K-tables Correspondence Analysis with the same rows and the same columns}
\description{
K tables have the same rows and the same columns.\cr
Each table is transformed by P = X/sum(X). The average of P is computing.\cr
A correspondence analysis is realized on this average.\cr
The initial rows and the initial columns are projected in supplementary elements.
}
\usage{
foucart(X, scannf = TRUE, nf = 2)
\method{plot}{foucart}(x, xax = 1, yax = 2, clab = 1, csub = 2,
possub = "bottomright", \dots)
\method{print}{foucart}(x, \dots)
}
\arguments{
\item{X}{a list of data frame where the row names and the column names are the same for each table}
\item{scannf}{a logical value indicating whether the eigenvalues bar plot should be displayed}
\item{nf}{if scannf FALSE, an integer indicating the number of kept axes}
\cr
\item{x}{an object of class 'foucart'}
\item{xax}{the column number of the x-axis}
\item{yax}{the column number of the y-axis}
\item{clab}{if not NULL, a character size for the labels, used with \code{par("cex")*clab}}
\item{csub}{a character size for the legend, used with \code{par("cex")*csub}}
\item{possub}{a string of characters indicating the sub-title position ("topleft", "topright", "bottomleft", "bottomright")}
\item{\dots}{further arguments passed to or from other methods}
}
\value{
\code{foucart} returns a list of the classes 'dudi', 'coa' and 'foucart'
\item{call}{origine}
\item{nf}{axes-components saved}
\item{rank}{rank}
\item{blo}{useful vector}
\item{cw}{vector: column weights}
\item{lw}{vector: row weights}
\item{eig}{vector: eigen values}
\item{tab}{data.frame: modified array}
\item{li}{data.frame: row coordinates}
\item{l1}{data.frame: row normed scores}
\item{co}{data.frame: column coordinates}
\item{c1}{data.frame: column normed scores}
\item{Tli}{data.frame: row coordinates (each table)}
\item{Tco}{data.frame: col coordinates (each table)}
\item{TL}{data.frame: factors for Tli}
\item{TC}{data.frame: factors for Tco}
}
\references{Foucart, T. (1984) \emph{Analyse factorielle de tableaux multiples}, Masson, Paris.
}
\author{Pierre Bady \email{pierre.bady@univ-lyon1.fr}\cr
Anne-Béatrice Dufour \email{anne-beatrice.dufour@univ-lyon1.fr}
}
\examples{
data(bf88)
fou1 <- foucart(bf88, scann = FALSE, nf = 3)
fou1
plot(fou1)
data(meaudret)
l1 <- split(meaudret$spe, meaudret$design$season)
l1 <- lapply(l1, function(x)
{row.names(x) <- paste("Sit",1:5,sep="");x})
fou2 <- foucart(l1, scan = FALSE)
if(adegraphicsLoaded()) {
kplot(fou2, row.plabels.cex = 2)
} else {
kplot(fou2, clab.r = 2)
}
}
\keyword{multivariate}
|
