ちょっとメモ

• 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,]

• こんな風にできるそうだ(ヒストグラムの重ね描きの記事を探していたら行き着いた)
  • order()関数を使う
    • なんか、怒られそうだから、メモしておこう。
      • 置換の処理とか、空間の座標軸の変換のこととかがやりたいときに考えたプロセスのメモだった
  • sample()関数は、要素数が１つの場合とそうでない場合で違う処理をする(このために、サンプリングする元の要素数が１の場合もあって不定のときに、想像と違う動きをすることがあったっけ）