R/which.middle.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

Defines functions which.middle

Documented in which.middle

#' Title
#'
#' @param x
#'
#' @return
#' @export
#'
#' @examples
which.middle <- function(x) {which.min(abs(x - (max(x) + min(x)) / 2 ))}