% 
% Written by:
% -- 
% John L. Weatherwax                2007-09-24
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

priorP2 = 0.6; 
priorP3 = 0.4; 

% Part (a): 
k=0;
p0 = priorP2*poisspdf( k, 2 ) + priorP3*poisspdf( k, 3 ) 

% Part (b): 
k=3;
p3 = priorP2*poisspdf( k, 2 ) + priorP3*poisspdf( k, 3 ) 

% Part (c): 
pE2Y0 = poisspdf( 0, 2 )*priorP2 / p0 
pE3Y0 = poisspdf( 0, 3 )*priorP3 / p0