Computes and draws the closed geometric mean of the set of points specified.

## Usage

```
ternary_mean(x, y, z, ...)
# S4 method for numeric,numeric,numeric
ternary_mean(x, y, z, ...)
# S4 method for ANY,missing,missing
ternary_mean(x, y, z, ...)
```

## Arguments

- x, y, z
A

`numeric`

vector giving the x, y and z ternary coordinates of a set of points. If`y`

and`z`

are missing, an attempt is made to interpret`x`

in a suitable way (see`grDevices::xyz.coords()`

).- ...
Further arguments to be passed to

`graphics::points()`

.

## See also

Other statistics:
`ternary_ellipse()`

,
`ternary_hull()`

## Examples

```
## Compositional data
coda <- data.frame(
X = c(96, 49, 57, 92, 62, 85, 75, 76, 30, 36,
55, 93, 78, 10, 50, 69, 50, 91, 13, 24),
Y = c(59, 90, 18, 99, 80, 22, 74, 43, 68, 80,
30, 84, 84, 48, 79, 53, 32, 91, 19, 48),
Z = c(33, 88, 7, 58, 81, 16, 48, 91, 85, 12,
94, 81, 32, 39, 39, 32, 65, 35, 4, 12)
)
## Mean
ternary_plot(coda, panel.first = ternary_grid())
ternary_mean(coda, pch = 16, col = "red")
ternary_confidence(coda, level = 0.95, border = "red", lty = 1)
```