Skip to content
if(!require('base')) {
    install.packages('base')
    library('base')
}
x <- c(0:10, 50)
xm <- mean(x)
c(xm, mean(x, trim = 0.10))