R语言验证及协方差的计算公式