Log In Sign Up
Models:
Daniel Galbraith
DanielG/
voomDDA
0
Downloads: 1
[0aeb11]: / w.sd.R

Download this file

10 lines (9 with data), 186 Bytes 

1
2
3
4
5
6
7
8
9
w.sd =

  function (x, w)

  {

    sumw = sum(w)

    sumw.sq = sum(w)^2

    w.sq = sum(w^2)

    denom = sum(w * ((x - mean(x))^2))

    sqrt((sumw * denom) / (sumw.sq - w.sq))

  }