[Rcpp-devel] Setting the R random seed from Rcpp

-----Original Message-----
From: rcpp-devel-bounces at lists.r-forge.r-project.org [mailto:rcpp-devel-
bounces at lists.r-forge.r-project.org] On Behalf Of Romain Francois
Sent: Friday, June 07, 2013 7:42 AM
To: Matteo Fasiolo
Cc: rcpp-devel at lists.r-forge.r-project.org
Subject: Re: [Rcpp-devel] Setting the R random seed from Rcpp


You can do something like this (i'm on my phone, so you might have to change it):

Environment g = Environment::global_env() ;
Environment::Binding RandomSeed = g[".Random.seed"] ;

You get the current value of the binding like this:

NumericVector someVariable = RandomSeed ;

And then when you want to set the variable: you just do :

RandomSeed = someVariable ;

The Environment::Binding class acts a a proxy class.

Romain


Le 7 juin 2013 ? 16:22, Matteo Fasiolo <matteo.fasiolo at gmail.com> a ?crit :

Dear Rcpp experts,

 I would like to be able to store the R random seed from a Rcpp
function and then reset it. In other words I would like to replicate
the following code in Rcpp:

savedSeed <- .Random.seed
x <- Rfunction(parameters1);

.Random.seed <- savedSeed
x1 <- Rfunction(parameters2);

where Rfunction simulates some random numbers and uses them
but with different parameter values.
Is it possible to do something similar in Rcpp?
Probably using GetRNGstate() and PutRNGstate()?

Thanks,

Matteo