# initializing the objects
stream <- DSD_Gaussians(k=3, d=2)
replayer <- DSD_Memory(stream, 100)
replayer
p <- get_points(replayer, 50)
replayer
# reset replayer to the begining 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 DataCamp Workspace