| 所在主题: | |
| 文件名: 3.5.txt | |
| 资料下载链接地址: https://bbs.pinggu.org/a-2785676.html | |
| 附件大小: | |
|
(数据请见附件)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、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。 (如有侵权,欢迎举报) |
|
京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明