r - 寻找一种方法来找到正交回归的微分方程

Question

我在 R 中使用正交回归来找到两个变量之间的关系。我想在最佳拟合线上的几个点中找到切线。

D(expression (model), "x") 

给了我一个非常意想不到的结果。我怀疑这是因为 poly 函数使用正交多项式。在上面的回归中我得到

D(expression(44+ 67*x -5.5*x^2), "x")

返回我

67 - 5.5 * (2 * x)  

这显然是错误的，“就像系数一样”（知道它们没有错）。

x <- c(1,2,3,4,5,6,7,8,9,10)
y <-c(10,15,23,33,46,50,57,63,68,75)
model <- lm( y ~poly(x,2))  

现在我想找到 x=2 和 x=7 的切线

如果我只看数字，我怀疑在 x=2 中，切线会是 6.5 之类的东西？(23-10) / (3-1)

因为它是二阶多元回归，所以输入我从回归中得到的汇总变量是没有意义的，因为它给出了毫无意义的结果

标签： rregressionpoly