Variance for proportion
varprop(x, na.rm = TRUE)
x
Input variable
na.rm
If TRUE missing values are removed before calculation
varprop(c(rep(1L, 10), rep(0L, 10)))