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