Show
Ignore:
Timestamp:
11/25/09 12:14:38 (15 years ago)
Author:
mido
Message:

ASTYLER RUN OVER THE WHOLE LIBRARY, JUPEE

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • library/bdm/estim/arx.cpp

    r723 r737  
    33 
    44void ARX::bayes_weighted ( const vec &yt, const vec &cond, const double w ) { 
    5                  
    6         bdm_assert_debug(yt.length()>=dimy,"ARX::bayes yt is smaller then dimc");        
    7         bdm_assert_debug(cond.length()>=dimc,"ARX::bayes cond is smaller then dimc");    
     5 
     6        bdm_assert_debug ( yt.length() >= dimy, "ARX::bayes yt is smaller then dimc" ); 
     7        bdm_assert_debug ( cond.length() >= dimc, "ARX::bayes cond is smaller then dimc" ); 
    88        double lnc; 
    99        //cache 
    10         ldmat &V=est._V();  
    11         double &nu=est._nu(); 
    12  
    13         dyad.set_subvector(0,yt); 
    14         dyad.set_subvector(dimy,cond); 
     10        ldmat &V = est._V(); 
     11        double &nu = est._nu(); 
     12 
     13        dyad.set_subvector ( 0, yt ); 
     14        dyad.set_subvector ( dimy, cond ); 
    1515        // possible "1" is there from the beginning 
    16          
     16 
    1717        if ( frg < 1.0 ) { 
    1818                est.pow ( frg ); // multiply V and nu 
    1919 
    20                  
     20 
    2121                //stabilize 
    22                 ldmat V0=alter_est._V(); //$ copy 
    23                 double &nu0=alter_est._nu(); 
    24                  
    25                 V0*=(1-frg); 
     22                ldmat V0 = alter_est._V(); //$ copy 
     23                double &nu0 = alter_est._nu(); 
     24 
     25                V0 *= ( 1 - frg ); 
    2626                V += V0; //stabilization 
    27                 nu +=(1-frg)*nu0; 
    28                  
     27                nu += ( 1 - frg ) * nu0; 
     28 
    2929                // recompute loglikelihood of new "prior" 
    3030                if ( evalll ) { 
     
    5050        double lll; 
    5151        vec dyad_p = dyad; 
    52         dyad_p.set_subvector(0,yt); 
     52        dyad_p.set_subvector ( 0, yt ); 
    5353 
    5454        if ( frg < 1.0 ) { 
     
    101101mlstudent* ARX::predictor_student ( ) const { 
    102102        const ldmat &V = posterior()._V(); 
    103          
     103 
    104104        mat mu ( dimy, V.rows() - dimy ); 
    105105        mat R ( dimy, dimy ); 
     
    114114 
    115115 
    116         if ( have_constant) { // no constant term 
     116        if ( have_constant ) { // no constant term 
    117117                //Assume the constant term is the last one: 
    118118                if ( mu.cols() > 1 ) { 
     
    206206        // rgrlen - including constant!!! 
    207207        dimc = rrv->_dsize(); 
    208          
     208 
    209209        yrv = *yrv_; 
    210210        rvc = *rrv; 
    211          
     211 
    212212        string opt; 
    213         if ( UI::get(opt, set,  "options", UI::optional) ) { 
    214                 BM::set_options(opt); 
     213        if ( UI::get ( opt, set,  "options", UI::optional ) ) { 
     214                BM::set_options ( opt ); 
    215215        } 
    216216        int constant; 
    217         if (!UI::get(constant, set, "constant", UI::optional)){ 
    218                 have_constant=true; 
    219         } else { 
    220                 have_constant=constant>0; 
    221         } 
    222         int rgrlen = dimc+int(have_constant==true); 
     217        if ( !UI::get ( constant, set, "constant", UI::optional ) ) { 
     218                have_constant = true; 
     219        } else { 
     220                have_constant = constant > 0; 
     221        } 
     222        int rgrlen = dimc + int ( have_constant == true ); 
    223223 
    224224        //init 
    225         shared_ptr<egiw> pri=UI::build<egiw>(set, "prior", UI::optional); 
    226         if (pri) { 
    227                 bdm_assert(pri->_dimx()==dimy,"prior is not compatible"); 
    228                 bdm_assert(pri->_V().rows()==dimy+rgrlen,"prior is not compatible"); 
    229                 est.set_parameters( pri->_dimx(),pri->_V(), pri->_nu()); 
    230         }else{ 
    231                 est.set_parameters( dimy, zeros(dimy+rgrlen)); 
    232                 set_prior_default(est); 
    233         } 
    234                  
    235         shared_ptr<egiw> alt=UI::build<egiw>(set, "alternative", UI::optional); 
    236         if (alt) { 
    237                 bdm_assert(alt->_dimx()==dimy,"alternative is not compatible"); 
    238                 bdm_assert(alt->_V().rows()==dimy+rgrlen,"alternative is not compatible"); 
    239                 alter_est.set_parameters( alt->_dimx(),alt->_V(), alt->_nu()); 
     225        shared_ptr<egiw> pri = UI::build<egiw> ( set, "prior", UI::optional ); 
     226        if ( pri ) { 
     227                bdm_assert ( pri->_dimx() == dimy, "prior is not compatible" ); 
     228                bdm_assert ( pri->_V().rows() == dimy + rgrlen, "prior is not compatible" ); 
     229                est.set_parameters ( pri->_dimx(), pri->_V(), pri->_nu() ); 
     230        } else { 
     231                est.set_parameters ( dimy, zeros ( dimy + rgrlen ) ); 
     232                set_prior_default ( est ); 
     233        } 
     234 
     235        shared_ptr<egiw> alt = UI::build<egiw> ( set, "alternative", UI::optional ); 
     236        if ( alt ) { 
     237                bdm_assert ( alt->_dimx() == dimy, "alternative is not compatible" ); 
     238                bdm_assert ( alt->_V().rows() == dimy + rgrlen, "alternative is not compatible" ); 
     239                alter_est.set_parameters ( alt->_dimx(), alt->_V(), alt->_nu() ); 
    240240        } else { 
    241241                alter_est = est; 
     
    247247 
    248248        set_parameters ( frg ); 
    249          
     249 
    250250        //name results (for logging) 
    251         shared_ptr<RV> rv_par=UI::build<RV>(set, "rv_param",UI::optional ); 
    252         if (!rv_par){ 
     251        shared_ptr<RV> rv_par = UI::build<RV> ( set, "rv_param", UI::optional ); 
     252        if ( !rv_par ) { 
    253253                est.set_rv ( RV ( "{theta r }", vec_2 ( dimy*rgrlen, dimy*dimy ) ) ); 
    254254        } else {