correlinvtstat.m

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

function r = correlinvtstat(t, n)
% correltstat  - convert t-statistic into correlation value
%
% FORMAT:       r = correlinvtstat(t, n)
%
% Input fields:
%
%       t           t statistic
%       n           number of points in correlated series
%
% Output fields:
%
%       r           matching correlation r
%
% See also correltstat

% Version:  v0.7b
% Build:    7090609
% Date:     Sep-06 2007, 9:01 AM CEST
% Author:   Jochen Weber, Brain Innovation, B.V., Maastricht, NL
% URL/Info: http://wiki.brainvoyager.com/BVQXtools

% argument check
if nargin < 2 || ...
   (~isa(t, 'double') && ...
    ~isa(t, 'single')) || ...
   (~isa(n, 'double') && ...
    ~isa(n, 'single')) || ...
    isempty(t) || ...
    isempty(n) || ...
    any(isnan(t(:)) | isinf(t(:))) || ...
    any(isinf(n(:)) | isnan(n(:)) | n(:) < 2)
    error( ...
        'BVQXtools:BadArgument', ...
        'Missing or invalid argument given.' ...
    );
end
osize = size(t);
if numel(t) == 1 && ...
    numel(n) > 1
    osize = size(t);
end
t = t(:);
n = n(:);

% formula
r = reshape(t ./ sqrt(t .* t + n - 2), osize);