set.seed(3)
sample_set <- sim_bch(80)
## few iterations just to check how to use the function
inter_bch(sample_set, sample_set$L,
sample_set$R, c("xi1","xi2"), max_n = 5)
## precise estimate (computationally intensive)
## Not run:
#
# inter_bch(sample_set, sample_set$L, sample_set$R, c("xi1","xi2"))
# ## End(Not run)
Run the code above in your browser using DataLab