"R - 与原始数据不相关的无症状回归函数"

Question

我正在尝试使用 R 使用方程 $$f(x) = a + (ba)(1-\\exp(-cx))$$ 通过渐近函数对原始数据进行建模。为此，我使用了以下代码：

rawData <- import("path/StackTestData.tsv")

# executing regression
X <- rawData$x
Y <- rawData$y
model <- drm(Y ~ X, fct = DRC.asymReg())

# creating the regression function
f_0_ <- model$coefficients[1] #value for y if x=0
steepness <- model$coefficients[2]
plateau <- model$coefficients[3] 
eq <- function(x){f_0_+(plateau-f_0_)*(1-exp(-steepness*x))}

# plotting the regression function together with the raw data
ggplot(rawData,aes(x=x,y=y)) +
  geom_line(col="red") +
  stat_function(fun=eq,col="blue") +
  ylim(10,12.5)