# initializing the objects
stream <- DSD_Gaussians()
replayer <- DSD_Memory(stream, 100)
replayer
p <- get_points(replayer, 50)
replayer
# reset replayer to the beginning of the stream
reset_stream(replayer)
replayer
# set replayer to position 21
reset_stream(replayer, pos = 21)
replayer
Run the code above in your browser using DataLab