powered by
sdprop(x, na.rm = TRUE)
sdprop(c(rep(1L, 10), rep(0L, 10)))
Run the code above in your browser using DataLab