最优线性回归分析vba程序设计

《最优线性回归分析vba程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、农业网络信息·研究与开发·2012年第7期AGRJC【rI．rRENETWORKINFORMATION最优线性回归分析VBA程序设计陈庭木，方兆伟，徐大勇(江苏连云港市农科院，江苏连云港222006)摘要：采用成熟多元逐步线性回归算法，设计了基于EXCELVBA语言的程序，从EXCEL中获取数据，计算完成再将结果输出到EXCEL中，可以简化数据的录入或编辑。关键词：逐步线性回归分析；EXCEL；VBA；程序设计中图分类号：TP315文献标识码：A文章编码：1672—6251(2012)07—0023—04DesignofVBAProgrammingwithOpti

2、malLinearRegressionAnalysisCHENTingmu，FANGZhaowei，XUDayong(AgricuhuralScienceInstituteofLianyungang，JiangsulJanyungang222006)Abstract：Inthispaper，bythematurealgorithmofmultiplestepwiselinearregression，aprogrambasedonEXCELVBAlanguagewasdesignedtoobtaindatafromtheEXCEL，whencalculationwa

3、sdone，andtheresultswasoutputtedtoEXCEL，andthedataentryoreditingwassimplified．Keywords：stepwiselinearregressionanalysis；EXCEL；VBAprogramming1多元线性回归原理1，2⋯i⋯Lx1Y，，，农业系统中生物界生物生长影响因素众多，简单1一i⋯Lx2Y，，的线性回归不能适用，一般性地表达为多元关系，而；；多元关系中最为简单的为多元线性关系，生产上有很L)(i，1，1⋯，i⋯L，xB=LxiY多非线性关系也能通过变量代换的方法转换成多元线；

4、；；；性，如多项式回归。如果设应变量为，自变量为xjLXm，1LXm．1⋯1⋯L，LxY(i=l，2，⋯，i，⋯，In)，相应项系数为b。，常数项为bfl，有下式成立：记左边矩阵为x，右列向量为Y，得最小二乘法=估计公式为：6b++4-B=X．1×Y，b。：一∑biiQ：数一fi=l2多元线性逐步回归原理：一6b一一t⋯一⋯一b,Fm，)．由于自变量中不是所有变量对应变量作用显著，=电⋯⋯)=。且存在自变量间的复杂相关．若以所有自变量进入回，归方程．会因多重共线性，使方程复杂难以解释。统记B为(b，b2，⋯，b，⋯，b)T，记Lxi，j计学家提出多元线性逐步回归的

5、统计方法，应用紧凑为xi与的协方差，记Lxiy为xi与Y的协方差，有下变换算法，可以实现自变量进入、剔出方程的处理，式成立：直到所有进入方程的变量均对方程方差贡献显著，未基金项目：受连云港市农业攻关计划(编号CG1127)。作者简介：陈庭木(1977一)，男，本科，农艺师，研究方向：水稻遗传育种及生物统计学研究。通信作者：徐大勇，男，博士，研究员，研究方向：水稻遗传育种研究。收稿日期：2012_05—29—23—《农业网络信,~)2012年第7期研究与开发进入方程的变量对方程方差贡献不显著，依此算法，ForJ=lToNum设计VB程序，对数据进行回归分析，会得出一

6、个简IfI=mainnAndJ=main—nThen_明的方程【Ij。R(I，J)=1／MainElseIfI=main3程序设计思想_nAndJ<>mainnThen3．1变量入基模块R(I，J)=R(I，J)，Main函数格式Functionsingle_y_x_intofR0AsDou．ElseIfI<>main—nAndJ=main_nThenble，ByValNxyAsInteger，ByValtestAsInteger，BASER(I，J)：R(I，J)／Main-10AsInteger，Uvalue0AsDouble，newInterAsInte—E

7、lseger,ByValNSAMPLES)AsInteger，变量人基则返回R(I，J)=R(I，J)一mainrow(J)l，否则返回0。R()表示相关系数矩阵，Nxy表示自maincolumn(I)／Main变量与应变量总数test逻辑型值，为真则不进行入基EndIf变换运算，BASE0数组，表示自变量是否在方程Next中，是为1，否为0，Uvalue0数组，表示各自变量Next对应变量变化的方差贡献，newInter表示新筛选人基变EndSub量序号，NSAMPLES表示样本数。3．4F值无差别概率计算程序设计3．2变量出基模块F值无差别概率函数在EXCEL

8、中名称为F