# NOT RUN {
my_seed <- gen_seed()
set_seed(my_seed)
r_norm(n=10)
set_seed(my_seed)
r_norm(n=10)
fix_seed()
r_norm(n=3)
fix_seed()
r_norm(n=3)
fix_seed(reset=TRUE)
r_norm(n=3)
res <- with_seed(my_seed, r_norm(n = 10))
res
pull_seed(res)
# }
Run the code above in your browser using DataLab