Non Linear, Regression, R, Modelling.
function(nls_object, data) { predframe <- tibble(x=seq(from=min(datasub$x), to=max(datasub$x), length.out = 1024)) %>% mutate(ypred = predict(nls_object, newdata = list(x=.$x))) ggplot(data, aes(x=x, y=y)) + geom_point(size=3, alpha=0.5) + geom_line(data = predframe, aes(x=x, y=ypred), col="red",