p1 <- proba_theoretical_ith_excursion_iid(3, c("a","b","c","d"),
c(a=0.1,b=0.2,c=0.4,d=0.3), c(a=-3,b=-1,c=1,d=2), i = 10)
p2 <- proba_theoretical_first_excursion_iid(3, c("a","b","c","d"),
c(a=0.1,b=0.2,c=0.4,d=0.3), c(a=-3,b=-1,c=1,d=2))
p1 == p2 #TRUE
Run the code above in your browser using DataLab