GSA: rename 2 functions whose name is the same than some Octave built-in
parent
d33f149178
commit
d7e5d37d9c
|
@ -1,4 +1,4 @@
|
|||
function s=skewness(y),
|
||||
function s=gsa_skewness(y),
|
||||
|
||||
% y=stand_(y);
|
||||
% s=mean(y.^3);
|
|
@ -1,5 +1,5 @@
|
|||
function [tadj, iff] = speed(A,B,mf,p),
|
||||
% [tadj, iff] = speed(A,B,mf,p),
|
||||
function [tadj, iff] = gsa_speed(A,B,mf,p),
|
||||
% [tadj, iff] = gsa_speed(A,B,mf,p),
|
||||
%
|
||||
% Part of the Sensitivity Analysis Toolbox for DYNARE
|
||||
%
|
|
@ -3,10 +3,10 @@ function [yy, xdir, isig, lam]=log_trans_(y0,xdir0)
|
|||
if nargin==1,
|
||||
xdir0='';
|
||||
end
|
||||
f=inline('skewness(log(y+lam))','lam','y');
|
||||
f=inline('gsa_skewness(log(y+lam))','lam','y');
|
||||
isig=1;
|
||||
if ~(max(y0)<0 | min(y0)>0)
|
||||
if skewness(y0)<0,
|
||||
if gsa_skewness(y0)<0,
|
||||
isig=-1;
|
||||
y0=-y0;
|
||||
end
|
||||
|
|
|
@ -127,7 +127,7 @@ if opt_gsa.load_ident_files==0,
|
|||
% ino=find(~ismember([1:nr],io));
|
||||
% T2=A(ino,1:nr,:);
|
||||
R=A(:,nr+1:nc,:);
|
||||
% [tadj, iff] = speed(A(1:nr,1:nr,:),R,io,0.5);
|
||||
% [tadj, iff] = gsa_speed(A(1:nr,1:nr,:),R,io,0.5);
|
||||
% [tadj, j0, ir_tadj, ic_tadj] = teff(tadj,Nsam,istable);
|
||||
% [iff, j0, ir_if, ic_if] = teff(iff,Nsam,istable);
|
||||
|
||||
|
|
Loading…
Reference in New Issue