data(IrishDirectoratesFit)
IrishDirectoratesFit <- dblpm_mcmc(network = IrishDirectoratesFit$tail,
niter = 3, burnin = 6, thin = 3,
x_var = 4.75, w_var = 0.25, gamma_var = 1.825, beta_var = 0.2175,
verbose = TRUE)
# to replicate the results of the paper: niter = 10000, burnin = 500000, thin = 50
Run the code above in your browser using DataLab