set.seed(1500)
stream <- DSD_Gaussians(k = 3, d = 2)
## define multiple tasks as a list
tasks <- DST_Multi(list(
DSAggregate_Window(horizon = 10),
DSC_DStream(gridsize = 0.1)
))
tasks
## update both tasks with the same stream
update(tasks, stream, n = 1000)
## inspect the results of the tasks
tasks$dsts[[1]]
get_model(tasks$dsts[[1]])
tasks$dsts[[2]]
plot(tasks$dsts[[2]])
Run the code above in your browser using DataLab