mat <- matrix(c(100, 100, 100, 100), nrow = 2)
mat
oddsRatio(mat)
mat2 <- matrix(c(18515, 18496, 1427, 1438), nrow = 2)
rownames(mat2) <- c("Placebo", "Aspirin")
colnames(mat2) <- c("No", "Yes")
mat2
oddsRatio(mat2)
oddsRatio(mat2, verbose=FALSE)
relrisk(mat2, verbose=FALSE)
# example 2
out <- matrix(c(131,75,27, 6), nrow=2)
rownames(out) <- c("No disease", "Have disease")
colnames(out) <- c("<40%", ">40%")
oddsRatio(out)
Run the code above in your browser using DataLab