r - R中的三次回归

Question

我正在尝试将三次曲线拟合到我的散点图。我能够在 minitab 中毫无问题地做到这一点，但我发现很难将三次非线性回归拟合到我的数据中。我的数据设置如下：

AGE Value
3   10
4   10
5   11
5   13
6   10
7   9
8   8

Answer 1

查看?poly哪个（默认情况下）在您提供给它的 x 值范围内设置了指定度数的设计矩阵就绪正交多项式：

df <- read.table(text="AGE Value
3   10
4   10
5   11
5   13
6   10
7   9
8   8", header=TRUE)

lm(Value ~ poly(AGE, degree=3), data=df)

# Call:
# lm(formula = Value ~ poly(AGE, 3), data = df)
# 
# Coefficients:
#   (Intercept)  poly(AGE, 3)1  poly(AGE, 3)2  poly(AGE, 3)3  
#       10.1429        -2.0026        -2.3908         0.6019