# NOT RUN {
# plot the probabilities for removing network links between node i and j with
# Euclidean distances Dij
dis <- seq(.05, 10, length.out = 20)
m <- c(.1, 2, 5, 10)
l <- c(.0001, .15, .35, .75, 1.25, 5, 30)
ahn_prob(dis, m, l)
# }
Run the code above in your browser using DataLab