nsample<-100
nmarker<-10
d<-runif(nsample*nmarker)
d<-d-0.5
d<-sign(d)
m<-matrix(d,ncol=nsample)
c<-cov(t(m))
af<-apply(m,1,mean)
数学・コンピュータ関連の姉妹ブログ『ryamadaのコンピュータ・数学メモ』
京都大学大学院医学研究科ゲノム医学センター統計遺伝学分野のWiki
講義・スライド
医学生物学と数学とプログラミングの三重学習を狙う学習ツール
駆け足で読む○○シリーズ
ぱらぱらめくるシリーズ
カシオの計算機
オンライン整数列大辞典