# NOT RUN {
#Monte Carlo simulations for an N=5 Hop by Hop system
#with limited L=7 retransmission per hop
#We now consider p1 ~ Uniform(0.2,0.6)
dist1 = "uniform"
p11 = 0.2
p12 = 0.6
#and p2 ~ Beta(3,1)
dist2 = "beta"
p21 = 3
p22 = 1
#no outputs and plots
out = stochastic_HBH(dist1,p11,p12,dist2,p21,p22,L=7,N=5,M=5*10^3,printout=FALSE,plotspdf=FALSE)
out$data #simulations
out$stats #resume
#uncommnet next line for outputs plots and pdf file
#out = stochastic_HBH(dist1,p11,p12,dist2,p21,p22,L=7,N=5)
# }
Run the code above in your browser using DataLab