## Multiple Graphs for a Partial Triadic Analysis

### Description

performs high level plots of a Partial Triadic Analysis, using an object of class `pta`.

### Usage

```## S3 method for class 'pta':
kplot(object, xax = 1, yax = 2, which.tab = 1:nrow(object\$RV),
mfrow = NULL, which.graph = 1:4, clab = 1, cpoint = 2, csub = 2,
```

### Arguments

 `object` an object of class `pta` `xax, yax` the numbers of the x-axis and the y-axis `which.tab` a numeric vector containing the numbers of the tables to analyse `mfrow` parameter of the array of figures to be drawn, otherwise the graphs associated to a table are drawn on the same row `which.graph` an option for drawing, an integer between 1 and 4. For each table of which.tab, are drawn : 1the projections of the principal axes 2the projections of the rows 3the projections of the columns 4the projections of the principal components onto the planes of the compromise `clab` a character size for the labels `cpoint` a character size for plotting the points, used with `par("cex")`*cpoint. If zero, no points are drawn. `csub` a character size for the sub-titles, used with `par("cex")*csub` `possub` a string of characters indicating the sub-title position ("topleft", "topright", "bottomleft", "bottomright") `ask` a logical value indicating if the graphs requires several arrays of figures `...` further arguments passed to or from other methods

Daniel Chessel

### Examples

```data(meaudret)
wit1 <- within(dudi.pca(meaudret\$fau, scan = FALSE, scal = FALSE),
meaudret\$plan\$dat, scan = FALSE)
kta1 <- ktab.within(wit1, colnames = rep(c("S1","S2","S3","S4","S5"), 4))
kta2 <- t(kta1) ; pta1 <- pta(kta2, scann = FALSE)
kplot(pta1, clab = 1.5, csub = 3)
kplot(pta1, clab = 1.5, csub = 3, which.graph = 3, mfrow = c(2,2))
```

### Worked out examples

```
> ### Name: kplot.pta
> ### Title: Multiple Graphs for a Partial Triadic Analysis
> ### Aliases: kplot.pta
> ### Keywords: multivariate hplot
>
> ### ** Examples
>
> data(meaudret)
> wit1 <- within(dudi.pca(meaudret\$fau, scan = FALSE, scal = FALSE),
+     meaudret\$plan\$dat, scan = FALSE)
> kta1 <- ktab.within(wit1, colnames = rep(c("S1","S2","S3","S4","S5"), 4))
> kta2 <- t(kta1) ; pta1 <- pta(kta2, scann = FALSE)
> kplot(pta1, clab = 1.5, csub = 3)
```
```> kplot(pta1, clab = 1.5, csub = 3, which.graph = 3, mfrow = c(2,2))
```
```>
>
>
>
```