Weighted standard deviation

weighted.sd(x, wt, na.rm = TRUE)

Arguments

x	Numeric vector
wt	Numeric vector of weights
na.rm	Remove missing values (default is TRUE)

Calculate weighted standard deviation