
% lyngby_uis_baf       - Script executed for Ardekani's F-test
%
%       See also: lyngby_baf_global, lyngby_ui_global

% cvs : $Id: lyngby_uis_baf.m,v 1.3 1999/09/16 13:11:34 fnielsen Exp $ 
%       $Revision: 1.3 $    

    RESULT_BAF = lyngby_baf_test(XN, R, 'Components', BAF_COMPONENTS);
	  
    RESULT = RESULT_BAF;
    dof = size(XN,1) - BAF_COMPONENTS - 1; 
    baf_level = lyngby_idf_f(1-BAF_ERRORLEVEL, BAF_COMPONENTS, dof);
    STRENGTH_BAF = sqrt(RESULT_BAF);
    PROB_BAF = lyngby_cdf_f(RESULT_BAF, BAF_COMPONENTS, dof);
    TRUNK_STRENGTH_BAF = baf_level .* (RESULT_BAF>baf_level);
