Hi,
   
  (In the bayesian model, this program makes estimate the value of theta (tn)
  with the empirical method.)
   
  I want to know how one can repeat this program 100 times, before to have 100 estimated values of tn.
   
  This is the program:
   
  a<-1 
theta<-rexp(50,a)
x<-rpois(length(theta),theta)
  t<-rexp(a)
  xn<-rpois(1,t)
  tn<-(1+xn)*mean(x)/(1+mean(x))
  tn
   
   
  Thank you very much.

 __________________________________________________



	[[alternative HTML version deleted]]

