如何计算R

Question

我是R的新手

我的数据附在谷歌表格中。它只是一小部分数据。数据有12274行和107列

点击下面的链接获取数据 https://docs.google.com/spreadsheets/d/1kpWtAxj7XTNaXowMjBsZ5lWm6LlbdE2nzH6s6Pll1Y8/edit?usp=sharing

我想逐一计算PH和所有其他变量的几率和风险比。 试图用这个：

tab <- table(mydata[[i]],mydata[[j]])
OddsRatio <- epitab(tab,method = "oddsratio")

但它没有帮助。 请建议解决方案
提前谢谢

Answer 1

不确定这是否正是您想要的，但vcd::oddsratio是一个很好的起点！

# load libraries
library(gsheet)
library(vcd)
# load data
df <- gsheet2tbl('docs.google.com/spreadsheets/d/1kpWtAxj7XTNaXowMjBsZ5lWm6LlbdE2nzH6s6Pll1Y8')
# remove NAs
df <- df[,-3]
df <- df[-8,]
# convert to matrix 
mat <- data.matrix(df, rownames.force = NA)
# calculate odds ratio
oddsratio(mat, log = FALSE)