[MenuLROutput]
SaveRedirection=type.Redirection(16,3);	// SDB 1/7/99 REPORT_TO_OUTPUTLOG
type.BeginResults();		/// RKM 12/10/98 v6.0141 REPORT_TO_OUTPUTLOG
%A=Stat.Data$;
if (layer.x.space==1 && layer.y.space==1)
{	
	type $regression.performLR;
	type $regression.EqnForLR;
	%Z=$regression.performLR;
	%P=$regression.EqnForLR;
%Z=%Z
%P;
}
else
{
	type $regression.LRApparent;
	type $regression.LREqnApparent;
	type $regression.LRmsgApparent;
%Z=$regression.LRApparent;
%P=$regression.LREqnApparent;
%Z=%Z
%P;
%P=$regression.LRmsgApparent;
%Z=%Z
%P;
} 
	
/* Now check to see if there is error data and if it is in plot */
%A=stat.data$;
%B=errof(%A)$;
if (exist(%B)==1)
{
type $regression.UsingWeight;
%P=type $regression.UsingWeight;
%Z=%Z
%P;
}
type;
type $regression.ShortParaHeader1;
%P="     ";
%Z=%Z
%P;
%P=Parameter     Value            Error;
%Z=%Z
%P;
separator 4;
%Q="------------------------------------------------------------";
%Z=%Z
%Q;
type "A\t$(Stat.LR.A)\t$(stat.LR.Ase)";
%P="A          $(Stat.LR.A)     $(stat.LR.Ase)";
%Z=%Z
%P;
type "B\t$(Stat.LR.B)\t$(stat.LR.Bse)";
%P="B          $(Stat.LR.B)     $(stat.LR.Bse)";
%Z=%Z
%P;
%Z=%Z
%Q;
%P="   ";
%Z=%Z
%P;
separator 4;
type;
%P="R             SD            N             P";
%Z=%Z
%P;
%Z=%Z
%Q;
type $regression.ShortParaHeader2;
separator 4;
if (stat.pValue<0.0001) %A="<0.0001"; else %A=$(stat.pValue);
%P="$(Stat.R)     $(Stat.SD)      $(stat.npts)      %A";
%Z=%Z
%P;
type "$(Stat.R)\t$(Stat.SD)\t$(stat.npts)\t%A";
separator 4;
%Z=%Z
%Q;
type.EndResults();
type.Redirection=SaveRedirection; // restore previous redirection.
delete -v SaveRedirection;
label -n LinearFit NewLabel;
LinearFit.text$=%Z;
return 0;