I've created a graph using *geom_smooth* and it displays correctly however *stat_regline_equation* displays the equation for a linear graph. How can I get the correct power function like in *LibreOffice*? My code:

```
i = c(.001, .002, .004, .008, .016, .032, .064, .13, .26, .52)
r = c(.0006, .0022, .0063, .02, .042, .12, .34, 1.1, 3.2, 9.5)
resistancies = data.frame(i = i, r = r)
colnames(resistancies) = c("I(A)", "R(Ω)")
resistancies %>% kbl(caption = "Takistused") %>% kable_styling(bootstrap_options = c("striped", "hover"))
ggplot(data = resistancies, mapping = aes(x = i, y = r)) +
labs(x = "I(A)", y = "R(Ω)") +
geom_point() +
geom_line() +
geom_smooth() +
stat_regline_equation(aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~~")))
```