Nothing
#' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.