Austrazeneca

d<-read.csv("astra.csv")

## Warning in read.table(file = file, header = header, sep = sep, quote =
## quote, : incomplete final line found by readTableHeader on 'astra.csv'

f<-function(p,n){
  b<-binom.test(p,n)
  round(b$conf.int*100,2)}
d %>% rowwise %>% mutate(lwr=f(p,n)[1],mid=round(p/n*100,2), upr=f(p,n)[2]) -> d
d

## # A tibble: 3 x 6
## # Rowwise: 
##   Arm         p     n   lwr   mid   upr
##   <fct>   <int> <int> <dbl> <dbl> <dbl>
## 1 Placebo    99 11500  0.7   0.86  1.05
## 2 Half        3  2741  0.02  0.11  0.32
## 3 Full       29  8895  0.22  0.33  0.47

aqm::dt(d)