data(noise_fluct)
agg <- null_aggregator$new(interleave_gaps = TRUE)
d_agg <- agg$aggregate(noise_fluct$time, noise_fluct$f500)
plotly::plot_ly(
x = d_agg$x[1:100], y = d_agg$y[1:100], type = "scatter", mode = "lines"
)
Run the code above in your browser using DataLab