计算R中向量的平方偏差（平均值）之和的函数？

Question

我想找到一个函数来计算与矢量平均值的平方偏差之和

> x<-c(16, 17, 18, 20, 16, 20, 20, 18, 18, 15, 16, 16, 19, 17, 19)
> sum((x-mean(x))^2)
> 39.333

功能

> function(x)
> 39.333

我想找到中位数

Answer 1

另请注意，sum((x-mean(x))^2)为(n-1)*var(x)，因此：

ssd <- function(x) var(x)*(length(x)-1)
ssd(x)
# [1] 39.33333

由于var(...)是用C编码的，因此它比更更快。