自编求标准差的函数，哪里有问题？

自编求标准差的函数，运行结果不对，哪里有问题？
sd11<- function(y){
  n<-length(y)
  s<-0
  d<-0
  for(i in 1:n){
    s<-s+y[i]
  }
  s<- s/n
  for(j in 1:n){
    d<-d+(y[j]-s)^2
  }
  d<-d/n
  d<-sqrt(d)
  print(d)
}

谢谢了！

R里面的sd()函数是除以n-1的，所以你的应该是d<-d/(n-1)