R語言中實現方差和標准差


1、

a <- c(1, 3, 4, 7, 9)

sum_a = 0
for (i in 1:length(a)) {
  sum_a = sum_a + a[i] 
  }
mean_a = sum_a / length(a)

va = 0
for (i in 1:length(a)) {
  va = va + (a[i] - mean_a) * (a[i] - mean_a)
}

s2 = va / (length(a) - 1)
sda = sqrt(s2) 
s2
var(a)

sda
sd(a)

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM