# initializing the objects
dsd <- DSD_Gaussians(k=3, d=2)
replayer <- DSD_Wrapper(dsd, 100)
replayer
p <- get_points(replayer, 50)
replayer
# resetting the dsd to the begining of the stream
reset_stream(replayer)
replayer
# set the dsd to position 21
reset_stream(replayer, pos=21)
replayer
Run the code above in your browser using DataLab