■　IDごとの因子たちの重複を計算してみる記述　
 　・・のうちy1　や　tでありかつ・・
　生起因子との重複もわかる
    対角線を眺めれば、曝露数となっている；同一因子名の交叉する数値
■     【　ｎ×ｎ　曝露重なりをみる表　記述　】
-------------------------
# 行列を定義；表となる枠
　　tem.data　<-　　osd　　　　　　　　　　　# 具体データを tem.dataに複写　
　　　　　　　　　　 ↑　runさせる前に、書き入れる
　　n.of.col<-　ncol(tem.data)　　　　　　      　#　列数　 y含む因子数
 matrixdata<-matrix(0, nrow =n.of.col , ncol = n.of.col)　#　行列を定義；わく
  colnames(matrixdata)<- colnames(tem.data)　　#　列名、行名を データから写す
  rownames(matrixdata)<- colnames(tem.data)
mxda<-matrixdata　　　　　　　　　　　　　    #　事例ごとの行列の名前をふる　
mxda　　　　　　　　　　　　　　　　　　      #　データ入れる行列完成
　　　
#《   因子数×因子数　 重なり表 作る記述 データを書き込む繰り返し処理  》  　　　　　
　　　
for( i in 1:n.of.col)　{
   for( j in 1:n.of.col)  {
      kasanari<-   sum(    tem.data[,i ]*tem.data[,j]  )　　#　単に因子同士の重なり
　　　　　　　#　　 ↑　ここには tem.data[,13]*viceとの重なりをみるとき入れる　　　；
         mxda [i,j] <- kasanari   　　　#　■mxda　i,j 番目に　重なりID 数を入れる   
　#　　↑　run前に　具体名を書き入れる　；保存される
      }  
    }   
   mxda　   #　因子曝露重なり表 をみる　　       
　---------------------------　　

----------
船事例　重なり表
  hunezireibakurozyuuhuku