fisherr2z.m

来自「toolbox of BVQX, This is the access betw」· M 代码 · 共 46 行

function z = fisherr2z(r, d)
% fisherr2z  - convert Pearson correlation into z values
%
% FORMAT:       z = fisherr2z(r [, inverse])
%
% Input fields:
%
%       r           correlation value(s) (or z for inverse)
%       inverse     if given and 1x1 logical true, inverse operation
%
% Output fields:
%
%       z           z values (or r for inverse)

% Version:  v0.7a
% Build:    7082110
% Date:     Aug-21 2007, 10:19 AM CEST
% Author:   Andrew Holmes, SPM2
% URL/Info: http://www.fil.ion.ucl.ac.uk/spm/

% argument check
if nargin < 1 || ...
   ~isa(r, 'double') || ...
    any(isinf(r(:)) | isnan(r(:)))
    error( ...
        'BVQXtools:BadArgument', ...
        'Invalid or missing r argument.' ...
    );
end

% compute the desired direction
if nargin < 2 || ...
   ~islogical(d) || ...
   ~d(1)
    if any(abs(r(:)) > 1)
        error( ...
            'BVQXtools:BadArgument', ...
            'Invalid r argument.' ...
        );
    end
    z = 0.5 * log((1 + r) ./ (1 - r));
else
    z = exp(1) .^ (2 .* r);
    z = (z - 1) ./ (z + 1);
end