x <- 0:10 # vector of distances
a = 0.3 # default alpha value
b = 0.2 # default beta value
(res <- dd_loglin(x, a, b))
plot(x, res)
x = seq(0, 50, 0.1)
plot(x, dd_loglin(x))
lines(x, dd_loglin(x, a = 0.1, b1 = 0.15))
Run the code above in your browser using DataLab