如何使用curve（）拟合模型

Question

我是R的新手 - 我通过谷歌搜索无法找到一个好的答案，所以我感谢你的帮助。我有数据，当绘制时，显示对数曲线。我把它建模为lm（y~log（x））：

logEstimate <- lm(d$MaxHt~log(d$StemDens))
coef(logEstimate)
       (Intercept) log(Pycnan$TS) 
         51.37911       12.63334 

我想将这个模型的曲线拟合到我原始变量（x，y）的图上。我使用curve（）尝试了几种不同的方法，但我不断收到错误消息：

plot(d$MaxHt~d$StemDens)

curve(logEstimate, from=0, to=45, n=101, add=TRUE)

  

logEstimate（x）出错：找不到函数“logEstimate”

curve(51.37911+12.63334*log(d$StemDens), from=0, to=45, n=101, add=TRUE)

  

曲线错误（51.37911 + 12.63334 * log（Pycnan $ TS），add = TRUE，col =   2）：       'expr'必须是一个函数，或一个包含'x'

的调用或表达式

我不确定如何使logEstimate成为一个函数。在我尝试将它们拟合到原始数据的图之前，我也不确定是否缺少一个返回变换系数的步骤。任何建议将不胜感激！