function TEST_Create_Parameters_File_No_Predictability()
    
    tic
    
%Variables setup
    m = 3; 
    n = 4; 
    beta = 0.02/52;
    r = 0;
    final_row = 856;
    Period = 52; 
    folder_db = '../db/';
    folder_result = '../Result/';
    FILE = 'Data.xlsx';
    TAB_Parameters = 'Parameters';
    
% The Parameters sheet must have been built accordingly. 
    period_beg_row = final_row - Period; 
    filename_data = strcat(folder_db,FILE);
    sheet = TAB_Parameters;
    range = strcat('C', num2str(4 + n), ':', xlsColNum2Str(2 + n), num2str(3 + n + m));

    A = xlsread(filename_data, sheet, range{1})'; 
    
    B = zeros(n,1); 
    
    var_cov = zeros(n,n,m);
    
    for reg = 1:m
        range = strcat('C', num2str(4 + m + reg*(n+1)), ':', xlsColNum2Str(2 + n), num2str(3 + n + m  + reg*(n+1)));
        var_cov(:,:,reg) = xlsread(filename_data, sheet, range{1}); 
    end
    
    V = zeros(n,n,m);
    for reg = 1:m
        V(:,:,reg) = chol(var_cov(:,:,reg), 'lower');
    end
    
    range = strcat('B', num2str(5 + n + 2*m + n*m), ':', xlsColNum2Str(2 + m), num2str(4 + n + 3*m + n*m));
    P = xlsread(filename_data, sheet, range{1}); 
    Q = zeros(m,m);
    for i = 1:m
        for j = 1:m
           if P(i,i)==1
               Q(i,j)=0;
           else    
               if j == i
                   Q(i,i) = log(P(i,i));
               else  
                   Q(i,j) = -P(i,j)*log(P(i,i))/(1 - P(i,i));
               end
           end
        end    
    end
    
    D_p = zeros(1,m);
    sigma_p = zeros(1,n+1);     
    vol_pi = Estimate_Probability_Vol_Matrix_No_Predictability(n, m, filename_data, sheet, A, V, Q, period_beg_row);
    
    
    clear range prob_processes 
    
    pi_inf = Ergodic_Probabilities(m, P);     
    
    V_pi_inf = zeros(n,n);
    for reg = 1:m
        V_pi_inf = V_pi_inf + V(:,:,reg)*pi_inf(reg);
    end
    
    p_bar = 0;
    
    clear reg i j range TAB_Parameters final_row Period 
    save(strcat(folder_result, 'A_Parameters_No_Predictability.mat'))
    
    % Writing vol_pi
    T1 = table(vol_pi);
    if ESTIM == 'BR'
        local1 = strcat('C', num2str(7+m + n + 2*m + n*m));
    end
    if ESTIM == 'US'
        local1 = strcat('B', num2str(7+m + n + 2*m + n*m));
    end
    
    writetable(T1,filename_data,'Sheet',sheet,'Range',local1,'WriteVariableName',false);
    
    % Writing Ergodic Probabilities
    T2 = table(pi_inf');
    if ESTIM == 'BR'
        local2 = strcat('C', num2str(14+(m-2)*2 + n + 2*m + n*m));
    end
    if ESTIM == 'US'
        local2 = strcat('B', num2str(14+(m-2)*2 + n + 2*m + n*m));
    end
      
    writetable(T2,filename_data,'Sheet',sheet,'Range',local2,'WriteVariableName',false);
    clear T1 T2 local1 local2 ESTIM
    
    toc
end