Changeset 700 for applications/bdmtoolbox/tutorial/userguide/frg_estim.m
- Timestamp:
- 11/04/09 22:54:58 (15 years ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
applications/bdmtoolbox/tutorial/userguide/frg_estim.m
r661 r700 17 17 %%%%%% Random walk on frg - Dirichlet 18 18 phi_pdf.class = 'mDirich'; % random walk on coefficient phi 19 phi_pdf.rv = RV( 'phi',2); % 2D random walk - frg is the first element19 phi_pdf.rv = RV({'phi','1_phi'}); % 2D random walk - frg is the first element 20 20 phi_pdf.k = 0.01; % width of the random walk 21 21 phi_pdf.betac = [0.01 0.01]; % stabilizing elememnt of random walk … … 26 26 E.parameter_pdf = phi_pdf; % Random walk is the parameter evolution model 27 27 E.res_threshold = 1.0; % resampling parameter 28 E.n = 20; % number of particles28 E.n = 10; % number of particles 29 29 E.prior.class = 'eDirich'; % prior on non-linear part 30 30 E.prior.beta = [2 1]; % … … 36 36 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 37 37 % plot results 38 ndat = size(M. u,1);38 ndat = size(M.DS_u,1); 39 39 40 40 figure(1); 41 41 subplot(2,2,1); 42 plotestimates(true_theta, M.MPF mean_theta, M.MPFlb_theta, M.MPFub_theta);42 plotestimates(true_theta, M.MPF_apost_mean_theta, M.MPF_apost_lb_theta, M.MPF_apost_ub_theta); 43 43 title(' Regression parameters \theta') 44 44 set(gca,'YLim',[-1.5,1]); 45 45 46 46 subplot(2,2,2); 47 plotestimates(true_R, M.MPF mean_r,M.MPFlb_r,M.MPFub_r);47 plotestimates(true_R, M.MPF_apost_mean_r,M.MPF_apost_lb_r,M.MPF_apost_ub_r); 48 48 title('Variance parameters r') 49 49 50 50 subplot(2,2,3); 51 plotestimates(1, M.MPF mean_phi(:,1),M.MPFlb_phi(:,1),M.MPFub_phi(:,1));51 plotestimates(1, M.MPF_apost_mean_phi(:,1),M.MPF_apost_lb_phi(:,1),M.MPF_apost_ub_phi(:,1)); 52 52 title('Forgetting factor') 53 53