set.seed(12345)
pop3 <- sim.popn(D = 2, core = make.grid(), buffer = 200, nsessions = 3,
details = list(lambda = 1.0, movemodel = 'BVE', move.a = 50,
edgemethod = 'stop'))
m <- extractMoves(pop3, plotn = 10, length = 0.1)
mean(unlist(sapply(m, '[', 'd'))) # less than nominal 2 x move.a
# For distances closer to nominal for BVE (2 x move.a = 100),
# increase size of arena (e.g., buffer = 500) and consider only
# central animals (e.g., maxradius = 300).
Run the code above in your browser using DataLab