Я знаю, что есть пакет CRAN для функции odds.ratio. Тем не менее, мне было поручено написать свою собственную функцию отношения шансов с использованием Tidyverse. Мне нужно написать функцию, которая принимает фрейм данных в качестве аргумента с тремя переменными и четырьмя наблюдениями и возвращает соотношение шансов.
Это мой код для расчета кадра данных вне функции отношения шансов.
df <- data.frame(female = c("White", "White", "non-White", "non-White"),
male = c("White", "non-White", "White", "non-White"),
n = c(85, 5, 5, 10))
xtabs(n ~ female + male, df)
(85 * 10) / (5 * 5)
#34