probabilityを出してみた

R グリコ

N<-　100で桁多すぎて死亡。
50でやってみて、極端な\vec{p}をとりあえず入れてみた。

#極端にグーを出す
> probability
[1] 6.156864e-22
> p
     [,1]        [,2]         [,3]
[1,]    1 1.44129e-34 6.978894e-16

#極端にチョキを打す
> probability
[1] 1.207472e-21
> p
             [,1]      [,2]         [,3]
[1,] 5.768531e-06 0.9999942 7.349075e-09

#極端にパーを出す
> probability
[1] 9.054211e-22
> p
             [,1]         [,2] [,3]
[1,] 5.416117e-17 5.230816e-37    1

これをフィッシャーしようと思ったらどうするのでしょうか…