Function to identify the middle of a vector

middle(w, rm = 1/3)

Arguments

w: A numeric vector of values
rm: A value between 0 and 1 giving the percentage of extreme observations to remove

A logical vector of indices that a