Odds ratio and relative risk in R with multiple variables

Question

I have data set that looks like this:

cohort <- c("c_1", "c_2", "c_3")
exposed <- c(40, 32, 10)
not_exposed <- c(10, 15