## File Name: weighted_sd.R
## File Version: 0.08
# weighted standard deviation
weighted_sd <- function( x, w=rep(1,length(x) ), method="unbiased",
select=NULL)
{
res <- sqrt( weighted_var(x=x, w=w, method=method, select=select) )
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.