Background

The Pfizer/BioNTech trial began in July, and has involved 43,538 volunteers, half of whom were given the vaccine and half of whom received a placebo. The committee issued its report when 94 of those participants had developed COVID-19 with at least one symptom. What we don’t yet know is how many of the 94 who were infected had been given the vaccine and how many were given the placebo – a vaccine can either stop you getting a virus or can mitigate the symptoms once you have it. Nor do we know how long the effect of this vaccine will last. All we know so far is that the vaccine was found to be effective 28 days after the second of the two doses.

n<- 43538
p1 <- 94
p2 <- 9
results = matrix(c(p1-p2,n/2,p2,n/2), nrow = 2)
mosaicplot(results)

fisher.test(results)
## 
##  Fisher's Exact Test for Count Data
## 
## data:  results
## p-value < 2.2e-16
## alternative hypothesis: true odds ratio is not equal to 1
## 95 percent confidence interval:
##   4.745868 21.364730
## sample estimates:
## odds ratio 
##   9.444052
 library(quantmod)
getSymbols("BNTX")
chartSeries(BNTX, theme = "white", subset = "2020")

chartSeries(BNTX, theme = "white", subset = 'last 1 months')