Как настроить коэффициенты для подгонки нелинейной кривой с использованием нестандартной полиномиальной функции в R

Да, R имеет функцию nls для соответствия пользовательским функциям:

#create fake data
b0<-22
b1<-195
b2<-0.001
x<-sort(runif(1000, 0, 1))
y<-b0+x^b1/(b2*x)+ rnorm(1000, 2, 2)

#fit model
model<-nls(y~ beta0+x^beta1/(beta2*x), start=list(beta0=10, beta1=100, beta2=0.001))

print(summary(model))
#plot results
plot(x, y)
lines(x, predict(model, data.frame(x)), col="red")

В функции nls я определил вашу функцию и предоставил список начальных значений для параметров и разрешить R решить. nls - очень мощная функция, и я предлагаю потратить некоторое время на чтение документации.