请问，lsqcurvefit拟合后如何显示相关系数R^2？

limopcb

0 o  ^# U, P% [" {请问，lsqcurvefit拟合后如何显示相关系数R^2，感谢！
clear;clc;
T=[293.15        298.15        303.15        308.15        313.15];
$ {& K2 `( V& J* T6 Yc=[0.000378156        0.000425433        0.000562474        0.000684178        0.000981096];
1 ?5 G; Y) z2 d8 }TT=T';
% _5 N8 `" M/ acc=c';
1 ^9 t( O$ z6 B. D4 Dx=[TT,cc];
% g% y5 @0 h, f6 b7 SHm=33509;
7 }; t( }7 i0 E( P+ H! a; ^Tm=408.65;
a=0.3;
fun=@(q,x)(-Hm.*(x(:,1)./Tm-1)./(8.314.*x(:,1))+log(x(:,2))+(1-x(:,2)).^2.*((q(1)./(8.314.*x(:,1))).*(exp(-a.*q(1)./(8.314.*x(:,1)))./(x(:,2)+(1-x(:,2)).*exp(-a.*q(1)./(8.314.*x(:,1))))).^2+(q(2)./(8.314.*x(:,1))).*exp(-a.*q(2)./(8.314.*x(:,1)))./(1-x(:,2)+x(:,2).*exp(-a.*q(2)./(8.314.*x(:,1)))).^2));
q0=[0,0];
q=lsqcurvefit(fun,q0,x,zeros(size(x,1),1))
plot(x(:,1),x(:,2),'r^');hold on;
ezplot(@(x,c)fun(q,[x,c]),[290,314,0.0003,0.001]);
% M0 U7 N) _/ I; j2 h, |h=ezplot(@(x,c)fun(q,[x,c]),[290,314,0.0003,0.001]);

Allevi

非线性拟合，R2没有意义的
% H% E% n5 h0 m& v8 |+ _0 W' Z. e: Z8 M( d参考
# z0 g  b6 q7 M  Vstatisticsbyjim.com/regression/r-squared-invalid-nonlinear-regression
blog.minitab.com/blog/adventures-in-statistics-2/why-is-there-no-r-squared-for-nonlinear-regression