#An N=7 Opportunistic system with probabilities p1 = 0.7,...,p7 = 0.1
> p = seq(0.7,0.1,length.out = 7)
> routes(p)
Freq Probability Value
route 1 1 p1^7 0.08235
route 2 6 p1^5*p2 0.10084
route 3 10 p1^3*p2^2 0.12348
route 4 4 p1*p2^3 0.1512
route 5 5 p1^4*p3 0.12005
route 6 12 p1^2*p2*p3 0.147
route 7 3 p2^2*p3 0.18
route 8 3 p1*p3^2 0.175
route 9 4 p1^3*p4 0.1372
route 10 6 p1*p2*p4 0.168
route 11 2 p3*p4 0.2
route 12 3 p1^2*p5 0.147
route 13 2 p2*p5 0.18
route 14 2 p1*p6 0.14
route 15 1 p7 0.1
Total 64
Run the code above in your browser using DataLab