R/trimmedMean.R

Defines functions trimmedMean

Documented in trimmedMean

trimmedMean = function(x, Trim=0.05) 
{
  x = as.numeric(x)  
  if (!(is.numeric(x) & is.vector(x))) stop("Input should be a numeric vector!")  
  mean(x, trim=Trim, na.rm=TRUE)
}

Try the sasLM package in your browser

Any scripts or data that you put into this service are public.

sasLM documentation built on Sept. 5, 2022, 5:11 p.m.