## Description: Function trimmedmean computes the MLE of the variance
## Arguments:
##    x: A numeric vector
##
## Note: Function trimmedmean does always strip all NA values.
##
## Code:

trimmedmean <- function(x)
{
  stopifnot(is.numeric(x))
  print("La media truncada al 10% es:")

media_trunc <- mean(x,trim =0.1 ,na.rm = T)
  return(media_trunc)
}