diff options
Diffstat (limited to 'SyncRNG.R')
| -rw-r--r-- | SyncRNG.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -11,13 +11,13 @@ SyncRNG <- setRefClass('SyncRNG', initialize=function(..., seed=0) { seed <<- seed tmp <- .Call('R_syncrng_seed', - as.integer(seed)) + as.numeric(seed)) state <<- tmp[1:4] callSuper(...) }, randi=function() { tmp <- .Call('R_syncrng_rand', - as.integer(state)) + as.numeric(state)) state <<- tmp[1:4] return(tmp[5]) }, |
