Diff of /w.sd.R [000000] .. [81de4e]

Switch to unified view

a b/w.sd.R
1
w.sd =
2
  function (x, w)
3
  {
4
    sumw = sum(w)
5
    sumw.sq = sum(w)^2
6
    w.sq = sum(w^2)
7
    denom = sum(w * ((x - mean(x))^2))
8
    sqrt((sumw * denom) / (sumw.sq - w.sq))
9
  }