powered by
wtd_sd(x, weights = NULL) wtd_se(x, weights = NULL)
x
wtd_sd(rnorm(n = 100, mean = 3), runif(n = 100)) data(efc) wtd_sd(efc[, 1:3], runif(n = nrow(efc))) wtd_se(efc[, 1:3], runif(n = nrow(efc)))
Run the code above in your browser using DataLab