2011-08-24から1日間の記事一覧

シャッフルしたい列だけを入れ替える

n1<-3 # 行 n2<-4 # 列 # これがデータレコード行列 M<-matrix(sample(1:(n1*n2)),n1,n2) # シャッフル用の行列(行列のベクトル番地を値とする行列) sM<-matrix(1:length(M),nrow(M),ncol(M)) # シャッフルしたい行 tobeshuffled<-2:4 # シャッフルしたい行…