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