重回帰７ - 経済統計練習帳

var a_ols=new Array();
var b_ols=new Array();
var sol_ols=new Array();
var x_ols = new Array();
var y_ols = new Array();
var number_ols,datanumber_ols;
 
function ols(){
 
for(s=1;s<number_ols+1;s++){
a_ols[s]=new Array();
}
 
 
for(s=1;s<number_ols+1;s++){    
y1 = 0;
for (sx = 1; sx <datanumber_ols;sx++ ){
y1=y1+x_ols[s][sx]*y_ols[sx];    
}
b_ols[s]=y1;
}
 
 
for(s1=1;s1<number_ols+1;s1++){    
for(s2=1;s2<number_ols+1;s2++){ 
y1 = 0;
for (sx = 1; sx <datanumber_ols;sx++ ){
y1=y1+x_ols[s1][sx]*x_ols[s2][sx];    
}
a_ols[s1][s2]=y1;
}} 
 
 
for(s=1;s<number_ols+1;s++){
for(sx=1;sx<number_ols+1;sx++){
z=a_ols[sx][s]/a_ols[s][s];
if(s==sx)z=0;
for(tx=1;tx<number_ols+1;tx++){
a_ols[sx][tx]=a_ols[sx][tx]-z*a_ols[s][tx];
}
b_ols[sx]=b_ols[sx]-z*b_ols[s];
}
}
 
 
for(s=1;s<number_ols+1;s++){
sol_ols[s]=b_ols[s]/a_ols[s][s];
}
 
$("#memo").html(sol_ols[2]);
 
 
}