24小时热门版块排行榜

返回列表

pingjunping

木虫 (小有名气)

应助: 2 (幼儿园)
金币: 2643.3
帖子: 225
在线: 28.4小时
虫号: 176765
注册: 2006-02-05
专业: 塑料

[求助] 请教一个二元回归问题，求高手解决，谢谢。

在实际工作中遇到一个结果受两变量影响的问题，所得数据如下：前两列为自变量，最后一列为因变量。
1500,70,42971
1600,67,44314
1700,66,45653
1800,65,47570
1900,64,48090
2000,63,49275
2100,62,50360
想回归一个方程出来，但限于水平，无法做到，求高手帮忙，谢谢。
传说用Eviews可以回归，相关软件可由下述链接获得。不过我没有下载权限，如有有权限的虫友，请帮忙下载，发到pingjunping@163.com，欲以10个金币为谢。
http://bbs.jjxj.org/thread-86278-1-1.html

回复此楼

» 猜你喜欢

Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有6人回复
2025冷门绝学什么时候出结果已经有4人回复
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有5人回复
论文投稿，期刊推荐已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有4人回复
孩子确诊有中度注意力缺陷已经有14人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

1楼2013-08-26 11:58:25

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

应助: 1641 (讲师)
金币: 15037.3
散金: 101
红花: 234
帖子: 3410
在线: 1223.5小时
虫号: 291104
注册: 2006-10-28

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
pingjunping: 金币+2, ★有帮助, 谢谢应助，但感觉模型过于复杂，无法赋予物理意义。 2013-08-26 12:42:08

模型公式不确定可以考虑用1stOpt的公式自动搜索匹配功能，下面是一个，供参考：

z = (p1+p2*Ln(x)+p3*(Ln(x))^2+p4*Ln(y)+p5*(Ln(y))^2+p6*(Ln(y))^3)/(1+p7*Ln(x)+p8*(Ln(x))^2+p9*Ln(y))

均方差(RMSE): 14.24223878617
残差平方和(SSE): 1419.88955949599
相关系数(R): 0.999983565991779
相关系数之平方(R^2): 0.999967132253634
确定系数(DC): 0.999967098698168

参数名参数值
=============== ===============
p1       -7610301.22453622
p2       -552582.084112797
p3       42076.5230484206
p4       7169011.13012496
p5       -1813668.84952036
p6       152125.438113139
p7       -1.85072796456706
p8       0.240098391852571
p9       -0.149667132148575

数据少了点，应该再多些。

赞一下

回复此楼

2楼2013-08-26 12:09:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xxka

木虫 (小有名气)

应助: 11 (小学生)
金币: 1996.3
红花: 2
帖子: 146
在线: 67.4小时
虫号: 200288
注册: 2006-02-27
专业: 数理统计

【答案】应助回帖

★
感谢参与，应助指数 +1
pingjunping: 金币+1, ★有帮助, 谢谢应助 2013-08-27 11:53:40

我是用R软件做的
程序：
x=t(matrix(c(1500,70,42971,1600,67,44314, 1700,66,45653, 1800,65,47570, 1900,64,48090 , 2000,63,49275, 2100,62,50360),3,))
lm.x=lm(x[,3]~x[,1]+x[,2])
summary(lm.x)
结果：

Call:
lm(formula = x[, 3] ~ x[, 1] + x[, 2])

Residuals:
      1       2       3       4       5       6       7
-6.714e-14 -2.571e+02 -1.071e+02  6.208e+02 -4.818e+01 -5.221e+01 -1.562e+02

Coefficients:
         Estimate Std. Error t value Pr(>|t|)
(Intercept) 42605.905  20922.681 2.036 0.1114
x[, 1]       9.835    2.985 3.295 0.0301 *
x[, 2]    -205.533 239.700  -0.857 0.4395
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 350.9 on 4 degrees of freedom
Multiple R-squared:  0.9886, Adjusted R-squared:  0.9829
F-statistic: 173.3 on 2 and 4 DF,  p-value: 0.0001302

赞一下(1人)

回复此楼

3楼2013-08-26 12:34:57

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖