- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 0 个
- 通用积分
- 1.0000
- 学术水平
- 0 点
- 热心指数
- 0 点
- 信用等级
- 0 点
- 经验
- 222 点
- 帖子
- 5
- 精华
- 0
- 在线时间
- 102 小时
- 注册时间
- 2014-4-6
- 最后登录
- 2023-7-8
大专生
还不是VIP/贵宾
- 威望
- 0 级
- 论坛币
- 0 个
- 通用积分
- 1.0000
- 学术水平
- 0 点
- 热心指数
- 0 点
- 信用等级
- 0 点
- 经验
- 222 点
- 帖子
- 5
- 精华
- 0
- 在线时间
- 102 小时
- 注册时间
- 2014-4-6
- 最后登录
- 2023-7-8
| 开心 2019-7-19 21:57:10 |
---|
签到天数: 3 天 连续签到: 1 天 [LV.2]偶尔看看I
|
20论坛币
fit1 <- lm(y ~ x, data = data)
fit2 <- lm(y ~ x + I(x^2), data = data)
plot(data$x, data$y, xlab = "x", ylab = "y")
abline(fit1)
lines(data$x, fitted(fit2), lty = 1, col = "red")
画出的图是好多线,而不是一根曲线
|
|