回归的r方 是指“可决系数”吗?
a:=c;//回归线计算对象
a0:=ma(a,n);
r:=(n-1)/2;
b:=slope(a,n);
j:=forcast(a,n);
j0:=j-b*(n-1)/2;
s:=0*a;
ta:=0*a;
tj:=0*a;
for i=0 to n-1 do begin
s:=s+(ref(a,i)-a0)*b*(r-i);
ta:=ta+pow(ref(a,i)-a0,2);
tj:=tj+pow(b*(r-i),2);
end
relate1:s/sqrt(ta*tj);