prop.test(27,68,0.235)
pfizer.data <- matrix(c(162, 18163, 8, 18190), nrow=2)
fisher.test(pfizer.data)
chisq.test(pfizer.data)
prop.test(x=c(162, 8), n=c(18325, 18198))

# or using the matrix, take the first row for x
# and the sums of the columns for n
prop.test(x=pfizer.data[1,], n=colSums(pfizer.data))