20/12/15 21:01:37.64 QEfzM0Mb.net
関数の動作確認。
> (x=sample(3,4,re=T)) ; f(x)
[1] 2 1 2 3
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 3 2 2 1
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 1 1 2 3
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 3 1 2 3
[1] 0
> (x=sample(3,4,re=T)) ; f(x)
[1] 1 2 1 2
[1] 2
> (x=sample(3,4,re=T)) ; f(x)
[1] 2 2 3 3
[1] 2