R语言平均值和加权平均值

> a=c(70,80,60)
> mean(a)  #平均值
[1] 70
> wt=c(3,3,4) 
> weighted.mean(a,wt) #加权平均值
[1] 69