Rを利用した乱数の生成

Reference
https://twitter.com/Rbloggers/status/619947191340150784
http://cran.r-project.org/web/packages/random/random.pdf
> library(random)

#範囲を1から100までとした10進数の乱数を10個生成
> randomNumbers(n=10, min=1, max=100, col=5, base=10, check=TRUE)
     V1 V2 V3 V4 V5
[1,] 43 84 24 57 57
[2,] 24 84 35 62 92
Warning message:
closing unused connection 3 (https://www.random.org/quota/?format=plain) 

#範囲を1から100までとした10進数の乱数を10個生成(リストの列数を10とした場合)
> randomNumbers(n=10, min=1, max=100, col=10, base=10, check=TRUE)
     V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
[1,] 72  2 28 27 90 91 78  9 11   3

#範囲を1から100までとした2進数の乱数10個生成
> randomNumbers(n=10, min=1, max=100, col=10, base=2, check=TRUE)
     V1     V2      V3   V4    V5      V6    V7     V8     V9
[1,] 10 100010 1000000 1110 10010 1100000 11010 110110 111010
         V10
[1,] 1010001

#範囲を1から100までとした8進数の乱数10個生成
> randomNumbers(n=10, min=1, max=100, col=10, base=8, check=TRUE)
     V1  V2 V3  V4  V5 V6 V7 V8 V9 V10
[1,] 76 132 13 120 102 66 22 17  7  67

#範囲を1から100までとした16進数の乱数10個生成
> randomNumbers(n=10, min=1, max=100, col=10, base=16, check=TRUE)
     V1   V2   V3   V4   V5   V6   V7   V8   V9   V10 
[1,] "36" "46" "57" "28" "15" "53" "37" "0f" "4b" "43"

#重複なしで範囲1から10の乱数を10個生成
> randomSequence(min=1, max=10, col=10, check=TRUE)
     V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
[1,]  3  1  5  4  7  6 10  2  8   9

#randomNumbersは重複あり
> randomNumbers(n=10, min=1, max=10, col=10, base=10, check=TRUE)
     V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
[1,]  5  2  6  9  7  6  7  6  6   5

#ランダムな文字列生成(10個、長さは5文字、数字あり、大文字アルファベットあり、小文字アルファベットあり、重複なし)
> randomStrings(n=10, len=5, digits=TRUE, upperalpha=TRUE,loweralpha=TRUE, unique=TRUE, check=TRUE)
      V1     
 [1,] "IjHkX"
 [2,] "E4zJG"
 [3,] "K06Ly"
 [4,] "lHNWL"
 [5,] "YKHC2"
 [6,] "KVl1I"
 [7,] "r3Pin"
 [8,] "pU7Kx"
 [9,] "2AfxP"
[10,] "nzC7B"

#unique=TRUEで重複なし
> randomStrings(n=10, len=1, digits=TRUE, upperalpha=TRUE,loweralpha=TRUE, unique=TRUE, check=TRUE)
      V1 
 [1,] "c"
 [2,] "P"
 [3,] "8"
 [4,] "N"
 [5,] "4"
 [6,] "d"
 [7,] "i"
 [8,] "D"
 [9,] "6"
[10,] "B"

#unique=FALSEで重複あり
> randomStrings(n=10, len=1, digits=TRUE, upperalpha=TRUE,loweralpha=TRUE, unique=FALSE, check=TRUE)
      V1 
 [1,] "N"
 [2,] "y"
 [3,] "6"
 [4,] "N"
 [5,] "7"
 [6,] "d"
 [7,] "d"
 [8,] "P"
 [9,] "e"
[10,] "M"
>