weighted.mean1 {cwhmisc}R Documentation

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.

Author(s)

Christian W. Hoffmann, c-w.hoffmann@sunrise.ch,
http://www.wsl.ch/personal_homepages/hoffmann/index_EN?-C=&n

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

[Package cwhmisc version 2.0.1 Index]