weighted.mean1 {cwhmisc} | R Documentation |
Compute the (trimmed) arithmetic mean of the vector of values given as its first argument. The weights are given in the second argument.
weighted.mean1(x, w=NULL, trim = 0, na.rm=FALSE)
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. |
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.
Christian W. Hoffmann, c-w.hoffmann@sunrise.ch,
http://www.wsl.ch/personal_homepages/hoffmann/index_EN?-C=&n
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