Allow inverse transform and set minimum threshold for lam

time-shift
Marco Ratto 2015-04-16 16:13:00 +02:00
parent ae6302c348
commit 0faf6e1981
1 changed files with 8 additions and 1 deletions

View File

@ -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
%
@ -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
% 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,
xdir0='';
end
@ -67,5 +73,6 @@ else
lam = -min(y0)+abs(median(y0)); %abs(100*(1+min(y0)));
end
end
lam = max(lam,0);
yy = log(y0+lam);
end