blob: 1849d8913b159b25c31d5678b5ba0fd5fea4605c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
library(methods)
dyn.load('RSyncRNG.so')
SyncRNG <- setRefClass('SyncRNG',
fields=list(
seed='numeric',
state='numeric'
),
methods=list(
initialize=function(..., seed=0) {
seed <<- seed
tmp <- .Call('R_syncrng_seed',
as.numeric(seed))
state <<- tmp[1:4]
callSuper(...)
},
randi=function() {
tmp <- .Call('R_syncrng_rand',
as.numeric(state))
state <<- tmp[1:4]
return(tmp[5])
},
rand=function() {
r <- randi()
return (r * 2.3283064365387e-10)
}
)
)
|
