Allow inverse transform and set minimum threshold for lam
parent
ae6302c348
commit
0faf6e1981
|
@ -1,4 +1,4 @@
|
||||||
function [yy, xdir, isig, lam]=log_trans_(y0,xdir0)
|
function [yy, xdir, isig, lam]=log_trans_(y0,xdir0,isig,lam)
|
||||||
|
|
||||||
% Copyright (C) 2012 Dynare Team
|
% Copyright (C) 2012 Dynare Team
|
||||||
%
|
%
|
||||||
|
@ -17,6 +17,12 @@ function [yy, xdir, isig, lam]=log_trans_(y0,xdir0)
|
||||||
% You should have received a copy of the GNU General Public License
|
% You should have received a copy of the GNU General Public License
|
||||||
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
|
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
if nargin==4,
|
||||||
|
% inverse transformation
|
||||||
|
yy = (exp(y0)-lam)*isig;
|
||||||
|
return
|
||||||
|
end
|
||||||
|
|
||||||
if nargin==1,
|
if nargin==1,
|
||||||
xdir0='';
|
xdir0='';
|
||||||
end
|
end
|
||||||
|
@ -67,5 +73,6 @@ else
|
||||||
lam = -min(y0)+abs(median(y0)); %abs(100*(1+min(y0)));
|
lam = -min(y0)+abs(median(y0)); %abs(100*(1+min(y0)));
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
lam = max(lam,0);
|
||||||
yy = log(y0+lam);
|
yy = log(y0+lam);
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in New Issue