搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  3.5.txt
资料下载链接地址: https://bbs.pinggu.org/a-2785676.html
附件大小:
66 Bytes   举报本内容
(数据请见附件)TestData <- read.table(file="3.5.txt",header=T)
#画出散点图

x <-TestData$x
y<-TestData$y
plot(x,y,xlab='Formaldehyde concentration',ylab='Acetal degree')

#将一般等距点化为标准等距点
x <- (TestData$x-18)/2+1
plot(x,y,xlab='Formaldehyde concentration',ylab='Acetal degree')

#正交多项式回归
model <- lm(y ~ poly(x));model
summary(model)

#给出足够多的点进行预测,并画出图像
XTest <- seq(from=1, to=7, by=0.1)
predicted.intervals <- predict(model,data.frame(x=x),interval='confidence',level=0.95);predicted.intervals
lines(x,predicted.intervals[,1],col='green',lwd=3)
lines(x,predicted.intervals[,2],col='black',lwd=1)
lines(x,predicted.intervals[,3],col='black',lwd=1)

问题:
1、请问应如何解读回归模型结果中的参数?此处的结果是y=2.797*x+28.971吗?抑或应对得到的系数进行线性变换?
Coefficients:
(Intercept) poly(x)

28.971 2.797
2、对经多项式回归得到的模型,使用predict函数进行预测,可以较好地得到符合原始数据的预测值。但使用回归模型结果中的参数如上(y=2.797*x+28.971),得到的结果与原数据相比大相径庭,请问此处应如何解释,是问题一中提出的参数需经过线性变换再使用还是其他原因呢?
3、在运行过程中,发现无论使用原数据或者标准等距化的数据(x)进行回归模拟,得到的都是相同的结果,此处应如何理解呢?






    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

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

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

GMT+8, 2026-1-12 02:49