与 R 中的标准函数var()和sd()相比,根据Wikipedia描述计算方差和标准差会给出不同的结果。
方差:4 对 4.571429。标准差:2 对 2.13809。
任何建议或解释?
> df <- c(2,4,4,4,5,5,7,9)
> df.length <- length(df)
> df.length
[1] 8
> df.mean <- sum(df) / df.length
> df.mean
[1] 5
> df.difference <- (df - df.mean)**2
> df.difference
[1] 9 1 1 1 0 0 4 16
> sum(df.difference)
[1] 32
> df.variance <- sum(df.difference) / df.length
> df.variance
[1] 4
> df.standard.deviation <- sqrt(df.variance)
> df.standard.deviation
[1] 2
> # mean, var and sd (default R)
> mean(df)
[1] 5
> var(df)
[1] 4.571429
> sd(df)
[1] 2.13809