数値列がある。それを入れ替えたい すべての要素が入れ替えられていて、一つとしてもとの順番になっていないようにする 使える関数があるかと思ったが見つからないので、作る バグがあったので少し修正しました(20110126) shuffle<-function(x){# xは数値ベ…