# NOT RUN {
cataract<-c(33,8,356,65,23,6,222,35,
139,19,477,82,114,30,451,45,
76,33,210,23,99,26,282,27,
172,121,133,25,364,165,237,32)
cataract<-array(cataract,c(2,2,8))
dimnames(cataract)<-list(light=c("less","more"),
status=c("case","referent"),
str=c("M20-44","F20-44","M45-64","F45-64","M65-74","F65-74","M75+","F75+")
)
cataract2<-cataract[,2:1,]
dstat2x2xk(cataract2,gamma=2.365,kappa=1)
# }
Run the code above in your browser using DataLab