r语言拟合二次曲线

在R语言中，可以使用lm()函数拟合一条二次曲线。以下是一个示例代码：

# 创建数据
x <- 1:10
y <- c(2, 5, 10, 17, 26, 37, 50, 65, 82, 101)

# 拟合二次曲线模型
model <- lm(y ~ poly(x, 2, raw = TRUE))

# 绘制拟合曲线和原始数据
plot(x, y)
lines(x, predict(model), col = "red", lwd = 2)

这段代码将会创建一个数据集，其中x为1到10的整数，y为一个二次函数的值。然后，使用lm()函数拟合一个二次曲线模型，并使用predict()函数生成对应的拟合曲线。最后，使用plot()函数绘制原始数据和拟合曲线。