Random-Numbers

#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