# creating data and writing it to disk
stream <- DSD_Gaussians(k=3, d=5, outliers=1,
outlier_options=list(outlier_horizon=10))
write_stream(stream, file="data.txt", n=10, class=TRUE, write_outliers=TRUE)
#file.show("data.txt")
# clean up
file.remove("data.txt")
Run the code above in your browser using DataLab