### Name: shorth
### Title: Midpoint of the shorth
### Aliases: shorth
### Keywords: arith

### ** Examples

  x <- c(rnorm(100), runif(100) * 10)
  mean(x)
  median(x)
  shorth(x)