## create a new rstream object (of subclass rstream.mrg32k3a)
s <- new("rstream.mrg32k3a")
## set increased precision flag of rstream object
rstream.incprecision(s) <- TRUE
## get increased precision flag of rstream object
rstream.incprecision(s)
Run the code above in your browser using DataLab