aboutsummaryrefslogtreecommitdiff
path: root/SyncRNG.R
diff options
context:
space:
mode:
Diffstat (limited to 'SyncRNG.R')
-rw-r--r--SyncRNG.R4
1 files changed, 2 insertions, 2 deletions
diff --git a/SyncRNG.R b/SyncRNG.R
index 23be4d2..1849d89 100644
--- a/SyncRNG.R
+++ b/SyncRNG.R
@@ -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])
},