Finalize a streaming LOWESS model
Examples
x <- seq(0, 10, length.out = 100)
y <- sin(x) + rnorm(100, 0, 0.1)
model <- StreamingLowess(fraction = 0.2, chunk_size = 50L)
invisible(process_chunk(model, x[1:50], y[1:50]))
finalize(model)
#> <LowessResult>
#> Points: 5
#> Fraction Used: 0.2