Show
Ignore:
Timestamp:
06/02/10 23:51:04 (14 years ago)
Author:
smidl
Message:

New ebeta distribution + tests

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • library/bdm/stat/exp_family.cpp

    r1015 r1033  
    775775                dimc = _beta.length(); 
    776776        } 
    777 } 
     777 
     778 
     779void mBeta::from_setting ( const Setting &set ) { 
     780        pdf::from_setting ( set ); // reads rv and rvc 
     781        if ( _rv()._dsize() > 0 ) { 
     782                rvc = _rv().copy_t ( -1 ); 
     783        } 
     784        if ( !UI::get ( iepdf.beta, set, "beta", UI::optional ) ) { 
     785                iepdf.beta = ones ( _rv()._dsize() ); 
     786        } 
     787        if ( !UI::get ( iepdf.alpha, set, "alpha", UI::optional ) ) { 
     788                iepdf.alpha = ones ( _rv()._dsize() ); 
     789        } 
     790        if ( !UI::get ( betac, set, "betac", UI::optional ) ) { 
     791                betac = 0.1 * ones ( _rv()._dsize() ); 
     792        } 
     793         
     794        UI::get ( k, set, "k", UI::compulsory ); 
     795} 
     796 
     797void mBeta::to_setting  (Setting  &set) const { 
     798        pdf::to_setting(set); 
     799        UI::save( iepdf.beta, set, "beta"); 
     800        UI::save( betac, set, "betac"); 
     801        UI::save ( k, set, "k" ); 
     802} 
     803 
     804}