foucart {ade4} | R Documentation

## K-tables Correspondence Analysis with the same rows and the same columns

### Description

K tables have the same rows and the same columns.
Each table is transformed by P = X/sum(X). The average of P is computing.
A correspondence analysis is realized on this average.
The initial rows and the initial columns are projected in supplementary elements.

### Usage

    foucart(X, scannf = TRUE, nf = 2)
    plot.foucart(x, xax = 1, yax = 2, clab = 1, csub = 2, possub = "bottomright", ...)
    print.foucart(x, ...)

### Arguments

`X` | a list of data frame where the row names and the column names are the same for each table
`scannf` | a logical value indicating whether the eigenvalues bar plot should be displayed
`nf` | if scannf FALSE, an integer indicating the number of kept axes
`x` | an object of class 'foucart'
`xax` | the column number of the x-axis
`yax` | the column number of the y-axis
`clab` | if not NULL, a character size for the labels, used with `par("cex")*clab`
`csub` | a character size for the legend, used with `par("cex")*csub`
`possub` | a string of characters indicating the sub-title position ("topleft", "topright", "bottomleft", "bottomright")
`...` | further arguments passed to or from other methods

### Value

`foucart` returns a list of the classes 'dudi', 'coa' and 'foucart'

`call` | origine
`nf` | axes-components saved
`rank` | rank
`blo` | useful vector
`cw` | vector: column weights
`lw` | vector: row weights
`eig` | vector: eigen values
`tab` | data.frame: modified array
`li` | data.frame: row coordinates
`l1` | data.frame: row normed scores
`co` | data.frame: column coordinates
`c1` | data.frame: column normed scores
`Tli` | data.frame: row coordinates (each table)
`Tco` | data.frame: col coordinates (each table)
`TL` | data.frame: factors for Tli
`TC` | data.frame: factors for Tco

### Author(s)

P. Bady

### References

Foucart, T. (1984) Analyse factorielle de tableaux multiples, Masson, Paris.

### Examples

    data(bf88)
    fou1 <- foucart(bf88, scann = FALSE, nf = 3)
    fou1
    plot(fou1)

    data(meaudret)
    l1 <- split(meaudret$fau, meaudret$plan$dat)
    l1 <- lapply(l1, function(x)
        {row.names(x) <- paste("Sta",1:5,sep="");x})
    fou2 <- foucart(l1, scan = FALSE)
    kplot(fou2, clab.r = 2)

[Package Contents]