 BETA_t = BETA_e;
   F1_t = F1_e;
   F2_t = F2_e;
   fi_t = fi_e;
    L_t = L_1;
    Y_t = Y_e;
    R_t = R_e;
DELTA_t = DELTA_1;
   Dv_t = Dv_1;
SD_BETA_t = SE_TETA(1:p);
  SD_F1_t = SE_TETA(p+1:r1+p);
  SD_F2_t = SE_TETA(r1+p+1:r2+r1+p);
  SD_fi_t = SE_TETA(r2+r1+p+1);

  

SUMMARY_t=[BETA_t  SD_BETA_t ; F1_t  SD_F1_t ; F2_t  SD_F2_t ; fi_t  SD_fi_t ; L_t  0];


cd('F:\Paper Ibacache-Pulgar (2015a) 17-08-2016\Boston Data Application')
save t_Estimates




LOGLIKELIHOOD=[2 120. ];