R语言计算数学期望实例