# initializing the objects
dsd <- DSD_GaussianStatic(k=3, d=2)
replayer <- DSD_Wrapper(get_points(dsd, 100), k=3)
replayer
p <- get_points(replayer, 50)
replayer
reset_stream(replayer) # resetting the dsd to its original state
replayer
Run the code above in your browser using DataLab