非线性拟合问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

模型给出的 r square 高达0.999，AIC负130，应当是一个过渡拟合问题，但是拟合线却显示拟合程度并不好。请问这是怎么一回事？。。。。

Residual standard error: 0.05619 on 36 degrees of freedom
Multiple R-squared:  0.9999,        Adjusted R-squared:  0.9998
F-statistic: 2.605e+04 on 11 and 36 DF,  p-value: < 2.2e-16

> plot(x=data$x,y=data$z)
> lines(fitted(lm), lwd=2, type='l', col="blue")
> summary(lm)$r.sq
[1] 0.9998744
> AIC(lm)
[1] -127.9777

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：非线性 statistic Residual Multiple Standard

数据见 haiwenye 同学的帖子 https://bbs.pinggu.org/thread-3889190-1-1.html
代码见附件

求给数据和model，窝自己拟合一遍～

好吧，没看到1L。。。抱歉～

好吧，问题是拟合线的画法不对。我在 ggplot2 里重画了一下。如图，标准的过拟合

1. require(ggplot2)
   
2. ggplot(data, aes(x, z)) +
   
3.   geom_point() +
   
4.   stat_smooth(method = "lm", formula = y ~ poly(x,avg_poly_degree))

复制代码

但是有没有大神可以解释一下，这种画法为什么不对？

1. plot(x=data$x,y=data$z)
   
2. lines(fitted(lm), lwd=2, type='l', col="blue")

复制代码

ZhandaYang 发表于 2015-9-11 09:58
好吧，问题是拟合线的画法不对。我在 ggplot2 里重画了一下。如图，标准的过拟合

你是要线性拟合么？

试试

1. lines(x=datax, y=fitted(lm), lwd=2, type='l', col="blue")

复制代码