#include <R.h> #include <Rinternals.h> SEXP generate_random(void) { GetRNGstate(); Rprintf("C: %.7f\n", unif_rand()); Rprintf("C: %.7f\n", norm_rand()); PutRNGstate(); return R_NilValue; }
set.seed(2024) runif(1) #> [1] 0.8369425 rnorm(1) #> [1] -0.4652743 set.seed(2024) generate_random() #> C: 0.8369425 #> C: -0.4652743 #> NULL