File _Classified.m

今天写程序有点迷,由于这个已经完善很多遍了,不需要怎样润色,索性直接扔上来充数吧

以下为文件“Assignment4.m”的全部命令:

% 0.导入收集好的数据
%本次作业采用了2007年和2008年北京市各区(不含崇文区和宣武区)的指标数据,其中包括财政收入、固定资产投资、地区生产总值、常住人口数、消费、利用外资,共六项指标(均已在Excel中对数化处理)。
%数据导入后分别记作:矩阵y1为2007年财政收入,矩阵y2为2008年财政收入,矩阵x1为2007年其余五项指标(顺序依固定资产投资、地区生产总值、常住人口数、消费、利用外资),x2为2008年其余五项指标(固定资产投资、地区生产总值、常住人口数、消费、利用外资)。
%其中矩阵dd为直线距离权重矩阵(Direct Distance),矩阵nm为领域权重矩阵(Neighborhood
%Matrix),矩阵w1为2007年经济距离权重矩阵,矩阵w2为2008年经济距离权重矩阵(经济距离计算方法为两区本年度公共支出数额只差的绝对值)。

% 1.前期矩阵准备
dd = fanzhuan(dd);  %补全直线距离权重矩阵
w1 = fanzhuan(w1);  %补全2007年经济距离权重矩阵
w2 = fanzhuan(w2);  %补全2008年经济距离权重矩阵
w3 = 0.4.*w1 + 0.6.*w2;  %构建一个组合空间权重矩阵(2007年权重为40%,2008年权重为60%)

% 2.标准化
dd = hbzh(dd);  %将直线距离权重矩阵进行行标准化
w1 = hbzh(w1);  %将2007年经济距离权重矩阵进行行标准化
w2 = hbzh(w2);  %将2008年经济距离权重矩阵进行行标准化
w3 = hbzh(w3);  %将组合空间权重矩阵进行行标准化

% 3.莫兰检验
test1 = moran(y1,x1,dd)  %进行莫兰检验
test2 = moran(y1,x1,nm) 
test3 = moran(y1,x1,w1) 
test4 = moran(y1,x1,w2) 
test5 = moran(y1,x1,w3) 
test6 = moran(y2,x2,dd) 
test7 = moran(y2,x2,nm) 
test8 = moran(y2,x2,w1) 
test9 = moran(y2,x2,w2) 
test10 = moran(y2,x2,w3)

% 4.构建空间自回归模型
results1 = sar(y1,x1,dd);  %空间自回归模型的极大似然估计
prt(results1)  %对空间自回归模型的极大似然估计结果格式化
results2 = sar(y1,x1,nm);
prt(results2) 
results3 = sar(y1,x1,w1);
prt(results3)  
results4 = sar(y1,x1,w2);
prt(results4)  
results5 = sar(y1,x1,w3);
prt(results5)  
results6 = sar(y2,x2,dd);
prt(results6)  
results7 = sar(y2,x2,nm);
prt(results7)  
results8 = sar(y2,x2,w1);
prt(results8)  
results9 = sar(y2,x2,w2);
prt(results9)  
results10 = sar(y2,x2,w3)
prt(results10)  

% 5.构建空间误差模型
results11 = sem(y1,x1,dd)
prt(results11)
results12 = sem(y1,x1,nm);
prt(results12)
results13 = sem(y1,x1,w1);
prt(results13)
results14 = sem(y1,x1,w2);
prt(results14)
results15 = sem(y1,x1,w3);
prt(results15)
results16 = sem(y2,x2,dd);
prt(results16)
results17 = sem(y2,x2,nm);
prt(results17)
results18 = sem(y2,x2,w1);
prt(results18)
results19 = sem(y2,x2,w2);
prt(results19)
results20 = sem(y2,x2,w3);
prt(results20)

% 6.构建空间杜宾模型
results21 = sdm(y1,x1,dd);  %空间杜宾模型参数估计
prt(results21)
results22 = sdm(y1,x1,nm);
prt(results22)
results23 = sdm(y1,x1,w1);
prt(results23)
results24 = sdm(y1,x1,w2);
prt(results24)
results25 = sdm(y1,x1,w3);
prt(results25)
results26 = sdm(y2,x2,dd);
prt(results26)
results27 = sdm(y2,x2,nm);
prt(results27)
results28 = sdm(y2,x2,w1);
prt(results28)
results29 = sdm(y2,x2,w2);
prt(results29)
results30 = sdm(y2,x2,w3);
prt(results30)

% 7.构建空间面板数据模型
xp = vertcat(x1,x2);  %将2007年和2008年的数据矩阵纵向合并为一个矩阵,形成空间面板数据结构
yp = vertcat(y1,y2);  %将2007年和2008年的数据矩阵纵向合并为一个矩阵,形成空间面板数据结构
results31 = sar_panel_FE(yp,xp,dd,2);  %空间固定效应面板数据自回归模型,时期数为2(2007年、2008年)
prt(results31)
results32 = sar_panel_FE(yp,xp,nm,2);
prt(results32)
results33 = sar_panel_FE(yp,xp,w1,2);
prt(results33)
results34 = sar_panel_FE(yp,xp,w2,2);
prt(results34)
results35 = sar_panel_FE(yp,xp,w3,2);
prt(results35)'

Bonne nuit, messieurs.
fin

你可能感兴趣的:(File _Classified.m)