data(smoking)
m1 <- metainc(d.smokers, py.smokers,
d.nonsmokers, py.nonsmokers,
data=smoking, studlab=study)
print(m1, digits=2)
data(lungcancer)
m2 <- metainc(d.smokers, py.smokers,
d.nonsmokers, py.nonsmokers,
data=lungcancer, studlab=study)
print(m2, digits=2)
Run the code above in your browser using DataLab