Calculando margem de erro

.R

### calculando margem de erro

# p = probabilidade
# n = tamanho da amostra
# z = 1.96 para 95% de confiança em um teste bicaudal
# base = 1 para probabilidades de 0 a 1, ou 100 para probabilidades de 0 a 100

margem <- function(p, n, z=1.96, base=1) {
  Margem = z * base * sqrt((p/base * (1-(p/base)))/n)
  return(Margem)
}