function [u] = spm_uc_Bonf(a,df,STAT,S,n)
% Corrected critical height threshold at a specified significance level
% FORMAT [u] = spm_uc_Bonf(a,df,STAT,S,n)
% a     - critical probability - {alpha}
% df    - [df{interest} df{residuals}]
% STAT  - Statistical field
%         'Z' - Gaussian field
%         'T' - T - field
%         'X' - Chi squared field
%         'F' - F - field
%         'P' - P - value
% S     - Voxel count
% n     - number of conjoint SPMs
%
% u     - critical height {corrected}
%__________________________________________________________________________
%
% spm_uc_Bonf returns the corrected critical height threshold at a
% specified significance level (a). If n > 1, a conjunction probability
% over the n values of the statistic is returned.
%__________________________________________________________________________
% Copyright (C) 1999-2015 Wellcome Trust Centre for Neuroimaging

% Thomas Nichols
% $Id: spm_uc_Bonf.m 6416 2015-04-21 15:34:10Z guillaume $


u   = spm_u((a/S).^(1/n),df,STAT);