Midx {DescTools} | R Documentation |

## Find the Midpoints of a Numeric Vector

### Description

Calculate the midpoints of a sequence of numbers. This is e.g. useful for labelling stacked barplots.

### Usage

```
Midx(x, incl.zero = FALSE, cumulate = FALSE)
```

### Arguments

`x` |
the numeric vector |

`incl.zero` |
should zero be appended to x before proceeding? If |

`cumulate` |
should the result be calculated as cumulative sum? Default is FALSE. |

### Value

numeric vector with the calculated midpoins

### Author(s)

Andri Signorell <andri@signorell.net>

### See Also

### Examples

```
x <- c(1, 3, 6, 7)
Midx(x)
Midx(x, incl.zero = TRUE)
Midx(x, incl.zero = TRUE, cumulate = TRUE)
# an alternative to
head(MoveAvg(c(0, x), order = 2, align = "l"), n = -1)
tab <- matrix(c(401,216,221,254,259,169), nrow=2, byrow=TRUE)
b <- barplot(tab, beside = FALSE, horiz=TRUE)
x <- t(apply(tab, 2, Midx, incl.zero=TRUE, cumulate=TRUE))
text(tab, x=x, y=b, col="red")
```

[Package

*DescTools*version 0.99.55 Index]