遺伝学・遺伝統計学関連の姉妹ブログ『ryamadaの遺伝学・遺伝統計学メモ』
京都大学大学院医学研究科ゲノム医学センター統計遺伝学分野のWiki
講義・スライド
医学生物学と数学とプログラミングの三重学習を狙う学習ツール
駆け足で読む○○シリーズ
ぱらぱらめくるシリーズ
カシオの計算機
オンライン整数列大辞典

2011-06-22から1日間の記事一覧

ちょっとメモ

R 順列 置換

1,2,...,Nの順列の逆対応を作るRソース InvSeq<-function(v){ M<-diag(rep(1,length(v))) M<-M[v,] M<-t(M) as.vector(M%*%(1:length(v))) } N<-5 s<-sample(1:N,N) s invs<-InvSeq(s) invs Im<-diag(rep(1,N)) Im[s,]%*%Im[invs,] こんな風にできるそうだ(…