## Not run:
# # obtained from the output of bagpipe()
# pairs <- pairs[pairs[, 5] > 0.3, ]
# freq <- freq_estimate(alpha = dat$alpha,
# beta = dat$beta,
# pair = pairs,
# numb_cells = matrix(c(50, 480), ncol = 2))
# ## End(Not run)
Run the code above in your browser using DataLab