R/nanmean4.R

In specieschrom: The Species Chromatogram

#' Mean of the n highest values of a vector.
#'
#' @description Estimates the mean of the n% highest values in vector x.
#'
#' @param x a vector with the values to average
#' @param n an integer corresponding to the percentage of values to use
#'
#' @return mean of the n% highest values in vector x

nanmean4<-function(x,n){
  p<-length(x)

  p1<-ceiling((n*p[1])/100)

  ind<-sort(x,decreasing = TRUE)
  y<-mean(ind[1:p1],na.rm = TRUE)
}