How can I display the power function equation for the graph?

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 = "~~~~")))