cwhmisc (version 2.1)

weighted.mean1: Weighted mean1

Description

Compute the (trimmed) arithmetic mean of the vector of values given as its first argument. The weights are given in the second argument.

Usage

weighted.mean1(x, w=NULL, trim = 0, na.rm=FALSE)

Arguments

x

a numeric vector containing the values whose mean is to be computed.

w

a numeric vector containing the weights.

trim

the fraction (0 to 0.5) of observations to be trimmed from each end of x before the mean is computed.

na.rm

a logical value indicating whether NA values should be stripped before the computation proceeds.

Value

• If trim is zero (the default), the arithmetic mean of the values in x is computed. If trim is non-zero, a symmetrically trimmed mean is computed with a fraction of trim observations deleted from each end before the mean is computed.

See Also

weighted.mean, mean, quantile

Examples

weighted.mean1(c(7,1,2,4,10,15),c(1,1/3,1/3,1/3,1,1)) # 8.583333333
weighted.mean1(c(1,2,4,7,10,15),c(1/3,1/3,1/3,1,1,1)) # ordered differently  8.583333333
weighted.mean1(c(7,7/3,10,15)) # same as previous, but unweighted:
         # '1','2','4 of weights='1/3' are replaced by '7/3' (weight=1)

weighted.mean1(c(7,1,2,4,10),c(1,1/3,1/3,1/3,1)) #  6.444444444
weighted.mean1(c(7,1,2,4,10)) #  4.8
weighted.mean1(c(7,1,NA,4,10),c(1,1/3,1/3,1/3,1),na.rm =TRUE) # 7