Changeset 529 for library/tests/mpdf_test.cpp
- Timestamp:
- 08/14/09 09:03:02 (15 years ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
library/tests/mpdf_test.cpp
r524 r529 38 38 ldmat R = ldmat ( V0 ); 39 39 40 shared_ptr<enorm<ldmat> > eN = new enorm<ldmat>();40 enorm_ldmat_ptr eN; 41 41 eN->set_parameters ( mu0, R ); 42 42 43 shared_ptr<mgamma> mG = new mgamma();43 mgamma_ptr mG; 44 44 double k = 10.0; 45 45 mG->set_parameters ( k, mu0 ); 46 46 47 47 mmix mMix; 48 Array<shared_ptr<mpdf> >mComs ( 2 );48 mpdf_array mComs ( 2 ); 49 49 50 50 // mmix::set_parameters requires the first mpdf to be named … … 54 54 55 55 eN->set_mu ( vec_2 ( 0.0, 0.0 ) ); 56 shared_ptr<mepdf>mEnorm = new mepdf ( eN );56 mepdf_ptr mEnorm = new mepdf ( eN ); 57 57 mComs ( 1 ) = mEnorm; 58 58 59 59 mMix.set_parameters ( vec_2 ( 0.5, 0.5 ), mComs ); 60 60 61 double tolerance = 0.1;62 63 61 vec tmu = 0.5 * eN->mean() + 0.5 * mu0; 64 check_mean ( mMix, mu0, N, tmu, tolerance);62 check_mean ( mMix, mu0, N, tmu, 0.1 ); 65 63 66 64 mat observedR ( "1.27572 0.778247; 0.778247 3.33129" ); 67 check_covariance( mMix, mu0, N, observedR, tolerance);65 check_covariance( mMix, mu0, N, observedR, 0.2 ); 68 66 } 69 67 … … 75 73 ldmat R = ldmat ( V0 ); 76 74 77 shared_ptr<enorm<ldmat> > eN = new enorm<ldmat>();75 enorm_ldmat_ptr eN; 78 76 eN->set_parameters ( mu0, R ); 79 77 80 78 vec a = "100000,10000"; 81 79 vec b = a / 10.0; 82 shared_ptr<egamma> eG = new egamma();80 egamma_ptr eG; 83 81 eG->set_parameters ( a, b ); 84 82 85 shared_ptr<emix> eMix = new emix();86 Array<shared_ptr<epdf> >Coms ( 2 );83 emix_ptr eMix; 84 epdf_array Coms ( 2 ); 87 85 Coms ( 0 ) = eG; 88 86 Coms ( 1 ) = eN;