・xtableを作ったのに加えて、ｃORをそろえて表示する
cor<-NULL
 for( i in 1:8)
　 {　
　 cor<-cbind(cor ,round(intetab[i,1]*intetab[i,4]/intetab[i,2]/intetab[i,3],digits=2) ,"")
　　 }　　   # ORの値と、空白が　交互に並ぶのがミソ
　　#　ORは小数点２までとした

・tableとくっつける
　　tab4_cor<-rbind(abcd,cor)　#　２×２表の下に　ｃORが表示される
　

　いつのまにか、文字になっている.Inf の文字のせいか、数値に戻しがたい.
　ビュアーで指標を並べてみるならこれでよしとする.