k<-50 Ns<-10000 a<-array(0,c(Ns,2,k)) f<-runif(k) for(i in 1:k){ a[,,i]<-sample(0:1,Ns*2,replace=TRUE,prob=c(f[i],1-f[i])) } d<-a[,1,]+a[,2,] d<-apply(d,1,cumsum) counter<-10*k+1 for(i in 1:k){ for(j in 1:10){ lab=paste("No. markers = ",i,…

東京大学医科学研究所GCOEミニシンポジウム RAのゲノム解析と今後(仮題） 2010年2月4日(金) @ 東京大学医科学研究所 スライド等(ドラフト) コンテンツ： 関節リウマチ(RA)は複合遺伝性疾患としていくつかの特長を持っている 遺伝性がまずまずあること 強力な…